วิธีคัดลอกข้อมูลไปยังแถวว่างถัดไปของแผ่นงานอื่นใน Excel

หากคุณต้องการคัดลอกข้อมูลบางส่วนในช่วง A1:E1 ของ Sheet1 และวางลงในแถวว่างถัดไปของ Sheet2 ในเวิร์กบุ๊กอย่างรวดเร็วตามภาพหน้าจอด้านล่าง คุณจะทำอย่างไรเพื่อให้บรรลุเป้าหมายดังกล่าวได้อย่างง่ายดาย บทความนี้จะแนะนำวิธี VBA ให้คุณทราบ

คัดลอกข้อมูลไปยังแถวว่างถัดไปของแผ่นงานอื่นด้วยรหัส VBA

คัดลอกข้อมูลไปยังแถวว่างถัดไปของแผ่นงานอื่นด้วยรหัส VBA

คุณสามารถเรียกใช้โค้ด VBA ด้านล่างเพื่อคัดลอกข้อมูลในแผ่นงานบางแผ่นและวางในแถวว่างถัดไปของแผ่นงานอื่นโดยอัตโนมัติ

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: คัดลอกข้อมูลไปยังแถวว่างถัดไปของแผ่นงานอื่น

Private Sub CommandButton1_Click()
    Dim xScreenUpdating As Boolean
    Dim xPasteSht As Worksheet
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xPasteSht = Worksheets("Sheet2")
    xScreenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xRg.Copy
    xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = xScreenUpdating
End Sub

หมายเหตุ: ในรหัส Sheet2 คือแผ่นงานปลายทางของข้อมูลที่คัดลอก คุณสามารถเปลี่ยนแปลงได้ตามความต้องการของคุณ

3 กด F5 คีย์เพื่อเรียกใช้รหัสในป๊อปอัป Kutools สำหรับ Excel โปรดเลือกช่วงที่คุณต้องการคัดลอกไปยังแถวว่างถัดไปของ Sheet2 จากนั้นคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

ข้อมูลที่คัดลอกจาก Sheet1 จะถูกวางลงในแถวว่างถัดไปของ Sheet2 ทันที ดังที่แสดงในภาพหน้าจอด้านล่าง