在文本文件中记录为
A1 C1
A2 C2
A3 C3
..........
亲,试一下这个,会在当前Excel所在的文件夹下建立一个ac.txt文件,里面存放A/C列的数据,中间用TAB空白隔开。
Sub ac()
Dim rcA, i As Long
Dim s As String
rcA = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To rcA
s = s & Range("A" & i) & vbTab & Range("B" & i) & vbCrLf
Next
Open ThisWorkbook.Path & "\ac.txt" For Output As #1
Print #1, s
Close #1
End Sub追问
去试一下先
定义rcA为最大列数,i为计数器,
s为输出集合,
然后遍历1~rcA列
“s = s & Range("A" & i) & vbTab & Range("B" & i) & vbCrLf”是什么意思?
RCA是A列有数据的最大行……
S是一个字符变量,存放A/C列从第一行到最后一行的所有内容。
温馨提示:答案为网友推荐,仅供参考
第1个回答 2014-07-03
A与C之间不用分隔符?