รบกวนผู้รู้ การนำข้อมูลมากกว่าสอง คอลัม มาเรียงไว้ในคอลัมเดี

[HHHanger]

ตัวอย่าง
คอลัม a มีข้อมูล a c b d d c (จากบนลงล่าง)
คอลัม b มีข้อมูล 1 3 2 5 4 6 (จากบนลงล่าง)

ต้องการนำไปไว้ที่ คอลัม c เป็น a c b d d c 1 3 2 5 4 6 ตามลำดับ (จากบนลงล่าง)

หมายเหตุ
ไม่ต้องการก๊อปปี้ แล้ว วาง เพราะมีเป็น ร้อย คอลัม

ขอบคุณล่วงหน้าครับ

[tupthai]

c1=INDEX($A$1:$B$6,MOD(ROW()-1,6)+1,ROUNDUP(ROW()/6,0)) copy ลงด้านล่าง ครับ

[snasui]

แถมครับ สมมุติข้อมูลอยู่ที่ A1:B6 ที่ C1 คีย์

=INDEX($A$1:$B$6,MOD(ROWS($C$1:C1)-1,COUNTA($A:$A))+1,INT((ROWS($C$1:C1)-1)/COUNTA($A:$A))+1)

Enter > Copy ลงด้านล่าง

[ChoBkuN]

ถ้าข้อมูลใน column A และ B มีจำนวนไม่เท่ากัน จะทำอย่างไรดครับ
a มีข้อมูล 6 row
b มีข้อมูล 9 row

แล้วถ้าเกิดมี column มากกว่า 2 column แต่ละคอลัมน์จำนวนไม่เท่ากัน จะแก้ยังไงดีครับ
หรือว่าใช้ VBA ดีกว่า ?

[snasui]

ช่วงข้อมูลมีเท่าไรให้เพิ่มที่ $A$1:$B$6 ตามช่วงข้อมูลจริง

กรณีมีไม่เท่ากันให้แก้ COUNTA($A:$A) เป็นนับคอลัมน์ที่มีจำนวนข้อมูลมากที่สุด หรือ ส่งไฟล์ตัวอย่างที่ต้องการทราบคำตอบมาครับ

[ChoBkuN]

ประมาณนี้ครับ ให้ข้อมูลเรียงที่คอลัมน์ E

[HHHanger]

ขอบคุณ คุณ tupthai มากๆ ครับ ขอให้ความรู้ของคุณเพิ่มพูนต่อๆไป ครับ

[snasui]

ประมาณนี้ครับ ให้ข้อมูลเรียงที่คอลัมน์ E

ที่เซลล์ E1 คีย์

=INDEX($A$1:$D$14&"",MOD(ROWS($E$1:E1)-1,COUNTA($D:$D))+1,INT((ROWS($E$1:E1)-1)/COUNTA($D:$D))+1)

Enter > Copy ลงด้านล่าง จากนั้น Copy เป็น Value แล้วกรองเอาเฉพาะค่าที่ไม่ว่างและไม่ Error เพื่อจะใช้งานต่อไปครับ

[tupthai]

ตัวอย่างข้อมูลอยู่ที่ A1:D20
คอลัมท์I หาว่าแต่ละคอลัมท์มีกี่แถว
I2=COUNTA(INDIRECT(CHAR(CODE("@")+ROW(1:1))&":"&CHAR(CODE("@")+ROW(1:1)))) copy ลงด้านล่าง
คอลัมท์J หาจำนวนแถวสะสม
J2=SUM($I$2:I2) copy ลงด้านล่าง

ที่ คอลัมท์Kใช้เรียงข้อมูล
K1=INDEX(A$1:$D$20,ROW()-SUMPRODUCT((FREQUENCY(ROW(),$J$2:$J$4))*($J$1:$J$4)),SUMPRODUCT((FREQUENCY(ROW(),$J$2:$J$4))*(ROW($1:$4)))) copy ลงด้านล่าง

[ChoBkuN]

ขอบคุณครับ

[bank9597]

ผมจะใช้ Counta แบบนี้คงผิดหลักสิน่ะครับอาจารย์

=COUNTA(A2)

[snasui]

แล้วแต่ความมุ่งหมายของการนับครับ Counta จะนับทุกอย่าง ไม่ว่าค่านั้นจะเป็น Error หรือ logic หรือ Text หรือ Number เว้นแต่ค่าว่างเปล่า