Sub
Test2()
Dim
vArr
As
Variant
, i
As
Long
vArr = Range(
"C1:C"
& Cells(Rows.Count,
"C"
).
End
(xlUp).Row)
For
i = 1
To
UBound(vArr)
vArr(i, 1) =
"@$B$1*"
& vArr(i, 1)
Next
Range(
"C1"
).Resize(UBound(vArr)) = vArr
Columns(
"C:C"
).Replace What:=
"@"
, Replacement:=
"="
, LookAt:=xlPart, _
SearchOrder:=xlByRows, FormulaVersion:=xlReplaceFormula2
End
Sub