วิธีย้ายแถวอื่น ๆ ไปยังคอลัมน์ใน Excel

คุณเคยพยายามย้ายข้อมูลแถวอื่น ๆ ไปยังคอลัมน์ใน Excel หรือไม่เช่นการย้ายแถวคี่ทุกแถวไปยังคอลัมน์เดียวและทุกแถวคู่ไปยังคอลัมน์อื่น ๆ ซึ่งแสดงเป็นภาพหน้าจอด้านล่าง ฉันพบเทคนิคบางอย่างที่สามารถจัดการปัญหานี้ได้ที่นี่

ย้ายทุกแถวไปยังคอลัมน์ด้วยสูตร

ย้ายแถวอื่น ๆ ไปยังคอลัมน์ด้วย VBA

ย้ายแถวอื่น ๆ ไปยังคอลัมน์ด้วย Kutools for Excel

ย้ายทุกแถวไปยังคอลัมน์ด้วยสูตร

สุดทึ่ง! การใช้แท็บที่มีประสิทธิภาพใน Excel เช่น Chrome, Firefox และ Safari!

ประหยัดเวลา 50% และลดการคลิกเมาส์หลายพันครั้งให้คุณทุกวัน!

---

สำหรับผู้ใช้ Excel ส่วนใหญ่การใช้สูตรเพื่อแก้ปัญหาใน Excel เป็นวิธีที่ง่ายที่สุด

1. เลือกเซลล์ถัดจากข้อมูลของคุณแล้วพิมพ์สูตรนี้ = IF (ISEVEN (แถว (B2)), B2, "") (B2 ระบุข้อมูลที่คุณต้องการรับ) ลงไปแล้วกด เข้าสู่ จากนั้นลากการเติมอัตโนมัติเพื่อเติมช่วงที่คุณต้องการใช้สูตรนี้ ตอนนี้ข้อมูลทุกแถวที่สองได้รับในคอลัมน์นี้แล้ว

2. จากนั้นเลือกเซลล์อื่นที่อยู่ถัดจากคอลัมน์ด้านบนแล้วพิมพ์สูตรนี้ = IF (ISODD (ROW (B3)), B3, "") (B3 คือข้อมูลที่คุณต้องการรับ) ลงไปแล้วกด เข้าสู่ จากนั้นลากการเติมอัตโนมัติเพื่อเติมช่วงที่คุณต้องการใช้สูตรนี้ ตอนนี้ข้อมูลทุกแถวที่สามได้รับในคอลัมน์นี้แล้ว

ย้ายแถวอื่น ๆ ไปยังคอลัมน์ด้วย VBA

VBA ต่อไปนี้ยังสามารถย้ายแถวอื่น ๆ ไปยังคอลัมน์ได้อีกด้วย

1 กด F11 + Alt ปุ่มร่วมกันบนแป้นพิมพ์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อแทรกหน้าต่างโมดูลใหม่ จากนั้นคัดลอกโค้ด VBA ตามไปที่หน้าต่าง

VBA: ย้ายแถวอื่น ๆ ไปที่คอลัมน์

Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
    OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
    Set OutRng = OutRng.Offset(1, 0)
Next
End Sub

3 คลิก วิ่ง หรือ F5 บนแป้นพิมพ์และกล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณเลือกช่วงที่จะย้าย ดูภาพหน้าจอ:

4 จากนั้นคลิก OK เพื่อแสดงกล่องโต้ตอบอื่นเพื่อเลือกเซลล์ที่จะแสดงผลลัพธ์ ดูภาพหน้าจอ:

5 คลิก OKและคุณจะเห็นผลลัพธ์ที่แสดงด้านล่าง:

ย้ายแถวอื่น ๆ ไปยังคอลัมน์ด้วย Kutools for Excel

นอกจากสูตรและ VBA แล้วหากคุณติดตั้ง Kutools สำหรับ Excelคุณสามารถใช้ไฟล์ ช่วงการแปลง คุณลักษณะในการย้ายแถวอื่น ๆ ไปยังคอลัมน์อย่างรวดเร็ว

Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

1. เลือกช่วงที่คุณต้องการย้ายแถวอื่น ๆ แล้วคลิก Kutools > ตัวแปลงช่วง > ช่วงการแปลง. ดูภาพหน้าจอ:

2 ใน ช่วงการแปลง โต้ตอบตรวจสอบ คอลัมน์เดียวถึงช่วง in ประเภทการแปลง และตรวจสอบ ค่าคงที่ จากนั้นเลือกหรือป้อน 2 ในรายการใน แถวต่อบันทึก มาตรา. ดูภาพหน้าจอ:

3 คลิก Ok เพื่อเปิดกล่องโต้ตอบเพื่อเลือกเซลล์เดียวเพื่อแสดงผลลัพธ์ดูภาพหน้าจอ:

4 จากนั้นคลิก OK. คุณสามารถเห็นผลลัพธ์ดังที่แสดงด้านล่าง:

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ Transform Range

บทความญาติ:

• เลือกทุกแถวใน Excel
• คัดลอกทุกแถว

---

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

• นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
• ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
• ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
• เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
• สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
• แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
• ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
• รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
• คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ... 

---

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

• เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
• เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
• เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...