[VBA ] 麻煩大家看看有什麼小地方出錯？ ^^"

[Riddle616 (謎兒)]

   我目前想做的是 尋找所有的"123"&"456"然後換成"abc"&"def"

   我覺得是sku_A & j  這個地方出錯，可是不曉得應該怎麼改才對

   麻煩大家幫我解決這個問題囉  ^^"

Sub ReplaceAll()

sku_A1 = "123"
sku_A2 = "456"
sku_B1 = "abc"
sku_B2 = "def"

For j = 1 To 2
        For i = 1 To 50
                Set sku = Cells.Find(what:=sku_A & j, after:=ActiveCell)

                If sku Is Nothing Then
                        Exit Sub
                Else
                        sku.Activate
                End If

        GTM_SKU = ActiveCell.Value
        ctech_SKU = Replace(GTM_SKU, sku_A & j, sku_B & j, 1, 1)
        ActiveCell.Value = ctech_SKU

        Next

Next

End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.163.129.129
→ Riddle616:用陣列就可以解決了  ^^"  久沒寫程式，一時忘了