Excel 使用循环将多个工作表复制到同一工作簿中的多个不同工作表中

我有这个密码。我可以用一个循环用一个代码复制所有的工作表吗

Sub clearLKP_68()
Sheet7.Cells.Clear
End Sub


Sub copyFromRel68ToLKP_68()
Sheets("Rel 6.8").Columns("A:R").copy Sheets("LKP_68").Range("A1")
End Sub

Sub clearLKP_69()
Sheet8.Cells.Clear
End Sub


Sub copyFromRel69ToLKP_69()
Sheets("Rel 6.9").Columns("A:R").copy Sheets("LKP_69").Range("A1")
End Sub

Sub clearLKP_70()
Sheet9.Cells.Clear
End Sub


Sub copyFromRel70ToLKP_70()
Sheets("Rel 7.0").Columns("A:R").copy Sheets("LKP_70").Range("A1")
End Sub

---

这对你有用吗？请随时询问是否有任何不清楚的地方

Option Explicit

Sub test()
  Dim separator As String
  Dim i As Long

  separator = Application.DecimalSeparator
  Application.DecimalSeparator = "."
  For i = 68 To 70
    Worksheets("LKP_" & CStr(i)).Cells.Clear
    Worksheets("Rel " & Format(i / 10#, "0.0")).Columns("A:R").Copy Destination:=Worksheets("LKP_" & CStr(i)).Range("A1")
  Next i
  Application.DecimalSeparator = separator
End Sub

---

非常感谢，它工作得非常好。谢谢你，苏much@AnkitaAgrawal如果它解决了您的问题，请随意投票或将其标记为您问题的解决方案；-）艾里克道德：你也能解决这个问题吗。