[VBA ] 麻煩大家看看有什麼小地方出錯? ^^"
我目前想做的是 尋找所有的"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
→
04/08 10:23, , 1F
04/08 10:23, 1F