ต้องการเลื่อนข้อมูลขึ้นไปแทนที่ในแถวว่าง

[Wreuangsri]

ผมต้องการเลื่อนข้อมูลขึ้นไปแทนที่ในแถวว่าง จะต้องคีย์คำสั่งอย่างไรครับ

[snasui]

สามารถทำตามด้านล่างครับ

1. คลุมข้อมูลในคอลัมน์แรก
2. กดแป้น F5 เพื่อเปิดหน้าต่าง Goto
3. คลิกปุ่ม Special > เลือก Blanks > คลิกปุ่ม OK
4. คลิกขวาเซลล์ใด ๆ ที่ถูกเลือก > Delete > Entire row > OK

[Wreuangsri]

ขอบคุณครับ

และจะใช้วิธีคืย์คำสั่งได้หรือไม่ครับ

[snasui]

หากหมายถึงเขียน Code เข้าไปจัดการ สามารถทำได้และ Code สามารถทำได้แทบทุกอย่างเหนือกว่าความสามารถทั่ว ๆ ไปครับ

การใช้ Code จะต้องทำตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยมาถามกันต่อครับ

[Wreuangsri]

ทำอย่างไรที่จะทำให้แต่ละสีที่ไฮท์ไลท์อยู่แถวเดียวกัน

[norkaz]

...

B17

=IFERROR(0&AGGREGATE(15,6,--($N$2:$W$11)/(--($N$2:$W$11)<=40+ROWS($B$17:B17)*10-10),COLUMNS($B17:B17)+SUMPRODUCT(--($B$16:K16<>""))),"")

Norkaz

[Wreuangsri]

ขอบคุณครับคุณ norkaz

[Wreuangsri]

sheet 2 ถ้าข้อมูลมากๆแบบนี้ ที่ B15 จะต้องคีย์อย่างไรครับ

[norkaz]

...


B15

=IFERROR(TEXT(AGGREGATE(15,6,--($B$4:$AY$13)/(--($B$4:$AY$13)<=40+ROWS($B$15:B15)*10-10),COLUMNS($B$15:B15)+SUMPRODUCT(--($B$14:AY14<>""))),"000"),"")

Norkaz

[Wreuangsri]

ขอใหม่ครับ ที่ B15 sheet 3 จะต้องคีย์อย่างไรครับ

[norkaz]

..

ที่ B15 เป็นต้นไป คือตัวอย่างคำตอบ ต้องการเขียนสูตรให้ผลลัพธ์เป็นแบบนั้น ใช่ไหมครับ

Norkaz

[norkaz]

...

Sheet3

B15:Kxx

=IFERROR(INDEX(B$1:B$13,AGGREGATE(15,6,ROW($B$4:$B$13)/($B$4:$B$13<>""),ROW(B1))),"")

Copyลงล่าง และไปขวา ถึงคอลัมน์ K

==========

L15:Uxx

=IFERROR(INDEX(L$1:L$13,AGGREGATE(15,6,ROW($L$4:$L$13)/($L$4:$L$13<>""),ROW(L1))),"")

Copyลงล่าง และไปขวา ถึงคอลัมน์ U

==========

V15:AExx

=IFERROR(INDEX(V$1:V$13,AGGREGATE(15,6,ROW($V$4:$V$13)/($V$4:$V$13<>""),ROW(V1))),"")

Copyลงล่าง และไปขวา ถึงคอลัมน์ AE

==========

AF15:AOxx

=IFERROR(INDEX(AF$1:AF$13,AGGREGATE(15,6,ROW($AF$4:$AF$13)/($AF$4:$AF$13<>""),ROW(AF1))),"")

Copyลงล่าง และไปขวา ถึงคอลัมน์ AO

==========

AP15:AYxx

=IFERROR(INDEX(AP$1:AP$13,AGGREGATE(15,6,ROW($AP$4:$AP$13)/($AP$4:$AP$13<>""),ROW(AP1))),"")

Copyลงล่าง และไปขวา ถึงคอลัมน์ AY

Norkaz

[Wreuangsri]

ขอบคุณมากๆครับ

[Wreuangsri]

ถ้าแบบนี้ผมลองทำแต่ไม่ได้ครับ

[norkaz]

..

ตัวอย่างเดิม ที่ถามมาตั้งแต่แรก กับ ตัวอย่าง ใหม่ ที่สอบถามมา ไม่เหมือนกัน
สูตรที่เขียนไป จึงใช้ไม่ได้

ปรับสูตรไปตามนี้ครับ

B15:Kxx

=IFERROR(INDEX($A4:$K4,AGGREGATE(15,6,COLUMN($B$4:$K$4)/($B$4:$K$4<>""),COLUMNS($B$4:B$4))),"")

L15:Uxx

=IFERROR(INDEX($A4:$U4,AGGREGATE(15,6,COLUMN($L$4:$U$4)/($L$4:$U$4<>""),COLUMNS($L$4:L$4))),"")

V15:Aexx

=IFERROR(INDEX($A4:$AE4,AGGREGATE(15,6,COLUMN($V$4:$AE$4)/($V$4:$AE$4<>""),COLUMNS($V$4:V$4))),"")

AF15:Aoxx

=IFERROR(INDEX($A4:$AO4,AGGREGATE(15,6,COLUMN($AF$4:$AO$4)/($AF$4:$AO$4<>""),COLUMNS($AF$4:AF$4))),"")

AP15:Ayxx

=IFERROR(INDEX($A4:$AY4,AGGREGATE(15,6,COLUMN($AP$4:$AY$4)/($AP$4:$AY$4<>""),COLUMNS($AP$4:AP$4))),"")


Norkaz

[Wreuangsri]

ขอบคุณครับ คุณ Norkaz

[Wreuangsri]

ถ้าแบบนี้จะทำอย่างไรครับ

[norkaz]

...

M4

=IFERROR(INDEX(B:B,AGGREGATE(15,6,ROW($B$4:$B$13)/($B$4:$B$13<>""),ROW(B1))),"")

Copy ไปขวา และลงล่าง

Norkaz

[Wreuangsri]

ทำผลที่ได้เช่นไฟล์แนบ sheet 2 ได้หรืแไม่ครับ

[Bo_ry]

M4
=IFERROR(INDEX(B$4:B$13,AGGREGATE(15,6,ROW($B$4:$K$13)/(MMULT(N(+$B$4:$K$13),TRANSPOSE(COLUMN($B$4:$K$13)^0))>0),ROWS(M$4:M4))-ROW(B$3)),"")

Ctrl+Shift+Enter