[VBA]VBA實際運用合併字串

基本上，從來沒寫過vba
真的很複雜的，也是開C#  用epplus寫一寫就收工了。
但這次題目說簡單也簡單，重點也只做一次。

代碼	名稱
2004	臺灣銀行
20040037	營業部
20040059	公庫部
20040071	館前分行
2004093	臺南分行
20040107	臺中分行
20040118	高雄分行

要把台灣銀行的名稱加進分行名稱的前面
但銀行很多間，又懶得去比對（雖然用手工做可能比寫程式快）。

以下開始，



基本參數介紹

宣告變數
Dim XX as String
取出最後一列有文字的列數(以excel來說列就是左邊的數字）
Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
取出最後一欄有文字的欄數（以excel來說欄就是上面的英文）
Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column
取欄位的值（cells(3,1)等同於A3)
cells(3,1).Value
訊息方塊
MsgBox “123” & xx
迴圈
For i to 10
    …..
Next i
條件判斷
If a>10 Then
…
else
…
End if

綜合上面

Sub analysis()
     Dim bank As String
     Dim lastRow As Integer
     '取得最後一行
     lastRow = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
     'bank = Cells(Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row, 1).Value
     Dim i As Integer
     For i = 1 To 10
         If Len(Cells(i, 1).Value) > 4 Then
             Cells(i, 2).Value = Trim(bank) & Trim(Cells(i, 2).Value)
         Else
             bank = Cells(i, 2).Value
         End If
     Next
End Sub



Result

參考來源：
電腦學習園地-Excel VBA 取得工作表的最後一欄或最後一列
GTW-Excel VBA 程式設計教學：變數的宣告、定義與操作
GTW-Excel VBA 程式設計教學：活頁簿、工作表與儲存格
GTW-Excel VBA 程式設計教學：迴圈控制，For Loop、For Each 與 Do Loop
GTW-Excel VBA 程式設計教學：條件判斷式，If Then、Else 與 Select Case