ไปยังเนื้อหาหลัก

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

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

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-1

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

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

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


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

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

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

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-2

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

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-3


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

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

1 กด F11 + อัลเทอร์เนทีฟ ปุ่มร่วมกันบนแป้นพิมพ์เพื่อเปิด 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 บนแป้นพิมพ์และกล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณเลือกช่วงที่จะย้าย ดูภาพหน้าจอ:

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-4

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

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-5

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

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-6


ลูกศรสีฟ้าฟองขวา ย้ายแถวอื่น ๆ ไปยังคอลัมน์ด้วย Kutools for Excel

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

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

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

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-7

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

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-8

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

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-9

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

doc-ทุก ๆ อื่น ๆ แถวถึงคอลัมน์-10

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


บทความญาติ:

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Perfect, thank you!
This comment was minimized by the moderator on the site
Thank you so much! this worked :)
This comment was minimized by the moderator on the site
What about converting every line in which there are words into columns, and not numbers?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations