▀ EXCEL 1 Column 15000 แถว ต้องการทำให้เป็น 100 column 150 แถว มีอะไรที่มันออโต้มั้ยครับ

เริ่มโดย Lord of Dollars, 25 พฤศจิกายน 2011, 16:11:15

หัวข้อก่อนหน้า - หัวข้อถัดไป

0 สมาชิก และ 1 ผู้มาเยือน กำลังดูหัวข้อนี้

Lord of Dollars

EXCEL 1 Column 15000 แถว ต้องการทำให้เป็น 100 column 150 แถว มีอะไรที่มันออโต้ง่ายๆมั้ยครับ ไม่เน้นว่าต้องเรียงลำดับยังไง

เคยทำเป็น php แต่ลืมหมดแล้ว

ไอมาโครก็น่าจะทำได้

ทั้งสองอย่าง ถ้าจะทำเองต้องรื้อฟื้นความจำประมาณสามวัน  :-X  :-X :-X

มีใครแนะนำ tool ได้มั้ยครับ หรือใครหลับตาแล้วนึกโค๊ดออกเลยช่วยหน่อยนะครับ  :wanwan008:

workshop


workshop

Sub SortColumn()
Range("a1").Select
While Not IsEmpty(Selection.Value)
    For i = 1 To 100
        Cells(i, 3 + j).Value = Selection.Value
        Selection.Offset(1, 0).Select
    Next i
    j = j + 1
Wend
End Sub


ใส่คำสั่งนี้ใน module นะครับ โดยที่ข้อมูลที่ต้องการอยู่ใน column A ผมทำให้ไม่จำกัดว่ามีกี่แถว มันจะเรียงไปเรื่อยๆ
:wanwan020: :wanwan020: :wanwan020: :wanwan020: