Nếu ko dùng vòng lặp thì bạn thử cách này xem:
tại ô B1="ABC"&A1 => kéo hoặc double click chuột cho chạy tới B10, sau đó dùng code sau:
Public Sub khong_dung_vong_lap()
Range("B1:B10").Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C1:C10").Copy
Range("A1:A10").Select
ActiveSheet.Paste
Range("C1:C10") = ""
End Sub