انا بحاجة الى مساعدة! أحاول إنشاء ورقة عمل للمساعدة في العمل باستثناء أنني لست متعلماً بالكمبيوتر. لقد استخدمت رمزًا سحريًا موجودًا باستثناء فترة قصيرة لا يمكنني تحريرها بنجاح. أحتاج إلى نقل البيانات من التحديد في الورقة 1 بناءً على قيمة إلى الورقة 2. أحتاج إلى حذف الرمز ضمن نطاق معين وليس الصف بأكمله. لدي بيانات أخرى في الصف لا أريد حذفها. لقد قمت بتسمية النطاق على الورقة 1 بـ "RESTORATION" (= Sheet1! $ A $ 15: $ F $ 54) على أمل أن أتمكن من دمج الاسم في الكود. لا أعرف كيفية تغيير الرمز لنقل المعلومات وحذفها ضمن النطاق المسمى "RESTORATION". هذا هو الكود الأصلي الذي أحتاج إلى تعديله:
Sub
Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim
xRg
As
Range
Dim
xCell
As
Range
Dim
I
As
Long
Dim
J
As
Long
Dim
K
As
Long
I = Worksheets(
"Sheet1"
).UsedRange.Rows.Count
J = Worksheets(
"Sheet2"
).UsedRange.Rows.Count
If
J = 1
Then
If
Application.WorksheetFunction.CountA(Worksheets(
"Sheet2"
).UsedRange) = 0
Then
J = 0
End
If
Set
xRg = Worksheets(
"Sheet1"
).Range(
"C1:C"
& I)
On
Error
Resume
Next
Application.ScreenUpdating =
False
For
K = 1
To
xRg.Count
If
CStr
(xRg(K).Value) =
"Done"
Then
xRg(K).EntireRow.Copy Destination:=Worksheets(
"Sheet2"
).Range(
"A"
& J + 1)
xRg(K).EntireRow.Delete
If
CStr
(xRg(K).Value) =
"Done"
Then
K = K - 1
End
If
J = J + 1
End
If
Next
Application.ScreenUpdating =
True
End
Sub