我想把excel中每一行的数据导出来，每一行生成一个txt文件，找到了导出列的，怎么改？请懂宏的帮助

找到个导出列的

Sub DaoChu()
Dim I As Integer, J As Long, RW As Long
RW = ActiveSheet.UsedRange.Rows.Count
For I = 1 To 10
Open "D:\" & Chr(Asc("A") + I - 1) & "行.txt" For Output As 1
For J = 1 To RW
Print #1, Range(Chr(Asc("A") + I - 1) & CStr(J)).Value
Next J
Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub

Sub DaoChu()
Dim I As Integer, J As Long, RW As Long
RW = ActiveSheet.UsedRange.Rows.Count
CW = ActiveSheet.UsedRange.Columns.Count
For I = 1 To CW
Open "D:\" & Chr(Asc("A") + I - 1) & "行.txt" For Output As 1
For J = 1 To RW
Print #1, Range(Chr(Asc("A") + I - 1) & CStr(J)).Value
Next J
Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub

可以啊，工具-宏-编辑器里，把代码复制出来，让他黏贴到你的位置就行了