提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Excel中同时在多个工作表上运行相同的宏?

通常,我们可以在工作表中运行一个宏,如果有多个工作表需要应用这个相同的宏,你应该逐个触发代码。 如果有任何其他快速方法在Excel中一次在多个工作表上运行相同的宏?

使用VBA代码在多个工作表上同时运行或执行相同的宏


从多个工作簿中删除所有宏:

Kutools for Excel's 批量删除所有宏 实用程序可以帮助您根据需要从多个工作簿中删除所有宏。 现在下载并免费试用Kutools for Excel!

如果单元格更改3,doc运行宏

Kutools for Excel:比200方便的Excel加载项,可以在60天免费试用。 下载并免费试用现在!


使用VBA代码在多个工作表上同时运行或执行相同的宏

要同时在多个工作表上运行宏而不逐个触发它,您可以应用以下VBA代码,请执行以下操作:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插页 > 模块,并粘贴在下面的宏 模块 窗口。

VBA代码:同时在多个工作表上运行相同的宏:

Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
Sub RunCode()
    'your code here
End Sub

注意:在上面的代码中,请复制并粘贴您自己的代码,而不是 小组 标题和 END SUB 之间的页脚 Sub Runcode() END SUB 脚本。 查看截图:

doc在所有工作表1中运行宏

3。 然后将光标放在第一部分宏上,然后按 F5 运行代码的关键,您的宏代码将逐个应用于表。


Kutools for Excel - 最佳办公生产力工具提高80%的生产力

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能60天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    dmitri · 8 months ago
    1004 runtime error
  • To post as a guest, your comment is unpublished.
    mare · 10 months ago
    Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
    xSh.Select
    Call RunCode
    Next
    Application.ScreenUpdating = True
    End Sub
    Sub RunCode()
    With Worksheets("2018")
    .EnableOutlining = True
    .EnableSelection = xlNoRestrictions
    .Protect Password:="workana1234", _
    Contents:=True, UserInterfaceOnly:=True
    End With
    End Sub


    Hola! he seguido las pautras pero me señala como error la fila xSh.Select.

    Al dar F5 me indica que se ha producido un error 1004 en tiempo de ejecucion.

    Error en el metodo "Select" de Objeto "_Worksheet"



    Help!!!!