在EXCEL中将宏设定为所有工作簿可用，并且将宏附加到工具栏按钮上

2023-10-24 01:34| 来源: 网络整理| 查看: 265

背景

工作中可能会频繁的对表格进行某些重复性的操作，这时候可以通过录制宏将重复的操作记录下来，然后就可以调用宏完成重复的工作。

1.自己录制的宏

我们以输入26个大写字母为例步骤如下：在这里插入图片描述

2.其他地方获取的宏代码

我们以汇总工作表为例，代码如下：

Sub 工作表汇总() Dim sht As Worksheet, rng As Range, k&, tRow&, temp Application.ScreenUpdating = False temp = InputBox("请输入需要合并的工作表所包含的关键词：", "提醒") If StrPtr(temp) = 0 Then Exit Sub tRow = Val(InputBox("请输入标题的行数", "提醒")) If tRow < 0 Then MsgBox "标题行数不能为负数。", 64, "警告": Exit Sub Cells.ClearContents For Each sht In Worksheets If sht.Name ActiveSheet.Name Then If InStr(1, sht.Name, temp, vbTextCompare) Then Set rng = sht.UsedRange k = k + 1 If k = 1 Then rng.Copy [a1].PasteSpecial Paste:=xlPasteValues Else rng.Offset(tRow).Copy Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteValues End If End If End If Next [a1].Activate Application.ScreenUpdating = True End Sub

首先要找到PERSONAL.XLSB文件，将宏代码块粘贴到该文件中步骤如下：在这里插入图片描述

【本文地址】

公司简介

联系我们