Mở module mới ra dán code này vào làm:
Sub process_text()
Dim v As Range, c As Range, l As String
Set v = Application.InputBox(prompt:="Chon vung can xu ly", Type:=8)
For Each c In v
l = l & c.Value & ";"
Next
Set v = Application.InputBox(prompt:="Chon vung paste", Type:=8)
v.Resize(UBound(Split(l, ";"))) = Application.Transpose(Split(l, ";"))
End Sub