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

以下是小弟拙劣的語法，想請問如何簡化...另外想請問大大的是若日後資料量不只到第四列，如何透過語法自動判讀資料量到第幾列，就迴圈到最後一列。是否是For...Next 語法呢?
謝謝大大們。

Sub 文字串接語法()

Worksheets("想要的txt檔").Range("a1") = Worksheets("原始excel檔案").Range("a1") & Worksheets("原始excel檔案").Range("b1") & Worksheets("原始excel檔案").Range("f1")

Worksheets("想要的txt檔").Range("a2") = Worksheets("原始excel檔案").Range("a2") & Worksheets("原始excel檔案").Range("b2") & Worksheets("原始excel檔案").Range("f2")

Worksheets("想要的txt檔").Range("a3") = Worksheets("原始excel檔案").Range("a3") & Worksheets("原始excel檔案").Range("b3") & Worksheets("原始excel檔案").Range("f3")

Worksheets("想要的txt檔").Range("a4") = Worksheets("原始excel檔案").Range("a4") & Worksheets("原始excel檔案").Range("b4") & Worksheets("原始excel檔案").Range("f4")

End Sub

文字串接.zip (6.07 KB)

樓主熱帖

學到老死

中學生 Rank: 2

帖子: 44
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: Window 8
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2015-8-15
最後登錄: 2017-4-18

4^#

發表於 2016-2-28 22:30 | 只看該作者

感謝兩位大大指導~

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

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

3^#

發表於 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