批次取代

=>將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