返回列表 上一主題 發帖

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

學到老死

帖子
44 
主題
14 
精華
0 
積分
58 
點名
0  
作業系統
Window 8 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2015-8-15 
最後登錄
2017-4-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-2-28 18:19 | 只看該作者

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

以下是小弟拙劣的語法，想請問如何簡化...另外想請問大大的是若日後資料量不只到第四列，如何透過語法自動判讀資料量到第幾列，就迴圈到最後一列。是否是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)

收藏 分享

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2016-2-28 22:00 | 只看該作者
回復 1# 學到老死
  1. Sub EX()
  2.     Dim xA As Worksheet, xB As Worksheet
  3.     Set xA = ThisWorkbook.Worksheets("原始EXCEL檔案")
  4.     Set xB = ThisWorkbook.Worksheets("想要的TXT檔案")
  5.     For i = 2 To xA.Cells(4 ^ 8, 1).End(xlUp).Row
  6.         xB.Cells(i, 1) = xA.Cells(i, 1) & xA.Cells(i, 2) & xA.Cells(i, 6)
  7.     Next i
  8. End Sub
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

lpk187

帖子
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種模式)
  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

  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

  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
複製代碼

TOP

學到老死

帖子
44 
主題
14 
精華
0 
積分
58 
點名
0  
作業系統
Window 8 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2015-8-15 
最後登錄
2017-4-18 
4#
發表於 2016-2-28 22:30 | 只看該作者
感謝兩位大大 指導~

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題