文字串接語法簡化及延伸請益

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2016-2-28 22:03 | 顯示全部帖子

回復 1# 學到老死

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

Public Sub Ex()
Dim ro%, I%
With Worksheets("原始EXCEL檔案")
ro = .Cells(Rows.Count, 1).End(xlUp).Row '尋找最後一列的列號，請看VBE說明:Range.End 屬性
For I = 2 To ro '以列號做迴圈
Worksheets("想要的TXT檔案").Cells(I, "A") = .Cells(I, "A") & .Cells(I, "B") & .Cells(I, "F")
Next
End With
End Sub
Public Sub test()
Dim ro%, Rng As Range
With Worksheets("原始EXCEL檔案")
ro = .Cells(Rows.Count, 1).End(xlUp).Row '尋找最後一列的列號，請看VBE說明:Range.End 屬性
For Each Rng In .Range("A2:A" & ro) '以物件為迴圈
Worksheets("想要的TXT檔案").Cells(Rng.Row, "A") = Rng & Rng.Offset(, 1) & Rng.Offset(, 5)
Next
End With
End Sub
Public Sub test1()
Dim ro%, Rng As Range
With Worksheets("原始EXCEL檔案")
ro = 2
Do Until .Cells(ro, 1) = "" 'A當欄遇上空白就跳離迴圈
Worksheets("想要的TXT檔案").Cells(ro, "A") = .Cells(ro, "A") & .Cells(ro, "B") & .Cells(ro, "F")
ro = ro + 1
Loop
End With
End Sub

複製代碼

靜思自在 : 知識要用心體會，才能變成自己的智慧。