同一excel文件的不同工作表的复制粘贴命令宏？

我是excel的新手，我创建了excel电子表格，大约有50张不同名称的表格。我想将单元格

a5:a10

复制到单元格

b15:b20

的所有工作表中

我还想从每张工作表中删除单元格

a25:a35

目前我已经这样写了，但是太长了，无法把所有的表格都写进去。是否有其他可以复制并粘贴到所有工作表的快捷方法

Sheets("Sheet1").Select
Range("a5:a10").Select
Selection.Copy
Sheets("Sheet2").Select
Range("b10:b20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

---

工作表的名称：sheet1、sheet2、sheet3…类似于sheet50，下一个代码将范围

a5:a10

从sheet1复制到

b15:b20

中的另一张工作表，并从每张工作表中删除范围

a25:a35

：

Sub test()
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
            ws.Range("b15:b20").Value = Worksheets("Sheet1").Range("a5:a10").Value
        End If

        'ws.Range("a25:a35").ClearContents
        ws.Range("a25:a35").Delete xlShiftUp
    Next

End Sub

子测试（）
将ws设置为工作表
对于此工作簿中的每个ws。工作表
如果ws.Name为“Sheet1”，则
ws.Range（“b15:b20”）.Value=工作表（“Sheet1”）.Range（“a5:a10”）.Value
如果结束
“ws.Range”（“a25:a35”）.ClearContents
ws.Range（“a25:a35”）。删除xlShiftUp
下一个
端接头

如果只想清除

a25:a35

中的内容，请删除行

ws.Range（“a25:a35”）。删除xlShiftUp

并取消注释行

的ws.Range（“a25:a35”）。ClearContents