=>將L排資料取代成M排
Sub 批次取代()
AAA = 2
For i = 1 To 150 Step 1
Cells.Replace What:=Sheets("工作表1 (3)").Range("L" & AAA), Replacement:=Sheets("工作表1 (3)").Range("M" & AAA), LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
AAA = AAA + 1
Next
End Sub
