VBA怎么输出选中单元格区域的值到TXT中

Question

我的代码如下：

Cells.Find(what:="ABC", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Dim myrange As Range '查找ABC

Dim a, b, c1 As String

a = ActiveCell.Row '反回查找到结果单元格的行数
b = ActiveCell.Column '反回查找到结果单元格的列数
Range(Cells(a, b), Cells(a, b + 2)).Select '选择要输出的内容
Range(Selection, Selection.End(xlDown)).Select
c1 = Cells(a, b).Value
Open "d:\" & c1 & ".txt" For Output As #1 '以查找到的内容为TXT的文件名
b1 = Range(Cells(a, b), Cells(a, b + 2)).Value '这句怎么写？？？？？？？？？？？？我要将选择的单元格内容输出到TXT档中
Print #1, b1
Close #1

先谢谢了！！！！

Answer 1

b1 = Range(Cells(a, b), Cells(a, b + 2)).Value '这句怎么写？？？？？？？？？？？？我要将选择的单元格内容输出到TXT档中......

for i=b to b+2
b1=Cells(a, i).value
print #1,b1
next i
close #1

追问

这样只能输出一行的，我要的是Range(Cells(a, b), Cells(a, b + 2)).Value这一行以下，直到以结尾没有数字，所选的一个区域

Answer 2

selection就是选定的区域，不需要去计算行，列