รบกวนขอเทคการเรียงข้อมูลใหม่ด้วยครับ

[akung]

ผมมีข้อมูลอยู่ประมาณ 1 พันราย ต้องการเรียงข้อมูลใหม่เพื่อใช้ในการออก Label ส่งจดหมายครับไม่ทราบพอจะมีวิธีหรือเทคนิคอะไรหรือเปล่าครับขอบคุณครับ

[songsug]

เอาแบบนี้ไปแก้ขัดก่อนนะครับ พอดีวันนี้ฉลองกันนิดหน่อย เลยคิดไม่ค่อยออก

Code: Select all

Private Sub cmdSort_Click()
Row = 2
MyPaste = 2
Do While Range("A" & Row).Value <> ""
    Range("A" & Row, "C" & Row + 1).Copy
    Range("E" & MyPaste).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    MyPaste = Selection.Row
    Row = Row + 2
    MyPaste = MyPaste + 4
Loop
MsgBox "เรียบร้อยแล้วครับ", vbOKOnly, "สถานะการทำงาน"
Application.CutCopyMode = xlCopy
Range("A2").Select
End Sub

การทำงานก็ไม่มีอะไรมากครับ ก็เขียนตามที่คุณใ้ห้มานั่นแหละ

[akung]

เอาแบบนี้ไปแก้ขัดก่อนนะครับ พอดีวันนี้ฉลองกันนิดหน่อย เลยคิดไม่ค่อยออก

Code: Select all

Private Sub cmdSort_Click()
Row = 2
MyPaste = 2
Do While Range("A" & Row).Value <> ""
    Range("A" & Row, "C" & Row + 1).Copy
    Range("E" & MyPaste).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    MyPaste = Selection.Row
    Row = Row + 2
    MyPaste = MyPaste + 4
Loop
MsgBox "เรียบร้อยแล้วครับ", vbOKOnly, "สถานะการทำงาน"
Application.CutCopyMode = xlCopy
Range("A2").Select
End Sub

การทำงานก็ไม่มีอะไรมากครับ ก็เขียนตามที่คุณใ้ห้มานั่นแหละ

ขอบคุณมากครับ ไม่เคยรู้เลยว่า Transpose ไว้ใช้ทำงานลักษณะนี้เอง

[songsug]

Transpose ใช้ในกรณีที่เราต้องการวางข้อมูลสลับกับข้อมูลตั้งต้น เช่น คัดลอกมาเป็น Row แล้ววางเป็น Column ครับ หรือ คัดลอกมาเป็นแบบ Column แล้ววางเป็น Row ครับ (สวัสดีวันสงกรานต์ครับ)