首页 文章

用于复制粘贴命令的宏用于同一个excel文件的各种工作表？

提问于
浏览 次
0

我是excel的新手，我创建了大约50张具有不同名称的excel电子表格 . 我想将单元格 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 ....就像那张表格50

excel excel-vba vba

1 回答

  • 0

    下一个代码将 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

    如果您只想在 a25:a35 中清除内容，请删除第 ws.Range("a25:a35").Delete xlShiftUp 行并取消注释第 'ws.Range("a25:a35").ClearContents 行

    回复于

相关问题