作者Riddle616 (谜儿)
看板Visual_Basic
标题[VBA ] 麻烦大家看看有什麽小地方出错？ ^^"
时间Sat Apr 7 11:40:27 2007
我目前想做的是 寻找所有的"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
1F：→ Riddle616:用阵列就可以解决了 ^^" 久没写程式，一时忘了 04/08 10:23