كيفية نسخ البيانات إلى الصف الفارغ التالي من ورقة عمل أخرى في إكسيل؟

لنفترض أنك تريد نسخ بيانات معينة في النطاق A1: E1 من الورقة 1 ولصقها بسرعة في الصف الفارغ التالي من الورقة 2 في مصنف كما هو موضح أدناه ، ما الذي يمكنك القيام به بسهولة؟ ستقدم لك هذه المقالة طريقة VBA.

انسخ البيانات إلى الصف الفارغ التالي من ورقة عمل أخرى برمز VBA

---

انسخ البيانات إلى الصف الفارغ التالي من ورقة عمل أخرى برمز VBA

يمكنك تشغيل كود فبا أدناه لنسخ البيانات في ورقة معينة ولصقها في الصف الفارغ التالي من ورقة عمل أخرى تلقائيًا.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الوحدة النمطية.

كود فبا: انسخ البيانات إلى الصف الفارغ التالي من ورقة عمل أخرى

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

ملاحظة: في الكود ، الورقة 2 هي ورقة العمل الوجهة للبيانات المنسوخة. يمكنك تغييره بناءً على حاجتك.

3. اضغط على F5 مفتاح لتشغيل التعليمات البرمجية ، في ظهرت كوتولس ل إكسيل في مربع الحوار ، يرجى تحديد النطاق الذي تريد نسخه إلى الصف الفارغ التالي من الورقة 2 ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

ثم يتم لصق البيانات المنسوخة من الورقة 1 في الصف الفارغ التالي من الورقة 2 المحددة على الفور كما هو موضح أدناه لقطة الشاشة: