[µo°Ý] replace »yªk

t8899

µL¦¹»yªk ?? ==> Cells(3, i).Formula.Replace
§ï¦¨
Sub macro1()
Dim i As Integer, K
For i = 3 To 5 Step 1
Set K = Cells(3, i).Formula
K.Replace "*", "=if(a1="""",""""," & Cells(3, i) & ")" '«¬ºA¤£²Å¦X
Next
End Sub