Option Explicit
Sub Macro1()
Dim v As Variant
Range("a1").Select
v = ""
Do While Len(ActiveCell.Offset(0, 0).Value) <> 0
v = v & ActiveCell.Offset(0, 0).Value & Chr(10)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 1).Value = v
End Sub
ยินดีต้อนรับคุณ, บุคคลทั่วไป กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน
เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น |
|