请教高手，在excel A1列有5万个QQ，如何每250个为一组输出为txt文本文件？

Answer 1

把下面代码放到 你要保存的表里面，运行下就好了。
文件保存在D盘的新建文件夹里面。可以自己修改路径。
Private Function Save()
Dim FileNumber
Dim i As Long, j As Long, Str1 As String
j = 1
For i = 1 To 50000
Str1 = Str1 & Range("A" & i).Value & vbCrLf
If i Mod 250 = 0 Then
FileNumber = FreeFile
Open "D:\新建文件夹\" & j & ".txt" For Output As #FileNumber
Print #FileNumber, Str1
Close #FileNumber
Str1 = ""
j = j + 1
End If
Next
MsgBox "完成！"
End Function

追问

请问是放在QQ号码文本txt文件的表里面吗？

追答

比如你的号码在 sheet1 的A 列，那就右键下面的表名 sheet1 选择查看代码就贴那里了。
贴进去后把光标定位到代码里面随便一个位置，按下 F5 然后有个对话框出来提示完成就好了。

追问

有个框出来，提示输入宏，输入什么？

追答

你先把光标定位到代码内部在按！！！你就放第一句的那个括号里面吧，注意是光标不是鼠标！！！
987122817 还是不就加我QQ吧。

Answer 2

可用VB做个工具。

追问

请问详细怎样做?