Question

excel第一列输出到文本里面怎么做？

excel vba 将第一列的单元格的值输出到txt文本，代码如果写呢？

Answer 1

第一步：复制这个5个单元格，到其他位置，选择性粘贴，转置。数据成一横排了；
第二部：复制这一横排的5个单元格，去记事本里面粘贴。出现的事5个数字，中间一大个空格；
第三部：复制上面的其中任意一个大空格，在记事本里ctrl+h，出现替换对话框，将把大空格粘贴到“查找内容”里，“替换为”里面填上一个逗号，点全部替换。
完事！

Answer 2

'鼠标在操作的工作表标签例如sheet上右键 --“查看代码”，调出VBA窗口，菜单：插入--模块，把下面代码复制进去

Sub 写入文本()
Dim ws As Worksheet
Set ws = Worksheets(1)
With ws
hs = .Range("a1").End(xlDown).Row
ss = Join(Application.Transpose(Range("a1:a" & hs)), ",")
End With
Open "c:\结果.txt" For Output As #1
Print #1, ss;
Close #1
Set ws = Nothing
End Sub

'回到EXCEL窗口，按“工具－宏－宏”，或直接按快捷键AlT+F8，在对话框选“转为批注”宏执行即可。
'结果到C盘看：“结果.txt”文件

追问

如果我想逐行一个单元格一个单元格地输出！那该怎么弄呢？

追答

想逐行一个单元格一个单元格地输出！

Sub 写入文本002()
Dim ws As Worksheet
Set ws = Worksheets(1)
With ws
hs = .Range("a1").End(xlDown).Row
'ss = Join(Application.Transpose(Range("a1:a" & hs)), ",")

Open "c:\结果02.txt" For Output As #1
For Each x In .Range("a1:a" & hs)
Print #1, x.Value;
Next
End With
Close #1
Set ws = Nothing
End Sub