Excel 如何将一系列单元格从一个工作表复制到其他24个工作表

我想在其他18个工作表中复制一定范围的单元格。在下面的代码中，我提到了“student#1”，但总共有24页，其中包含。我写的代码是这样的：

Sub copyrange()
Sheets("stn-1questions").Range("d1:f26").Copy Sheets("student#1").Range("d10")
End Sub

如果有人能帮助我，我将不胜感激。您可以试试这个：

Sub main()
Dim i As Integer
Dim strSheet As String
For i = 1 To 18
    strSheet = "student#" & Strings.Trim(Str(i))
    Call Sheets("stn-1questions").Range("d1:f26").Copy(Sheets(strSheet).Range("d10"))
Next i
End Sub

它将在每个工作表中循环并将值复制到相应的位置

您可以尝试以下操作：

Sub main()
Dim i As Integer
Dim strSheet As String
For i = 1 To 18
    strSheet = "student#" & Strings.Trim(Str(i))
    Call Sheets("stn-1questions").Range("d1:f26").Copy(Sheets(strSheet).Range("d10"))
Next i
End Sub

---

它将在每个工作表中循环，并将值复制到相应的位置

这将在宏工作簿中的每个工作表中循环，并将范围复制到包含“student#”的每个工作表中

---

这将循环遍历宏工作簿中的每个工作表，并将范围复制到包含“student#”的每个工作表中

---

如果你接受你喜欢的答案，请使用。单击答案旁边的提纲勾号。如果您接受您喜欢的答案，请使用该选项。点击答案旁边的提纲勾选。np，很高兴我能帮忙。np，很高兴我能帮忙。