Excel - نسخ البيانات إلى الخلية الفارغة التالية في ورقة جديدة

القضية

أحاول إنشاء مصنف ورقي يحتوي على تفاصيل الإدخال في الورقة 1

A1 ويتم تغيير هذا أسبوعيًا ولكن يجب أن تكون المعلومات الموجودة في هذه الخلية

إدراجها في الخلية الفارغة الأولى في العمود A في الورقة 2.

لقد جربت هذا الكود (أدناه) ولكن لا يبدو أنه يعمل وربما أنا كذلك

فعل شيء خاطئ. هل يمكن لشخص ما أن يعرفني إذا كان يجب أن يعمل هذا الرمز

لهذا الغرض أو هل هناك كود آخر يمكن أن أجربه؟

الكود المستخدم في الوقت الحاضر:

 copytonextsheet () مع أوراق ("Sheet2") n = .Cells (Rows.Count، "A"). End (xlUp) .Row + 1.Cells (n ، "A"). تغيير الحجم (، 4) .Value = _ الخلايا (1 ، "A"). تغيير الحجم (، 4). القيمة تنتهي مع End Sub 

حل

جرب هذا:

 Sub CopyRowsWithNumbersInG () خافت X كخافت طويل LastRow كمصدر خافت طويل كخلفية خافتة لورقة العمل مثل خافت ورقة العمل خافت RowsWithNumbers باسم نطاق مجموعة المصدر = أوراق العمل ("name") تعيين الوجهة = أوراق العمل ("الاسم") مع المصدر LastRow = .Cells (. Rows.Count ، "E"). End (xlUp) .Row For X = 2 To LastRow If IsNumeric (.Cells (X، "E"). Value) and .Cells (X، "E"). Value "" ثم إذا كان RowsWithNumbers ليس شيئًا ، فقم بتعيين RowsWithNumbers = .Cells (X ، "E") ، عدا ذلك ، عيِّن RowsWithNumbers = الاتحاد (RowsWithNumbers ، .Cells (X ، "E")) ينتهي إذا كان End إذا التالي إذا لم يكن RowsWithNumbers فهو شيء .Copy Destination.Range ("A4") End If End With MsgBox "تم تحديث البيانات !!" ، vbExclamation + vbInformation ، "اسم الشركة" End Sub 

شكرًا لك Kioskea_1 على هذه النصيحة.