วิธีแทรกหลายแถวโดยใช้ vba

คุณสามารถใช้วิธีการต่อไปนี้เพื่อแทรกหลายแถวใน Excel โดยใช้ VBA:

วิธีที่ 1: แทรกแถวในช่วงที่ระบุ

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

มาโครนี้จะแทรกแถวว่างสามแถวในช่วง 5 ถึง 7 ของแผ่นงานที่เรียกว่า Sheet1 และย้ายแถวที่มีอยู่ทั้งหมดลงไป

วิธีที่ 2: แทรกแถวตามเซลล์ที่ใช้งานอยู่

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

มาโครนี้จะแทรกแถวว่างสามแถวโดยเริ่มจากเซลล์ที่คุณเลือกไว้ในแผ่นงานและเลื่อนลงไปตามแถวที่มีอยู่ทั้งหมด

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับสเปรดชีตต่อไปนี้ใน Excel:

ตัวอย่างที่ 1: แทรกแถวในช่วงที่ระบุ

เราสามารถสร้างแมโครต่อไปนี้เพื่อแทรกแถวว่างสามแถวในช่วง 5 ถึง 7 ของแผ่นงานที่เรียกว่า Sheet1 และเลื่อนลงไปตามแถวที่มีอยู่ทั้งหมด:

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดสังเกตว่ามีการแทรกแถวว่างสามแถวลงในเวิร์กชีตที่ตำแหน่งแถวที่ 5 ถึง 7

ค่าที่มีอยู่ก่อนหน้านี้ในบรรทัดเหล่านี้เพิ่งลดลงไป

ตัวอย่างที่ 2: แทรกแถวตามเซลล์ที่ใช้งานอยู่

สมมติว่าขณะนี้เซลล์ A3 ถูกเลือกในสเปรดชีตของฉัน

เราสามารถสร้างแมโครต่อไปนี้เพื่อแทรกแถวว่างสามแถวลงในแผ่นงานโดยเริ่มจากเซลล์ที่เลือกในปัจจุบัน:

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดสังเกตว่ามีการแทรกแถวว่างสามแถวลงในแผ่นงานโดยเริ่มจากแถวที่ 3

ค่าที่มีอยู่ก่อนหน้านี้ในแถวเหล่านี้ลดลง

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีค้นหาบรรทัดที่ใช้ล่าสุด
VBA: วิธีนับจำนวนแถวในช่วง
VBA: วิธีนับจำนวนคอลัมน์ที่ใช้