excel拆分数据到txt文件，一行数据拆分不了要两行以上才行，是哪里出问题

迟依

求助：excel拆分数据到txt文件，一行数据拆分不了要两行以上才行，是哪里出问题


Sub 拆分Totxt()
Dim R&, i&, a$, arr, pt$, mStr$
pt = ThisWorkbook.Path & "\"
R = Cells(1, Columns.Count).End(1).Column
For i = 1 To R
If Cells(1, i) <> "" Then
a = Cells(1, i) & ".txt"
arr = Application.WorksheetFunction.Transpose(Range(Cells(2, i), Cells(Rows.Count, i).End(3)))
mStr = Join(arr, vbCrLf)
Open pt & a For Output As #1
Print #1, mStr
Close #1
End If
Next
End Sub

vbee

1. Sub 拆分Totxt()
   
2. Dim R&, i&, a$, pt$, mStr$, arr
   
3. pt = ThisWorkbook.Path & ""
   
4. R = Cells(1, Columns.Count).End(1).Column
   
5. For i = 1 To R
   
6. If Cells(1, i) <> "" Then
   
7. a = Cells(1, i) & ".txt"
   
8. b = Cells(Rows.Count, i).End(3).Row + 1
   
9. arr = Application.WorksheetFunction.Transpose(Range(Cells(2, i), Cells(b, i)))
   
10. mStr = Join(arr, vbLf)
    
11. Open pt & a For Output As #1
    
12. Print #1, mStr
    
13. Close #1
    
14. End If
    
15. Next
    
16. End Sub
    

复制代码