วิธีการเปลี่ยนคอลัมน์เป็นแถวและแทรกแถวใหม่เพื่อเติมข้อมูลใน Excel
ในบทความนี้ฉันแนะนำรหัส VBA เพื่อเปลี่ยนคอลัมน์เป็นแถวและแทรกแถวใหม่เพื่อกรอกข้อมูลตามภาพด้านล่างที่แสดงหากคุณสนใจในการดำเนินการนี้โปรดไปที่ด้านล่างเพื่อดูรายละเอียดเพิ่มเติม
เปลี่ยนและแทรกแถวด้วย VBA
ไม่มีวิธีโดยตรงในการเปลี่ยนช่วงและแทรกแถวเพื่อเติมข้อมูลเดียวกัน แต่ที่นี่ฉันสามารถแนะนำรหัส VBA เพื่อแก้ปัญหานี้ได้อย่างรวดเร็ว
1 กด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้ววางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล ดูภาพหน้าจอ:
VBA: เปลี่ยนและแทรกแถว
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3 กด F5 เพื่อเรียกใช้รหัสจากนั้นเลือกช่วงข้อมูลที่คุณต้องการเปลี่ยนและแทรกแถวในกล่องโต้ตอบ popping ดูภาพหน้าจอ:
4 คลิก OK. และช่วงที่เลือกได้ถูกแปลงตามภาพด้านล่างที่แสดง
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!