问题是要获取一个代码来将范围从多张纸复制到最终一张纸，其值低于我的代码，它会下降到第23张纸。因为我不知道该怎么做，因此我不得不手动进行其余的有什么办法可以帮助我设置代码，该代码将自动复制该范围并将其粘贴到最终工作表“ ALL SURVEY”中
Sheets("2").Range("U3:X3").Copy
Sheets("ALL SURVEY").Range("E2").*PasteSpecial xlPasteValues*
Sheets("3").Range("U3:X3").Copy
Sheets("ALL SURVEY").Range("E3").*PasteSpecial xlPasteValues*
Sheets("4").Range("U3:X3").Copy
Sheets("ALL SURVEY").Range("E4").*PasteSpecial xlPasteValues*
Sheets("5").Range("U3:X3").Copy
Sheets("ALL SURVEY").Range("E5").*PasteSpecial xlPasteValues*
如果您能帮助我完成这项艰巨的任务，将不胜感激。谢谢
您可以执行以下操作：
Sub copyPaste()
Dim survey_sheet As Worksheet, count As Long
count = 1 'start pasting from this row
For Each survey_sheet In ThisWorkbook.Sheets
If survey_sheet.Name <> "ALL SURVEY" Then
survey_sheet.Range("U3:X3").Copy
Sheets("ALL SURVEY").Range("E" & count).PasteSpecial xlPasteValues
count = count + 1
End If
Next survey_sheet
End Sub
正如您在上面的宏中看到的那样，中的For所有工作表都有一个循环Workbook。当它经历了每一个过程时，它将结束。
该If语句是为了避免将count变量粘贴到“ ALL SURVEY”工作表的下一个空行中，并将其粘贴到最终工作表中。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句