- 帖子
- 44
- 主題
- 14
- 精華
- 0
- 積分
- 58
- 點名
- 0
- 作業系統
- Window 8
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-8-15
- 最後登錄
- 2017-4-18
|
文字串接語法簡化及延伸請益
以下是小弟拙劣的語法，想請問如何簡化...另外想請問大大的是若日後資料量不只到第四列，如何透過語法自動判讀資料量到第幾列，就迴圈到最後一列。是否是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)
|
發表於 2016-2-28 18:19
| 
