Sub change()
Dim rng As Range, cell As Range
Set rng = Range("A1:A" & Cells(65536, "a").End(xlUp).Row)
For Each cell In rng
If cell.Value <> "" Then
cell.Offset(0, 2).Value = cell.Offset(0, 2).Value & cell.Value
End If
Next cell
MsgBox "Done"
End Sub
|