Question

如何将指定的EXCEL中的若干单元格中的内容导出，生成一个txt文件？

如何将指定的EXCEL中的若干单元格中的内容导出，生成一个txt文件，每个单元格内容在txt文件中占用一行，txt文件名为EXCEL表格中某一单元格的内容；
例如：在EXCEL的某个工作表中，有A4，B5，C7，D8，E11等几十个不同的单元格，需要将这些单元格中的内容导出生成txt文件，每个单元格的内容在txt文件中占用一行，
txt文件的文件名同样来自某个单元格（如B9）；
用VB怎么实现以上功能，请各位大侠指教，多谢！

Answer 1

q我觉得，象A4，B5，C7，D8，E11这些单元格应该有它的规律，要不然，也没有程序可以帮你实现所有的任务，问题不能只停留在只能处理上面的几个单元格上。对不？

Answer 2

随便选中想要的单元格
Sub A()
Dim Q As Range, Y$, AR, N%, L$, I%
For Each Q In Selection
Y = Y & "," & Q
Next
AR = Split(Y, ",")
N = Int(Rnd * UBound(AR)) + 1
L = ThisWorkbook.Path & "\" & AR(N) & ".TXT"
Open L For Output As #1
For I = 1 To UBound(AR)
Print #1, AR(I)
Next
Close #1
End Sub

Answer 3

Hi 我，给你写。