lpk187

回復 1# 學到老死

下面有3個模式，給你參考，(如，你的問題不只下面這3種模式)

1. Public Sub Ex()
   
2.     Dim ro%, I%
   
3.     With Worksheets("原始EXCEL檔案")
   
4.         ro = .Cells(Rows.Count, 1).End(xlUp).Row '尋找最後一列的列號，請看VBE說明:Range.End 屬性
   
5.         For I = 2 To ro '以列號做迴圈
   
6.             Worksheets("想要的TXT檔案").Cells(I, "A") = .Cells(I, "A") & .Cells(I, "B") & .Cells(I, "F")
   
7.         Next
   
8.     End With
   
9. End Sub
   
10. 
    
11. Public Sub test()
    
12.     Dim ro%, Rng As Range
    
13.     With Worksheets("原始EXCEL檔案")
    
14.         ro = .Cells(Rows.Count, 1).End(xlUp).Row '尋找最後一列的列號，請看VBE說明:Range.End 屬性
    
15.         For Each Rng In .Range("A2:A" & ro) '以物件為迴圈
    
16.             Worksheets("想要的TXT檔案").Cells(Rng.Row, "A") = Rng & Rng.Offset(, 1) & Rng.Offset(, 5)
    
17.         Next
    
18.     End With
    
19. End Sub
    
20. 
    
21. Public Sub test1()
    
22.     Dim ro%, Rng As Range
    
23.     With Worksheets("原始EXCEL檔案")
    
24.         ro = 2
    
25.         Do Until .Cells(ro, 1) = "" 'A當欄遇上空白就跳離迴圈
    
26.             Worksheets("想要的TXT檔案").Cells(ro, "A") = .Cells(ro, "A") & .Cells(ro, "B") & .Cells(ro, "F")
    
27.             ro = ro + 1
    
28.         Loop
    
29.     End With
    
30. End Sub

複製代碼