EXCEL+VBA+259常用宏

合集下载

Excel宏和VBA编程使用指南

Excel宏和VBA编程使用指南第一章：Excel宏的基础知识与应用Excel宏是一种自动化程序，可以用来执行重复性操作，提高工作效率。

通过录制和编写宏，我们可以自动化执行一系列任务，例如数据处理、图表生成等。

1.1 宏的录制过程Excel中录制宏非常简单。

请选择“开发工具”选项卡，点击“宏录制器”按钮，然后按照提示开始录制宏。

在录制的过程中，可以执行任何操作，包括输入数据、格式设置、公式计算等操作。

录制结束后，宏将会自动生成，并可以随时运行。

1.2 宏的编辑与修饰录制好的宏可以进行编辑和修饰，以满足更加复杂的需求。

通过打开宏编辑器，我们可以查看和修改宏的代码。

在宏代码中，可以使用各种VBA语句和函数，例如循环结构、条件语句、消息框等。

1.3 宏的应用实例：批量处理数据举个例子，当我们需要对大量的数据进行格式设置时，可以使用宏来批量处理。

首先，录制一个宏，包含需要进行的格式设置操作。

然后将该宏应用于其他的数据范围，实现批量处理的效果。

第二章：VBA编程基础知识与语法VBA（Visual Basic for Applications）是一种基于Visual Basic 语言的编程工具，用于操作Excel和其他Office应用程序。

通过VBA编程，我们可以实现更加复杂的自动化任务，并与其他系统进行数据交互。

2.1 VBA的基本结构与对象模型VBA的基本结构包括过程、模块和对象。

过程是一段可执行的代码，用于完成特定的任务。

模块是一组相关的过程的集合。

对象是VBA程序中的核心单位，用于操作和访问数据。

VBA的对象模型是一种层次结构，包括Application对象、Workbook对象和Worksheet对象等。

通过操作这些对象，我们可以访问并修改Excel中的各种数据和属性。

2.2 VBA的变量和数据类型在VBA编程中，变量用于存储数据，数据类型决定了变量可以存储的数据的种类。

常用的数据类型包括整型、浮点型、字符串型等。

Excel高级技巧使用宏和VBA编程实现数据分析和处理

Excel高级技巧使用宏和VBA编程实现数据分析和处理Excel是一个功能强大的电子表格软件，它提供了许多高级技巧，可以帮助用户更好地进行数据分析和处理。

本文将介绍如何使用Excel 的宏和VBA编程来实现这些任务。

一、什么是宏和VBA编程？Excel中的宏是一组特定的操作序列，可以将其录制下来并保存为一个可执行的宏文件。

当需要重复执行相同的操作时，可以直接运行宏文件，而不需要手动操作。

VBA（Visual Basic for Applications）是一种基于Visual Basic语言的编程语言，可以增强Excel的功能，使其能够处理更复杂的任务。

二、如何录制和运行宏？1. 打开Excel，并打开一个包含需要操作的数据的工作簿。

2. 在Excel的菜单栏中选择“开发工具”选项卡，如果没有显示该选项卡，则需要先启用它。

在“文件”菜单中选择“选项”，然后选择“自定义功能区”，勾选“开发工具”选项，点击“确定”按钮即可。

3. 在“开发工具”选项卡中，点击“宏”的按钮，弹出“宏”对话框。

4. 在对话框中输入宏的名称，并点击“创建”按钮。

Excel将会打开一个新的VBA编辑器窗口。

5. 在VBA编辑器窗口中，录制需要执行的操作。

比如，可以选择单元格，设置格式，进行计算等。

6. 录制完操作后，关闭VBA编辑器窗口，并点击“宏”对话框中的“停止录制”按钮。

7. 保存宏，并指定一个可执行文件的扩展名（.xlsm或.xla）。

8. 若要运行宏，只需点击Excel菜单栏的“开发工具”选项卡中的“宏”按钮，选择要运行的宏即可。

三、使用宏进行数据分析和处理1. 数据筛选：录制一个宏，点击Excel菜单栏的“数据”选项卡，选择“筛选”，设置筛选条件，录制完成后，即可快速筛选数据。

2. 数据排序：录制一个宏，点击Excel菜单栏的“数据”选项卡，选择“排序”，设置排序条件，录制完成后，即可快速排序数据。

3. 数据透视表：录制一个宏，点击Excel菜单栏的“插入”选项卡，选择“数据透视表”，设置数据源和字段，录制完成后，即可快速生成数据透视表。

Excel中的宏与VBA编程入门教程

Excel中的宏与VBA编程入门教程Excel是一款功能强大的电子表格软件，被广泛应用于数据处理、图表绘制、统计分析等领域。

利用Excel的宏与VBA编程功能，我们可以进一步提高工作效率，实现一些复杂的操作和自动化任务。

本篇文章将为大家介绍Excel中的宏和VBA编程，并提供一个简单的入门教程，帮助读者快速上手。

一、什么是宏？宏是一系列在Excel中执行的操作的记录，可以将一系列常用的操作录制为宏，然后通过一个快捷键或按钮来执行这些操作，从而简化重复的工作步骤。

宏可以帮助我们提高工作效率，减少繁琐的操作，实现自动化处理。

二、如何录制宏？1. 打开Excel，点击“开发工具”选项卡，在工具栏中点击“宏”按钮，或使用快捷键“Alt + F8”打开宏对话框。

2. 在宏对话框中，输入宏名称，如“MyMacro”，然后点击“创建”按钮。

3. 在弹出的“宏录制”对话框中，选择“相对引用”或“绝对引用”，这取决于你需要记录的操作是否与选定的单元格位置有关。

4. 开始录制你的宏，完成一系列的操作步骤，比如输入数据、格式设置、公式计算等。

5. 录制完成后，点击宏对话框中的“停止录制”按钮，宏录制结束。

三、如何运行宏？1. 在Excel中，按下快捷键“Alt + F8”打开宏对话框。

2. 在对话框中选择要运行的宏，如“MyMacro”，然后点击“运行”按钮。

3. Excel将自动执行该宏所记录的操作步骤。

四、VBA编程基础除了录制宏外，我们还可以使用VBA（Visual Basic for Applications）编程语言，进一步扩展和定制Excel的功能。

VBA是一种基于Visual Basic的脚本语言，Excel内置了VBA编辑器，用户可以在其中编写、编辑和运行VBA代码。

1. 打开Excel，在“开发工具”选项卡中点击“Visual Basic”按钮，或使用快捷键“Alt + F11”打开VBA编辑器。

2. 在VBA编辑器中创建一个新的模块，右键点击项目资源管理器中的“模块”，选择“插入”-“模块”。

使用VBA实现Excel宏自动执行

使用VBA实现Excel宏自动执行在日常的工作和学习中，我们经常需要使用Excel进行数据的处理和分析。

有时候，我们需要频繁地执行相同的操作，例如按照特定的条件筛选数据、进行复杂的计算或者生成报表。

为了提高效率，我们可以使用VBA （Visual Basic for Applications）来实现Excel宏的自动执行。

本文将介绍如何使用VBA来实现Excel宏的自动执行，提高工作效率。

首先，我们需要打开Excel的开发工具。

在Excel的菜单栏中选择“文件”->“选项”->“自定义功能区”，找到“开发工具”并勾选上。

然后点击“确认”按钮，即可在菜单栏中看到“开发工具”选项。

接下来，我们需要创建一个宏。

在菜单栏中选择“开发工具”->“宏”，然后点击“新建”按钮。

在弹出的对话框中输入宏的名称，并点击“创建”按钮。

这时，Excel会打开VBA编辑器窗口，我们可以在这里编写VBA代码。

在VBA编辑器窗口中，我们可以使用各种Excel提供的对象和方法来实现宏的功能。

例如，我们可以使用“Range”对象来操作单元格，使用“Selection”对象来操作选中的区域，使用“Worksheet”对象来操作工作表等。

通过编写VBA代码，可以实现各种复杂的操作，例如数据的筛选、排序、计算以及生成报表等。

在编写VBA代码时，我们可以使用各种控制结构和函数来实现代码的逻辑。

例如，我们可以使用“if-then-else”语句实现条件判断，使用“for-next”语句实现循环操作，使用“select-case”语句实现多条件判断等。

此外，我们还可以使用各种函数来对数据进行处理，例如字符串的处理、日期的处理、数学运算等。

完成宏的编写后，我们需要保存并关闭VBA编辑器窗口。

然后，在Excel的菜单栏中选择“开发工具”->“宏”，选择刚才编写的宏，并点击“运行”按钮。

这时，Excel会自动执行宏，并按照编写的代码进行操作。

excel宏的用法

excel宏的用法在Excel中，宏是一种强大的功能，它可以让用户自动执行一系列操作，从而提高工作效率。

本文将介绍Excel宏的用法，包括创建与使用宏的方法、常用宏操作举例、管理宏与宏组以及宏的安全性与注意事项。

一、Excel宏的概念与作用Excel宏是一种由VBA（Visual Basic for Applications）编写的自动化脚本，它可以在Excel中执行一系列操作，如数据处理、格式设置、公式计算等。

通过使用宏，用户可以简化复杂的任务，提高工作效率。

二、创建与使用宏的方法1.创建宏：（1）打开Excel，点击“开发者”选项卡；（2）点击“Visual Basic”按钮，进入VBA编辑器；（3）在“项目”窗格中，找到要添加宏的工作簿；（4）右键点击工作簿，选择“插入”>“模块”；（5）在模块中编写宏代码。

2.使用宏：（1）返回Excel界面，关闭VBA编辑器；（2）点击“开发”选项卡，找到“宏”按钮；（3）点击“宏”按钮，选择要执行的宏；（4）按照提示完成宏的执行。

三、常用宏操作举例1.自动填充数据：使用宏可以快速地将一行数据填充到多行。

2.批量插入空行：宏可以自动在指定位置插入空行，方便数据分隔。

3.批量调整列宽：宏可以自动调整指定列的宽度，以适应单元格内容。

4.批量设置格式：使用宏可以快速地为表格应用统一的格式，如字体、颜色等。

四、管理宏与宏组1.保存宏：完成宏编写后，记得在VBA编辑器中点击“文件”>“另存为”，将宏保存在Excel工作簿中。

2.命名宏：为宏命名，便于识别和调用。

3.创建宏组：将多个相关宏组合在一起，形成一个宏组，方便管理。

五、宏的安全性与注意事项1.保护宏：为防止宏被误删或篡改，可以对宏进行加密。

2.防止病毒：谨慎下载和安装第三方宏，以防受到病毒感染。

3.测试宏：在执行宏之前，务必在测试环境下进行测试，确保宏的正确性。

4.备份数据：执行宏时，建议先备份原始数据，以防意外操作导致数据丢失。

EXCEL常用的宏代码大全

EXCEL常用的宏代码大全EXCEL 常用的宏代码大全 - [9-免费电脑学习资料]2008-04-22Tag：excel 常用宏宏代码大全本示例为设置密码窗口 (1)If Application.InputBox("请输入密码：") = 1234 Then[A1] = 1 '密码正确时执行Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码End If本示例为设置密码窗口 (1)X = MsgBox("是否真的要结帐？", vbYesNo)If X = vbYes ThenClose本示例为设置工作表密码ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。

For Each w In WorkbooksIf <> Thenw.Close SaveChanges:=TrueEnd IfNext w'每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。

Application.WindowState = xlMaximized'本示例显示活动工作表的名称。

MsgBox "The name of the active sheet is " & '本示例保存当前活动工作簿的副本。

ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"'下述过程激活工作簿中的第四张工作表。

Sheets(4).Activate'下述过程激活工作簿中的第1张工作表。

EXCELWPS VBA宏代码大全

EXCEL/WPS VBA宏代码大全Application.Dialogs(1).Show是调用打开对话框Application.Dialogs(5或145).Show是调用另存为对话框，Application.Dialogs(6).Show是删除文档Application.Dialogs(7).Show是页面设置Application.Dialogs(8).Show是打印对话框Application.Dialogs(9).Show是选择打印机对话框Application.Dialogs(12).Show是重排窗口设置对话框Application.Dialogs(17).Show宏对话框Application.Dialogs(23).Show设置打印标题Application.Dialogs(26).Show字体设置对话框Application.Dialogs(27).Show显示选项Application.Dialogs(28).Show保护工作表Application.Dialogs(32).Show重算选项Application.Dialogs(39或192).Show排序Application.Dialogs(40).Show序列选项Application.Dialogs(41).Show模拟运算表Application.Dialogs(42或111).Show单元格格式，选择单元格内容的格式Application.Dialogs(43).Show选择单元格字体的排列格式，横排或竖排等Application.Dialogs(44或134或190).Show字体选择Application.Dialogs(45).Show边框格式设置Application.Dialogs(46).Show对单元格的保护或隐藏选项Application.Dialogs(47).Show列宽设置选项Application.Dialogs(52).Show清除对话框Application.Dialogs(53).Show选择性粘贴对话框Application.Dialogs(54).Show删除对话框Application.Dialogs(55).Show插入对话框Application.Dialogs(61或110).Show定义名称对话框Application.Dialogs(62).Show指定名称Application.Dialogs(63或132).Show定位Application.Dialogs(64).Show查找Application.Dialogs(84).Show设置单元格颜色和图案Application.Dialogs(91).Show分列Application.Dialogs(94).Show取消或隐藏工作表选择对话框Application.Dialogs(95).Show工作区视图等选项Application.Dialogs(103).Show选择要激活哪个工作表对话框Application.Dialogs(108).Show复制图片选项Application.Dialogs(119).Show新建对话框Application.Dialogs(127).Show设置行高Application.Dialogs(130).Show替换对话框Application.Dialogs(137).Show拆分当前窗口Application.Dialogs(161).Show设置图表颜色Application.Dialogs(170或171).Show移动当前窗口Application.Dialogs(191).Show合并计算对话框Application.Dialogs(198).Show单变量求解Application.Dialogs(199).Show选定成组工作表Application.Dialogs(200).Show填充成组工作表。

excel教程宏

excel教程宏Excel宏是一种用于自动化任务和简化常见操作的功能。

在Excel中使用宏可以大大提高工作效率，特别是对于重复性操作。

本文将介绍Excel宏的基本概念、使用方法以及常用的宏命令。

一、什么是Excel宏Excel宏是一种用于在Excel中录制和运行的自动化任务。

通过录制宏，用户可以以交互方式执行一系列操作，并将其保存为一个宏命令。

当需要再次执行这些操作时，只需运行该宏命令，程序将自动按照之前的记录执行。

二、录制宏1. 打开Excel，在工具栏上点击“开发工具”选项卡；2. 在“开发工具”选项卡中点击“录制宏”按钮，弹出“录制宏”对话框；3. 在“宏名”中输入宏的名称，并选择“存储在”选项，确定录制位置；4. 点击“确定”按钮开始录制宏；5. 执行需要录制的操作，比如插入数据、格式设置等；6. 点击“停止录制”按钮，结束录制。

三、运行宏1. 按下“Alt + F11”快捷键，打开“Visual Basic for Applications”编辑器；2. 在编辑器中可以看到刚才录制的宏代码；3. 按下“F5”快捷键，或点击工具栏上的“运行”按钮，即可运行该宏。

四、宏代码解释宏代码由VBA语言编写，下面是一些常用的宏命令：1. Range("A1").Value = "Hello World" // 向单元格A1中添加文本“Hello World”2. ActiveSheet.Cells(1, 1).Font.Bold = True // 设置第1行第1列单元格字体加粗3. Rows("1:5").EntireRow.Delete // 删除第1行到第5行的所有行4. Columns("A:C").Select // 选中A列到C列5. Selection.Font.Color = RGB(255, 0, 0) // 设置选中区域字体颜色为红色6. ActiveSheet.Range("A1:C5").CopyDestination:=Sheets("Sheet2").Range("A1") // 将A1到C5的数据复制到“Sheet2”工作表的A1位置五、宏安全性由于宏可以执行一些危险的操作，如更改文件、病毒植入等，Excel默认会限制宏的执行。

(Excel)259个常用宏(VBA)

宏管理其他筛选宏管理宏管理宏管理宏管理宏管理宏管理宏管理控件控件控件奇偶页分别打印点击打印自动打印多工作表第一页点击打印查找A列文本循环插入分页符点击打印将A列最后数据行以上的所有B列图片大小调整为所在点击对象单元大小返回光标所在行数点击查找和引用在A1返回当前选中单元格数量点击查找和引用返回当前工作簿中工作表数量点击查找和引用返回光标选择区域的行数和列数点击查找和引用工作表中包含数据的最大行数点击查找和引用返回A列数据的最大行数点击查找和引用将所选区域文本插入新建文本框点击对象批量插入地址批注点击批注批量插入统一批注点击批注以A1单元内容批量插入批注点击批注不连续区域插入当前文件名和表名及地址点击单元赋值不连续区域录入当前单元地址点击单元赋值连续区域录入当前单元地址点击单元赋值返回当前单元地址点击单元赋值不连续区域录入当前日期点击单元赋值不连续区域录入当前数字日期点击单元赋值不连续区域录入当前日期和时间点击单元赋值不连续区域录入对勾点击单元赋值不连续区域录入当前文件名点击单元赋值不连续区域添加文本点击单元赋值不连续区域插入文本点击单元赋值单元赋值工作表工作表工作表工作表工作表文件管理工作表工作表点击单元赋值当前单元录入计算机用户名点击单元赋值解除全部工作表保护点击工作表为指定工作表加指定密码保护表点击密码在有密码的工作表执行代码点击密码执行前需要验证密码的宏(控件按钮代码)点击密码拷贝A1公式和格式到A2点击单元赋值复制单元数值点击单元赋值插入数值条件格式点击格式插入透明批注点击批注单元赋值定位定位定位定位定位定位点击单元赋值当前单元加2点击单元赋值单元赋值定位单元赋值单元赋值单元赋值单元赋值单元赋值单元赋值单元赋值单元赋值事件事件事件事件其他其他定位打印单元赋值对象事件其他信息事件单元赋值单元赋值点击事件指定允许编辑区域点击编辑解除允许编辑区域限制点击编辑删除指定行点击行列操作删除A列为指定内容的行点击行列操作删除A列非数字单元行点击行列操作有条件删除当前行点击行列操作选择下一行点击定位选择第5行开始所有数据行点击定位选择光标或选区所在行点击定位定位名称点击名称选择到指定列的最后行点击定位将Sheet1的A列的非空值写到Sheet2的A列点击单元赋值将名称1的数据写到名称2点击名称定位格式对象点击数据单元赋值名称名称点击工作表按A列数据批量修改表名称点击工作表按A列数据批量创建新表(控件按钮代码)点击工作表清除剪贴板点击其他批量清除软回车点击其他判断指定文件是否已经打开点击事件当前文件另存到指定目录点击文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理点击文件管理将A列数据排序到D列点击单元赋值将指定范围的数据排列到D列点击单元赋值定位行列操作点击数据取消数据有效限制点击数据重排窗口点击窗口按当前单元文本选择打开指定文件单元点击定位回车光标向右点击定位回车光标向下点击定位保护工作表时取消选定锁定单元点击工作表文件管理行列操作工作表工作表工作表工作表工作表格式工作表工作表点击工作表打开文件时提示指定工作表是保护状态点击工作表行列操作定位点击定位固定区域单元分类变色点击格式格式事件事件数据点击其他显示光标所在单元的批注的代码点击其他单元赋值事件事件事件事件点击单元赋值选择2至4行点击定位在当前选区有条件替换数值为文本点击事件自动筛选全部显示指定列点击筛选自动筛选第2列值为A的行点击筛选取消自动筛选()点击筛选全部显示指定表的自动筛选点击筛选格式格式单元赋值事件事件点击行列操作在A列产生不重复随机数点击单元赋值单元赋值单元赋值点击其他返回指定单元的行高和列宽点击信息指定行高和列宽点击格式指定单元的行高和列宽与A1单元相同点击格式填公式点击单元赋值工作表工作表单元赋值自定义函数信息超链接超链接超链接超链接查找和引用返回表中第一个非空单元地址(行搜索)点击查找和引用返回表中各非空单元区域地址(行搜索)点击查找和引用查找和引用查找和引用查找和引用查找和引用查找和引用点击查找和引用返回A列非空单元数量点击查找和引用返回圆周率π点击其他定义指定单元内容为页眉/页脚点击打印提示并全部清除当前选择区域点击单元赋值全部清除当前选择区域点击单元赋值清除指定区域数值点击单元赋值对指定工作表执行取消隐藏》打印》隐藏工作表点击打印打开文件时执行指定宏(工作簿代码)点击事件关闭文件时执行指定宏(工作簿代码)点击事件信息事件点击工作表重算指定表点击工作表将第5行移到窗口的最上面点击窗口对第一张工作表的指定区域进行排序点击单元赋值显示指定工作表的打印预览点击打印用单元格A1的内容作为文件名另存当前工作簿点击文件管理[禁用/启用]保存和另存的代码点击文件管理在A和B列返回当前选区的名称和公式点击单元赋值朗读朗读A列,按ESC键中止点击语音朗读固定语句，请按ESC键终止点击语音在M和N列的14行以下选择单元时显示调用日历控件点击对象（工作表代码）添加自定义序列点击其他弹出打印对话框点击打印打印事件事件点击工作表把a列不重复值取到e列点击查找和引用查找和引用工作表点击事件事件其他点击其他按照当前行A列的图片名称插入图片到H列点击图片当前行下插入1行点击工作表取消指定行或列的隐藏点击工作表复制单元格所在行点击其他复制单元格所在列点击其他新建一个工作表点击工作表新建一个工作簿点击工作簿工作表事件工作簿点击工作簿合并A1至C1的内容写到D15单元的批注中点击批注自动重算点击其他手动重算点击其他ＥＨ帖子地址http://c lub.exce lhome.ne。

VBA中常用的Excel宏录制和执行方法

VBA中常用的Excel宏录制和执行方法Excel是广泛应用于数据处理和分析的电子表格软件。

为了提高工作效率和减少重复操作，VBA（Visual Basicfor Applications）宏是一种强大的工具，用来自动化Excel任务。

VBA的优势在于可以通过编程的方式来控制各种操作，从而大大简化繁琐的任务流程。

本文将重点介绍VBA 中常用的Excel宏录制和执行方法，帮助读者更好地利用VBA提高工作效率。

首先，我们来了解VBA宏的基本概念。

宏是一组用于执行特定任务的代码，可以录制或编写。

录制宏意味着将我们在Excel中的操作转化为VBA代码，然后可以重复执行这些操作。

执行宏是指运行已经录制或编写好的宏代码。

在Excel中，我们可以通过多种方式录制宏和执行宏，下面是几种常用的方法：1. 使用开发工具栏：在Excel中，我们可以通过开发工具栏进行宏的录制和执行。

首先，我们需要将开发工具栏显示出来。

点击Excel菜单中的“文件”选项，在弹出的菜单中选择“选项”按钮。

在“Excel选项”对话框中，选择“自定义功能区”，然后在“主选项卡”中勾选“开发工具栏”并点击“确定”。

此时，在Excel顶部的菜单栏中，会出现一个“开发”选项卡，里面包含了多种开发工具。

在开发工具栏中，我们可以点击“录制宏”按钮开始录制，完成后再点击“停止录制”按钮停止录制。

录制完成后，我们可以通过点击“运行宏”按钮来执行录制好的宏。

2. 使用快速访问工具栏：快速访问工具栏是一个自定义的工具栏，我们可以在其中添加我们经常使用的命令。

我们可以将录制好的宏添加到快速访问工具栏中，方便随时执行。

首先，点击Excel顶部菜单栏中的“文件”选项，选择“选项”。

在“Excel选项”对话框中，选择“快速访问工具栏”选项。

在“选择命令来源”下拉列表中选择“宏”选项，然后在右侧的命令列表中选择录制好的宏，点击“添加”按钮将宏添加到快速访问工具栏中。

此时，在Excel顶部菜单栏的左侧会出现一个快速访问工具栏图标，我们只需点击该图标即可执行宏。

EXCEL中的宏和VBA编程入门

EXCEL中的宏和VBA编程入门Excel作为一款强大的数据处理工具，不仅提供了丰富的功能，还支持宏和VBA编程，让用户能够定制化自己的功能和处理方式。

本文将带您深入探索Excel中的宏和VBA编程，为您揭开编程的神秘面纱，让您轻松入门，享受编程的乐趣。

什么是宏和VBA编程宏宏是一组用于自动执行任务的命令和指令的集合。

在Excel中，您可以录制宏来记录一系列操作，然后通过运行宏来自动执行这些操作，节省时间和精力。

VBA编程VBA（VisualBasicforApplications）是一种基于VisualBasic的编程语言，可以用于在Excel中编写自定义的宏和程序。

通过VBA编程，您可以实现更复杂和灵活的功能，将Excel发挥到极致。

如何开始宏和VBA编程1.启用开发者选项在Excel中，首先需要启用“开发者”选项卡，以便访问宏和VBA编程工具。

您可以在Excel的选项设置中启用此选项卡。

2.录制宏通过录制宏，您可以快速记录一系列操作，然后通过运行宏来重现这些操作。

这是入门宏和VBA编程的简单方式。

3.编写VBA代码如果您想要实现更复杂的功能，可以开始学习VBA编程。

通过编写VBA代码，您可以创建自定义功能、处理数据以及实现各种自动化任务。

宏和VBA编程的应用场景自动化任务：通过编写宏和VBA代码，可以实现自动化处理数据、生成报表等任务。

定制功能：根据个人或企业需求，定制化一些特定功能，提高工作效率。

扩展功能：利用VBA编程，可以扩展Excel的功能，实现更多复杂的操作和计算。

宏和VBA编程为Excel用户提供了强大的定制化功能，让用户能够根据自己的需求定制Excel的功能和处理方式。

通过学习宏和VBA编程，您将打开Excel的更多可能性，提高工作效率，享受数据处理的乐趣。

掌握宏和VBA编程，让Excel不再只是简单的数据处理工具，更是您工作中的得力助手，为您带来更多便利和效率提升。

快速掌握EXCEL中的宏操作

快速掌握EXCEL中的宏操作Excel作为一款强大的数据处理工具，其功能不仅限于普通的表格操作和数据分析。

使用宏可以极大地提升工作效率，尤其是在处理重复性的任务时。

了解并掌握宏操作是每个Excel用户都值得投资的技能。

理解宏的基本概念宏是Excel中一种自动化功能，允许用户通过录制或编写代码来执行一系列重复性操作。

它可以显著缩短操作时间，提高效率。

简单来说，宏通过把用户的点击、输入等操作记录下来，生成一段可以反复执行的代码，这种代码一般使用VBA（VisualBasicforApplications）编写。

启用开发者工具选项卡在开始使用宏之前，第一步是开启开发者选项卡。

默认情况下，Excel 的开发者选项并不显示。

为了启用它，按照以下步骤进行：打开Excel，点击左上角的“文件”。

选择“选项”，然后进入“自定义功能区”。

在右侧的“主选项卡”中勾选“开发工具”，点击“确定”。

此时，Excel窗口顶端的功能区中应该能看到“开发工具”选项卡。

接下来，你就可以方便地进行宏的录制和管理。

录制宏录制宏是最简单的宏创建方式。

用户可以依照具体流程进行操作，一步步录制，最后生成相应的VBA代码。

具体步骤如下：在“开发工具”选项卡中，点击“录制宏”。

给宏起一个简短的名字，最好避免空格与特殊字符。

如果要分配快捷键，可以在这里设置。

选择宏的存储位置，可以选择“此工作簿”或“个人工作簿”。

点击“确定”，开始录制你的操作。

此时，所有的操作都会被记录下来。

完成操作后，点击“开发工具”下的“停止录制”。

录制结束后，可以在宏列表中查看你刚刚录制的宏，点击运行就能重新执行这些操作。

编辑宏虽然录制宏非常直观，但有些复杂操作可能无法完全通过录制实现。

这时，你需要对宏进行手动编辑。

通过VBA编辑器可以实现更高级的功能。

在“开发工具”选项卡中，点击“VisualBasic”进入VBA编辑器。

在左侧的窗口中，找到你刚刚录制的宏所在的模块。

点击模块，界面右侧会出现所录制的代码。

EXCEL常用的宏代码大全

For Each w In WorkbooksIf <> Thenw.Close SaveChanges:=TrueEnd IfNext w'每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。

Application.WindowState = xlMaximized'本示例显示活动工作表的名称。

MsgBox "The name of the active sheet is " & '本示例保存当前活动工作簿的副本。

ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"'下述过程激活工作簿中的第四张工作表。

Sheets(4).Activate'下述过程激活工作簿中的第1张工作表。

EXCEL+VBA+259_Marco_宏函数

代码目录链接类别打开全部隐藏工作表点击循环宏点击录制宏时调用“停止录制”工具栏点击高级筛选5列不重复数据至指定表点击双击单元执行宏(工作表代码)点击双击指定区域单元执行宏(工作表代码)点击进入单元执行宏(工作表代码)点击进入指定区域单元执行宏(工作表代码)点击在多个宏中依次循环执行一个（控件按钮代码）点击在两个宏中依次循环执行一个并相应修改按钮名称点击（控件按钮代码）在三个宏中依次循环执行一个并相应修改按钮名称点击（控件按钮代码）根据A1单元文本隐藏/显示按钮（控件按钮代码）点击当前单元返回按钮名称（控件按钮代码）点击当前单元内容返回到按钮名称（控件按钮代码）点击奇偶页分别打印点击打印自动打印多工作表第一页点击打印查找A列文本循环插入分页符点击打印将A列最后数据行以上的所有B列图片大小调整为所在点击对象单元大小返回光标所在行数点击查找和引用在A1返回当前选中单元格数量点击查找和引用返回当前工作簿中工作表数量点击查找和引用返回光标选择区域的行数和列数点击查找和引用工作表中包含数据的最大行数点击查找和引用返回A列数据的最大行数点击查找和引用将所选区域文本插入新建文本框点击对象批量插入地址批注点击批注批量插入统一批注点击批注以A1单元内容批量插入批注点击批注不连续区域插入当前文件名和表名及地址点击单元赋值不连续区域录入当前单元地址点击单元赋值连续区域录入当前单元地址点击单元赋值返回当前单元地址点击单元赋值不连续区域录入当前日期点击单元赋值不连续区域录入当前数字日期点击单元赋值不连续区域录入当前日期和时间点击单元赋值不连续区域录入对勾点击单元赋值不连续区域录入当前文件名点击单元赋值不连续区域添加文本点击单元赋值不连续区域插入文本点击单元赋值从指定位置向下同时录入多单元指定内容点击单元赋值按aa工作表A列的内容排列工作表标签顺序点击工作表工作表工作表工作表工作表文件管理工作表工作表点击单元赋值当前单元录入计算机用户名点击单元赋值解除全部工作表保护点击工作表为指定工作表加指定密码保护表点击密码在有密码的工作表执行代码点击密码执行前需要验证密码的宏(控件按钮代码)点击密码拷贝A1公式和格式到A2点击单元赋值复制单元数值点击单元赋值插入数值条件格式点击格式插入透明批注点击批注单元赋值定位定位定位定位定位定位点击单元赋值当前单元加2点击单元赋值单元赋值定位单元赋值单元赋值单元赋值单元赋值单元赋值单元赋值单元赋值单元赋值事件事件事件事件其他其他定位打印单元赋值对象事件其他信息事件单元赋值单元赋值点击事件指定允许编辑区域点击编辑解除允许编辑区域限制点击编辑删除指定行点击行列操作删除A列为指定内容的行点击行列操作删除A列非数字单元行点击行列操作有条件删除当前行点击行列操作选择下一行点击定位选择第5行开始所有数据行点击定位选择光标或选区所在行点击定位定位名称点击名称选择到指定列的最后行点击定位将Sheet1的A列的非空值写到Sheet2的A列点击单元赋值将名称1的数据写到名称2点击名称定位格式对象点击数据单元赋值名称名称点击工作表按A列数据批量修改表名称点击工作表按A列数据批量创建新表(控件按钮代码)点击工作表清除剪贴板点击其他批量清除软回车点击其他判断指定文件是否已经打开点击事件当前文件另存到指定目录点击文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理引用指定位置单元内容为部分文件名另存文件点击文件管理将A列数据排序到D列点击单元赋值将指定范围的数据排列到D列点击单元赋值定位行列操作点击数据取消数据有效限制点击数据重排窗口点击窗口按当前单元文本选择打开指定文件单元点击定位回车光标向右点击定位回车光标向下点击定位保护工作表时取消选定锁定单元点击工作表文件管理行列操作工作表工作表工作表工作表工作表格式工作表工作表点击工作表工作表行列操作定位点击定位固定区域单元分类变色点击格式格式事件事件数据点击其他显示光标所在单元的批注的代码点击其他单元赋值事件事件事件事件点击单元赋值选择2至4行点击定位在当前选区有条件替换数值为文本点击事件自动筛选全部显示指定列点击筛选自动筛选第2列值为A的行点击筛选取消自动筛选()点击筛选全部显示指定表的自动筛选点击筛选强行合并单元点击格式格式单元赋值事件事件点击行列操作在A列产生不重复随机数点击单元赋值单元赋值单元赋值点击其他返回指定单元的行高和列宽点击信息指定行高和列宽点击格式指定单元的行高和列宽与A1单元相同点击格式填公式点击单元赋值工作表工作表单元赋值自定义函数信息超链接超链接超链接超链接查找和引用点击查找和引用返回表中各非空单元区域地址(行搜索)点击查找和引用查找和引用查找和引用查找和引用查找和引用查找和引用点击查找和引用返回A列非空单元数量点击查找和引用返回圆周率π点击其他定义指定单元内容为页眉/页脚点击打印提示并全部清除当前选择区域点击单元赋值全部清除当前选择区域点击单元赋值清除指定区域数值点击单元赋值对指定工作表执行取消隐藏》打印》隐藏工作表点击打印打开文件时执行指定宏(工作簿代码)点击事件关闭文件时执行指定宏(工作簿代码)点击事件信息事件点击工作表重算指定表点击工作表将第5行移到窗口的最上面点击窗口对第一张工作表的指定区域进行排序点击单元赋值显示指定工作表的打印预览点击打印用单元格A1的内容作为文件名另存当前工作簿点击文件管理[禁用/启用]保存和另存的代码点击文件管理在A和B列返回当前选区的名称和公式点击单元赋值朗读朗读A列,按ESC键中止点击语音朗读固定语句，请按ESC键终止点击语音在M和N列的14行以下选择单元时显示调用日历控件点击对象（工作表代码）添加自定义序列点击其他弹出打印对话框点击打印打印事件事件点击工作表把a列不重复值取到e列点击查找和引用查找和引用工作表点击事件事件其他点击其他按照当前行A列的图片名称插入图片到H列点击图片当前行下插入1行点击工作表取消指定行或列的隐藏点击工作表复制单元格所在行点击其他复制单元格所在列点击其他新建一个工作表点击工作表新建一个工作簿点击工作簿工作表事件工作簿点击工作簿合并A1至C1的内容写到D15单元的批注中点击批注自动重算点击其他手动重算点击其他ＥＨ帖子地址net/dispbbs.asp?boardid=4&id=239820。

Excel中的宏与VBA编程入门教程

Excel中的宏与VBA编程入门教程Excel是一款功能强大的电子表格软件，广泛应用于各个行业和领域。

在Excel 中，宏与VBA编程是提高工作效率和功能扩展的重要工具。

本文将为大家介绍Excel中的宏与VBA编程的入门教程，帮助读者快速掌握这一技能。

一、什么是宏？宏是一系列的操作步骤的集合，可以自动执行这些步骤。

在Excel中，宏可以记录用户的操作，然后通过宏的方式重复执行这些操作，从而提高工作效率。

二、如何录制宏？在Excel中，录制宏非常简单。

首先，打开Excel软件，点击“开发工具”选项卡，然后点击“宏”按钮。

接下来，点击“录制新宏”，输入宏的名称，并选择一个宏的存储位置。

点击“确定”按钮后，Excel会开始录制宏。

在录制过程中，可以执行各种操作，例如输入数据、格式化单元格、运行公式等。

完成操作后，点击“停止录制”按钮即可结束录制。

三、如何运行宏？录制宏后，我们可以通过多种方式来运行宏。

最简单的方式是按下快捷键。

在录制宏时，可以为宏分配一个快捷键，按下该快捷键即可运行宏。

另外，还可以通过“开发工具”选项卡中的“宏”按钮来选择要运行的宏。

四、什么是VBA？VBA（Visual Basic for Applications）是一种基于Visual Basic语言的宏编程语言，可以用于编写Excel中的宏。

通过VBA，我们可以更加灵活地控制Excel的各种功能，实现更加复杂的操作。

五、如何编写VBA代码？在Excel中，可以通过“开发工具”选项卡中的“Visual Basic”按钮打开VBA编辑器。

在VBA编辑器中，可以编写VBA代码。

VBA代码由一系列的语句组成，每个语句都是一条指令，用于控制Excel的各种功能。

例如，可以使用VBA代码实现自动计算、数据筛选、图表生成等功能。

六、VBA编程的基本语法VBA编程的基本语法与其他编程语言相似。

下面是一些常用的VBA语法：1. 变量声明：使用“Dim”关键字声明变量，并指定变量的数据类型。

Excel VBA实用宏案例与应用场景

Excel VBA实用宏案例与应用场景Excel是一款功能强大的电子表格软件，而Excel VBA宏是Excel中的一项强大工具。

借助VBA宏，用户可以自动化执行复杂的任务，提高工作效率。

本文将介绍一些实用的Excel VBA宏案例，并探讨它们在实际工作场景中的应用。

1. 数据清洗与处理在日常工作中，我们常常需要处理大量的数据。

通过编写VBA宏，可以自动化执行一些常见的数据清洗和处理任务，例如：1.1 数据去重：利用VBA宏，可以去除数据中的重复项。

可以根据指定的字段进行数据去重，提高数据的准确性和可读性。

1.2 数据筛选：利用VBA宏，可以根据一些特定的条件对数据进行筛选，例如根据某个字段的数值大小进行筛选，或者根据某个字段的文本内容进行筛选。

1.3 数据格式转换：通过VBA宏，可以将不同格式的数据进行转换，例如将美式日期格式转换为中式日期格式，或者将数字转换为文本。

2. 数据分析与统计Excel在数据分析领域具有出色的功能。

借助VBA宏，可以进一步扩展和增强Excel的数据分析能力。

2.1 统计汇总：通过编写VBA宏，可以实现自动化的统计汇总功能。

例如，可以编写宏来计算销售额的总和、平均值、最大值和最小值，并将结果自动填充到指定的单元格中。

2.2 数据透视表：利用VBA宏，可以自动创建和配置数据透视表。

数据透视表可以帮助用户快速分析大量的数据，发现隐藏的模式、关系和趋势。

2.3 图表生成：通过VBA宏，可以自动生成各种类型的图表，例如柱状图、折线图和饼图。

用户只需指定数据源和图表类型，宏就能自动绘制相应的图表，极大地简化了图表生成的过程。

3. 自动化报表与批量处理在工作中，我们经常需要生成和更新各种报表。

通过Excel VBA宏，可以实现自动化报表的生成和批量处理。

3.1 报表自动生成：通过编写VBA宏，可以自动从数据源中提取数据，并填充到指定的报表模板中。

这样，用户只需执行宏，就能快速生成报表，无需手动输入和调整。

excel常用宏集合

65：删除包含固定文本单元的行或列Sub 删除包含固定文本单元的行或列()DoCells.Find(what:="哈哈").ActivateSelection.EntireRow.Delete '删除行' Selection.EntireColumn.Delete '删除列Loop Until Cells.Find(what:="哈哈") Is NothingEnd Sub72：在指定颜色区域选择单元时添加/取消"√"（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim myrg As RangeFor Each myrg In TargetIf myrg.Interior.ColorIndex = 37 Then myrg = IIf(myrg <> "√", "√", "") NextEnd Sub73：在指定区域选择单元时添加/取消"√"（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Rng As RangeIf Target.Count <= 15 ThenIf Not Application.Intersect(Target, Range("D6:D20")) Is Nothing Then For Each Rng In SelectionWith RngIf .Value = "" Then.Value = "√"Else.Value = ""End IfEnd WithNextEnd IfEnd IfEnd Sub74：双击指定单元，循环录入文本（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)If T.Address <> "$A$1" Then Exit SubCancel = TrueT = IIf(T = "好", "中", IIf(T = "中", "差", "好"))End Sub75：双击指定单元，循环录入文本（工作表代码）Dim nums As BytePrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Address = "$A$1" Thennums = nums Mod 3 + 1Target = Mid("上中下", nums, 1)Target.Offset(1, 0).SelectEnd IfEnd Sub76：单元区域引用（工作表代码）Private Sub Worksheet_Activate()Sheet1.Range("A1:B3").Value = Sheet2.Range("A1:B3").ValueEnd Sub77：在指定区域选择单元时数值加1（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Application.Intersect([a1:e10], Target) Is Nothing ThenTarget = Val(Target) + 1End IfEnd Sub259个常用宏-excelhome(3)2009-08-15 14:12:5878：混合文本的编号Sub 混合文本的编号()Worksheets(1).Range("B2").Value = "" & (--(Mid(Worksheets(1).Range("B2"), 3, 100)) + 1)79：指定区域单元双击数据累加（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect([A1:Y100], Target) Is Nothing Thenoldvalue = Val(Target.Value)inputvalue = InputBox("请输入数量,按ENTER键确认!", "数值累加器")Target.Value = oldvalue + inputvalueEnd IfEnd Sub80：选择单元区域触发事件（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = "$A$1:$B$2" ThenMsgBox "你选择了$A$1:$B$2单元"End IfEnd Sub81：当修改指定单元容时自动执行宏（工作表代码）Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, [B3:B4]) Is Nothing Then重排窗口End IfEnd Sub82：被指定单元容限制执行宏Sub 被指定单元限制执行宏()If Range("$A$1") = "关闭" Then Exit Sub窗口End Sub83：双击单元隐藏该行（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Rows(Target.Row).Hidden = True84：高亮显示行（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.ColorIndex = 2Rows("1:2").Interior.ColorIndex = 40 '保持1至2行的颜色推荐39,22,40,Rows(Target.Row).Interior.ColorIndex = 35 '高亮推荐颜色35,20,24,34,37,40,15 End Sub85：高亮显示行和列（工作表代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.ColorIndex = xlNoneRows(Target.Row).Interior.ColorIndex = 34Columns(Target.Column).Interior.ColorIndex = 34End Sub86：为指定工作表设置滚动围（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sheet1.ScrollArea = "A1:M30"End Sub87：在指定单元记录打印和预览次数（工作簿代码）Private Sub Workbook_BeforePrint(Cancel As Boolean)Range("A1") = 1 + Range("A1")End Sub88：自动数字金额转大写（工作表代码）Private Sub Worksheet_Change(ByVal M As Range)On Error Resume Nexty = Int(Round(100 * Abs(M)) / 100)j = Round(100 * Abs(M) + 0.00001) - y * 100f = (j / 10 - Int(j / 10)) * 10A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")M = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))End Sub89：将所有工作表的A1单元作为单击按钮（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" ThenCall 宏名End IfEnd Sub90：闹钟——到指定时间执行宏（工作簿代码）Private Sub Workbook_Open()Application.OnTime ("11:45:00"), "提示1" '宏名字Application.OnTime ("12:00:00"), "提示2" '宏名字End Sub91：改变Excel界面标题的宏（工作簿代码）Private Sub Workbook_Open()Application.Caption = "春节快乐"End Sub92：在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Worksheets("表2").Range("A1") = Target.Address(0, 0)End Sub93：B列录入数据时在A列返回记录时间（工作表代码）Public Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 2 ThenTarget.Offset(, -1) = NowEnd IfEnd Sub94：当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）Public Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, [A1:A1000]) Is Nothing ThenIf Target.Column = 1 ThenTarget.Offset(, 1) = DateTarget.Offset(, 2) = TimeEnd IfEnd IfEnd SubPublic Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, [A1:A1000]) Is Nothing ThenIf Target.Column = 1 ThenTarget.Offset(, 1) = Format(Now(), "yyyy-mm-dd")Target.Offset(, 2) = Format(Now(), "h:mm:ss")End IfEnd IfEnd Sub95：指定单元显示光标位置容（工作表代码）Private Sub Worksheet_SelectionChange(ByVal T As Range)Sheets(1).Range("A1") = SelectionEnd Sub96：每编辑一个单元保存文件Private Sub Worksheet_Change(ByVal Target As Range)ThisWorkbook.SaveEnd Sub97：指定允许编辑区域Sub 指定允许编辑区域()ActiveSheet.ScrollArea = "B8:G15"End Sub98：解除允许编辑区域限制Sub 解除允许编辑区域限制()ActiveSheet.ScrollArea = ""End Sub99：删除指定行Sub 删除指定行()Workbooks("临时表").Sheets("表2").Range("5:5").DeleteEnd Sub100：删除A列为指定容的行Sub 删除A列为指定容的行()Dim a, b As Integera = Sheet1.[a65536].End(xlUp).RowFor b = a To 2 Step -1If Cells(b, 1).Value = "删除" ThenRows(b).DeleteEnd IfNextEnd Sub101：删除A列非数字单元行Sub 删除A列非数字单元行()i = [a65536].End(xlUp).RowRange("A1:A" & i).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete End Sub102：有条件删除当前行Sub 有条件删除当前行()If [A1] = 2 Or [B1] = "删除" ThenSelection.Delete Shift:=xlUpEnd IfEnd Sub103：选择下一行Sub 选择下一行()ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.SelectEnd Sub104：选择第5行开始所有数据行Sub 选择第5行开始所有数据行A()Dim i%i = Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).EntireRow.RowRows("5:" & i).SelectEnd SubSub 选择第5行开始所有数据行B()Rows("5:" & Cells.Find("*", , , , 1, 2).Row).SelectEnd Sub105：选择光标或选区所在行Sub 选择光标或选区所在行()Selection.EntireRow.SelectEnd Sub106：选择光标或选区所在列Sub 选择光标或选区所在列()Selection.EntireColumn.SelectEnd Sub107：光标定位到名称指定位置Sub 定位()Application.Goto Range(Evaluate("名称"))End Sub108：选择名称定义的数据区Sub 选择名称定义的数据区()[数据区].Select '插入名称要使用INDIRECT函数'Range("数据区").Select 或者'Sheet1.Range("数据区").Select 或者End Sub109：选择到指定列的最后行Sub 选择到指定列的最后行()Range("C4:G" & [G65536].End(xlUp).Row).SelectEnd Sub110：将Sheet1的A列的非空值写到Sheet2的A列Sub 将Sheet1的A列的非空值写到Sheet2的A列()Sheet1.Columns("A:A").SpecialCells(2, 23).SpecialCells(12).Copy Sheet2.[A1] End Sub111：将名称1的数据写到名称2Sub Macro2()Range("位置2") = Range("位置1").ValueEnd Sub112：单元反选Sub 单元反选()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseDim raddress As String, taddress As Stringraddress = Selection.Addresstaddress = edRange.AddressWith Sheets.Add.Range(taddress) = 0.Range(raddress) = "=0"raddress = .Range(taddress).SpecialCells(xlCellTypeConstants, 1).Address.DeleteEnd WithActiveSheet.Range(raddress).SelectApplication.ScreenUpdating = TrueEnd Sub113：调整选中对象中的文字Sub 调整选中对象中的文字()'文字居中：自动调整大小With Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.ReadingOrder = xlContext.Orientation = xlHorizontal.AutoSize = True.AddIndent = FalseEnd WithEnd Sub114：去除指定围的对象Sub 去除指定围的对象()Dim p As ShapeSet My = Worksheets("工作表名")For Each p In My.ShapesIf Not Application.Intersect(p.TopLeftCell, Range("围")) Is Nothing Then p.Delete NextEnd Sub115：更新透视表数据项Sub DeleteMissingItems2002All()'防止数据透视表中显示无用的数据项'在Excel 2002 或更高版本中'假如无用的数据项已经存在,'运行这个宏可以更新Dim pt As PivotTableDim ws As WorksheetFor Each ws In ActiveWorkbook.WorksheetsFor Each pt In ws.PivotTablespt.PivotCache.MissingItemsLimit = xlMissingItemsNoneNext ptNext wsEnd Sub116：将所有工作表名称写到A列Sub 将所有表名称写到A列()k = 1For Each Sht In SheetsCells(k + 1, 1) = '指定写入的行和列k = k + 1NextEnd Sub117：为当前选定的多单元插入指定名称Sub 为当前选定的多单元插入指定名称() = "临时"s.Add Name:="临时", RefersTo:=Selection '或者换用这行代码也可以End Sub118：删除所有名称Sub 删除所有名称()On Error Resume NextDim l As Integerl = s.CountFor i = l To 1 Step -1s(i).DeleteNextEnd Sub119：以指定区域为表目录补充新表Sub 以指定区域为表目录补充新表()Dim dic As Object, sh As WorksheetDim arr, itemarr = Range("B1:BB1")Set dic = CreateObject("scripting.dictionary")For Each sh In ThisWorkbook.Worksheetsdic.Add , ""NextFor Each item In arrIf item <> "" And Not dic.exists(Trim(item)) Then With ThisWorkbook.Worksheets.Add.Name = itemEnd WithEnd IfNextSet dic = NothingEnd Sub120：按A列数据批量修改表名称Sub 按A列数据批量修改表名称()Dim i%For i = 1 To Sheets.Count - 1Sheets(i).Name = Cells(i + 1, 1).TextNextEnd Sub121：按A列数据批量创建新表(控件按钮代码)Private Sub CommandButton1_Click()On Error Resume NextDim i%, j%For i = 1 To [a65536].End(xlUp).RowFor j = 2 To Sheets.CountIf Cells(i, 1) = Sheets(j).Name ThenExit ForEnd IfNextSheets.Add(after:=Sheets(Sheets.Count)).Name = Cells(i, 1) NextEnd Sub122：清除剪贴板Sub 清除剪贴板()Application.CutCopyMode = FalsemandBars("Task Pane").Visible = False End Sub123：批量清除软回车Sub 批量清除软回车()'也可直接使用Alt+10或13替换Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd Sub124：判断指定文件是否已经打开Sub 判断指定文件是否已经打开()Dim x As IntegerFor x = 1 To Workbooks.CountIf Workbooks(x).Name = "函数.xls" Then '文件名称MsgBox "文件已打开"Exit SubEnd IfNextMsgBox "文件未打开"End Sub125：当前文件另存到指定目录Sub 当前激活文件另存到指定目录()ActiveWorkbook.SaveAs Filename:="E:\信件\" & End Sub126：另存指定文件名Sub 另存指定文件名()ActiveWorkbook.SaveAs ThisWorkbook.Path & "\别名.xls"End Sub127：以本工作表名称另存文件到当前目录Sub 以本工作表名称另存文件到当前目录()ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & & ".xls" End Sub128：将本工作表单独另存文件到Excel当前默认目录Sub 将本工作表单独另存文件到Excel当前默认目录()ActiveSheet.CopyActiveWorkbook.SaveAs Filename:= & ".xls"End Sub129：以活动工作表名称另存文件到Excel当前默认目录Sub 以活动工作表名称另存文件到Excel当前默认目录()ActiveWorkbook.SaveAs Filename:= & ".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _, CreateBackup:=FalseEnd Sub130：另存所有工作表为工作簿Sub 另存所有工作表为工作簿()Dim sht As WorksheetApplication.ScreenUpdating = Falseipath = ThisWorkbook.Path & "\"For Each sht In Sheetssht.CopyActiveWorkbook.SaveAs ipath & & ".xls" '(工作表名称为文件名）'ActiveWorkbook.SaveAs ipath & & Trim(sht.[d15]) & ".xls" '（文件名称& D15单元容）'ActiveWorkbook.SaveAs ipath & Trim(sht.[d15]) & ".xls" '（文件名称为D15单元容）ActiveWorkbook.CloseNextApplication.ScreenUpdating = TrueEnd Sub131：以指定单元容为新文件名另存文件Sub 以指定单元容为新文件名另存文件()ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheet1.[A1]End Sub132：以当前日期为新文件名另存文件Sub 以当前日期为新文件名另存文件()ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yyyymmdd") & ".xls" End SubSub 以当前日期为名称另存文件()ActiveWorkbook.SaveAs Filename:=Date & ".xls"End Sub133：以当前日期和时间为新文件名另存文件Sub 以当前日期和时间为新文件名另存文件()ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yyyy" & "年" & "mm" & "月" & "dd" & "日" & "h" & "时" & "mm" & "分" & "ss" & "秒") & ".xls"End Sub134：另存本表为TXT文件Sub 另存本表为TXT文件()Dim s As StringDim FullName As String, rng As RangeApplication.ScreenUpdating = FalseFullName = ( & ".txt") '以当前表名为TXT文件名' FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt") '以当前文件名为TXT文件名' FullName = Replace(ThisWorkbook.FullName, ".xls", & ".txt") '以文件名&表名为TXT文件名Open FullName For Output As #1 '以读写方式打开文件，每次写容都会覆盖原先的容'参考帮助，fullname为文件全名For Each rng In Range("a1").CurrentRegions = s & IIf(s = "", "", "|") & rng.ValueIf rng.Column = Range("a1").CurrentRegion.Columns.Count ThenPrint #1, s & "|" '把数据写到文本文件里s = ""End IfNextClose #1 '关闭文件Application.ScreenUpdating = TrueMsgBox "数据已导入文本"End Sub135：引用指定位置单元容为部分文件名另存文件Sub 引用指定位置单元容为部分文件名另存文件()ActiveWorkbook.SaveAs Filename:="E:\信件\" & "解答" & Range("sheet1!a1") & "郎雀.xls" End Sub136：将A列数据排序到D列Sub 将A列数据排序到D列()[d:d] = [a:a].Value[d:d].Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlYesEnd Sub137：将指定围的数据排列到D列Sub 将指定围的数据排列到D列()Dim arr1, arr2, i%, xarr1 = Range("A1:C3")ReDim arr2(1 To UBound(arr1, 1) * UBound(arr1, 2), 1 To 1)For Each x In Application.Transpose(arr1)i = i + 1arr2(i, 1) = xNext xRange("D1").Resize(i, 1) = arr2End Sub光标移动Sub 光标移动()ActiveCell.Offset(1, 2).Select '向下移动1行，向右移动2列End Sub138：光标所在行上移一行Sub 光标所在行上移一行()Dim i%i = Split(ActiveCell.Address, "$")(2)If i > 1 ThenRows(i).CutRows(i - 1).Insert Shift:=xlDownEnd IfEnd Sub139：加数据有效限制Sub 加数据有效限制()With Selection.Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _xlBetween, Formula1:="bigsun010sina.".IgnoreBlank = False.InCellDropdown = False.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "要奋斗就会有牺牲，死人的事是经常发生的。

VBA程序开发--259个常用宏

[VBA程序开发]★２５９个常用宏★(7月11日更新)[复制链接]
本人不懂代码，平时使用的宏是通过录制修改或论坛下载得到的，现将搜集整理的常用宏代码发到论坛与朋友们分享。

文件中一定存在错误和不足，希望大家审阅提出，我会随时纠正、补充和改善。

在此感谢各位朋友！
sRSpQWz1.zip(107.5 KB, 下载次数: 43307)
2007年7月11日更新
注：文件中有个文本框，是为了文件中的代码与表格中的相互复制数据方便所设。

说明：
如果你以前未曾使用过宏，需要操作：工具》选项》安全性》宏安全性》勾选“中”或“低”》退出Excel后再重新进入。

录制宏的过程：工具》宏》录制新宏》指定保存在当前工作簿》指定新宏的名称》开始录制》做你要做的系列工作》工具》宏》停止录制》做个按钮或图片》鼠标右键点它》指定宏》指定刚录制好的宏》以后要做上述系列工作点按钮即可
复制使用宏：打开你的工作簿》按Alt+F11进入VBA》在工程资源管理器窗口单击鼠标右键，选择插入—“模块”》代码粘贴到模块中》退出VBA》工具》宏》（使用宏：）选择这个宏》执行(或者插入按钮或图片，鼠标右击选择链接宏）
其他：附件中还包括所谓“工作簿代码”和“工作表代码”，是要鼠标右选工作簿名和工作表标签》查看代码》复制代码到其中，就可以使用了。

请参考山菊花超级版主的重要论述：
[此贴子已经被作者于2008-7-25 11:11:53编辑过] [本帖最后由 LangQueS 于 2009-8-5 21:09 编辑]。

excel 259个常用宏

宏文件集▲打开全部隐藏工作表返回Sub 打开全部隐藏工作表()Dim i As IntegerFor i = 1 To Sheets.CountSheets(i).Visible = TrueNext iEnd Sub▲循环宏返回Sub 循环()AAA = Range("C2")Dim i As LongDim times As Longtimes = AAA'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i = 1 To timesCall 过滤一行If Range("完成标志") = "完成" Then Exit For '如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成 'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit For '如果某列出现"完成"内容则退出循环Next iEnd Sub▲录制宏时调用“停止录制”工具栏返回Sub 录制宏时调用停止录制工具栏()mandBars("Stop Recording").Visible = TrueEnd Sub▲高级筛选5列不重复数据至指定表返回Sub 高级筛选5列不重复数据至Sheet2()Sheets("Sheet2").Range("A1:E65536") = "" '清除Sheet2的A:D列Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _"A1"), Unique:=TrueSheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYinEnd Sub▲双击单元执行宏(工作表代码)返回Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Range("$A$1") = "关闭" Then Exit SubSelect Case Target.AddressCase "$A$4"Call 宏1Cancel = TrueCase "$B$4"Call 宏2Cancel = TrueCase "$C$4"Call 宏3Cancel = TrueCase "$E$4"Call 宏4Cancel = TrueEnd SelectEnd Sub▲双击指定区域单元执行宏(工作表代码)返回Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Range("$A$1") = "关闭" Then Exit SubIf Not Application.Intersect(Target, Range("A4:A9", "C4:C9")) Is Nothing Then Call 打开隐藏表End Sub▲进入单元执行宏(工作表代码)返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)'以单元格进入代替按钮对象调用宏If Range("$A$1") = "关闭" Then Exit SubSelect Case Target.AddressCase "$A$5" '单元地址(Target.Address),或命名单元名字()Call 宏1Case "$B$5"Call 宏2Case "$C$5"Call 宏3End SelectEnd Sub▲进入指定区域单元执行宏(工作表代码)返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range("$A$1") = "关闭" Then Exit SubIf Not Application.Intersect(Target, Range("A4:A9","C4:C9")) Is Nothing Then Call 打开隐藏表End Sub▲在多个宏中依次循环执行一个（控件按钮代码）返回Private Sub CommandButton1_Click()Static RunMacro As IntegerSelect Case RunMacroCase 0宏1RunMacro = 1Case 1宏2RunMacro = 2Case 2宏3RunMacro = 0End SelectEnd Sub▲在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）返回Private Sub CommandButton1_Click()With CommandButton1If .Caption = "保护工作表" ThenCall 保护工作表.Caption = "取消工作表保护"Exit SubEnd IfIf .Caption = "取消工作表保护" ThenCall 取消工作表保护.Caption = "保护工作表"Exit SubEnd IfEnd WithEnd Sub▲在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）返回Option ExplicitPrivate Sub CommandButton1_Click()With CommandButton1If .Caption = "宏1" ThenCall 宏1.Caption = "宏2"Exit SubEnd IfIf .Caption = "宏2" ThenCall 宏2.Caption = "宏3"Exit SubEnd IfIf .Caption = "宏3" ThenCall 宏3.Caption = "宏1"Exit SubEnd IfEnd WithEnd Sub▲根据A1单元文本隐藏/显示按钮（控件按钮代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range("A1") > 2 ThenCommandButton1.Visible = 1ElseCommandButton1.Visible = 0End IfEnd SubPrivate Sub CommandButton1_Click()重排窗口End Sub▲当前单元返回按钮名称（控件按钮代码）返回Private Sub CommandButton1_Click()ActiveCell = CommandButton1.CaptionEnd Sub▲当前单元内容返回到按钮名称（控件按钮代码）返回Private Sub CommandButton1_Click()CommandButton1.Caption = ActiveCellEnd Sub▲奇偶页分别打印返回Sub 奇偶页分别打印()Dim i%, Ps%Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '总页数MsgBox "现在打印奇数页,按确定开始."For i = 1 To Ps Step 2ActiveSheet.PrintOut from:=i, To:=iNext iMsgBox "现在打印偶数页,按确定开始."For i = 2 To Ps Step 2ActiveSheet.PrintOut from:=i, To:=iNext iEnd Sub▲自动打印多工作表第一页返回Sub 自动打印多工作表第一页()Dim sh As IntegerDim xDim yDim syDim syzx = InputBox("请输入起始工作表名字:")sy = InputBox("请输入结束工作表名字:")y = Sheets(x).Indexsyz = Sheets(sy).IndexFor sh = y To syzSheets(sh).SelectSheets(sh).PrintOut from:=1, To:=1Next shEnd Sub▲查找A列文本循环插入分页符返回Sub 循环插入分页符()' Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容Dim i As LongDim times As Longtimes = Application.WorksheetFunction.CountIf(Sheet1.Range("a:a"), "分页")'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i = 1 To timesCall 插入分页符Next iEnd SubSub 插入分页符()Cells.Find(What:="分页", After:=ActiveCell, LookIn:=xlValues, LookAt:= _xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _.ActivateActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCellEnd SubSub 取消原分页()Cells.SelectActiveSheet.ResetAllPageBreaksEnd Sub▲将A列最后数据行以上的所有B列图片大小调整为所在单元大小返回Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小()Dim Pic As Picture, i&i = [A65536].End(xlUp).RowFor Each Pic In Sheet1.PicturesIf Not Application.Intersect(Pic.TopLeftCell, Range("B1:B" & i)) Is Nothing ThenPic.Top = Pic.TopLeftCell.TopPic.Left = Pic.TopLeftCell.LeftPic.Height = Pic.TopLeftCell.HeightPic.Width = Pic.TopLeftCell.WidthEnd IfNextEnd Sub▲返回光标所在行数返回Sub 返回光标所在行数()x = ActiveCell.RowRange("A1") = xEnd Sub▲在A1返回当前选中单元格数量返回Sub 在A1返回当前选中单元格数量()[A1] = Selection.CountEnd Sub▲返回当前工作簿中工作表数量返回Sub 返回当前工作簿中工作表数量()t = Application.Sheets.CountMsgBox tEnd Sub▲返回光标选择区域的行数和列数返回Sub 返回光标选择区域的行数和列数()x = Selection.Rows.County = Selection.Columns.CountRange("A1") = xRange("A2") = yEnd Sub▲工作表中包含数据的最大行数返回Sub 包含数据的最大行数()n = Cells.Find("*", , , , 1, 2).RowMsgBox nEnd Sub▲返回A列数据的最大行数返回Sub 返回A列数据的最大行数()n = Range("a65536").End(xlUp).RowRange("B1") = n▲将所选区域文本插入新建文本框返回Sub 将所选区域文本插入新建文本框()For Each rag In Selectionn = n & rag.Value & Chr(10)NextActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, ActiveCell.Left + ActiveCell.Width, ActiveCell.Top + Active Selection.Characters.Text = "问题：" & nWith Selection.Characters(Start:=1, Length:=3).Font.Name = "黑体".FontStyle = "常规".Size = 12End WithEnd Sub▲批量插入地址批注返回Sub 批量插入地址批注()On Error Resume NextDim r As RangeIf Selection.Cells.Count > 0 ThenFor Each r In Selectionment.Deleter.AddCommentment.Visible = Falsement.Text Text:="本单元格：" & r.Address & " of " & Selection.AddressNextEnd IfEnd Sub▲批量插入统一批注返回Sub 批量插入统一批注()Dim r As Range, msg As Stringmsg = InputBox("请输入欲批量插入的批注", "提示", "随便输点什么吧")If Selection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.Visible = Falsement.Text Text:=msgNextEnd IfEnd Sub▲以A1单元内容批量插入批注返回Sub 以A1单元内容批量插入批注()Dim r As RangeIf Selection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.Visible = Falsement.Text Text:=[a1].TextNextEnd IfEnd Sub▲不连续区域插入当前文件名和表名及地址返回Sub 批量插入当前文件名和表名及地址()For Each mycell In Selectionmycell.FormulaR1C1 = "[" + + "]" + + "!" + mycell.AddressNextEnd Sub▲不连续区域录入当前单元地址返回Sub 区域录入当前单元地址()For Each mycell In Selectionmycell.FormulaR1C1 = mycell.AddressNext▲连续区域录入当前单元地址返回Sub 连续区域录入当前单元地址()Selection = "=ADDRESS(ROW(),COLUMN(),4,1)"Selection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseEnd Sub▲返回当前单元地址返回Sub 返回当前单元地址()d = ActiveCell.Address[A1] = dEnd Sub▲不连续区域录入当前日期返回Sub 区域录入当前日期()Selection.FormulaR1C1 = Format(Now(), "yyyy-m-d")End Sub▲不连续区域录入当前数字日期返回Sub 区域录入当前数字日期()Selection.FormulaR1C1 = Format(Now(), "yyyymmdd")End Sub▲不连续区域录入当前日期和时间返回Sub 区域录入当前日期和时间()Selection.FormulaR1C1 = Format(Now(), "yyyy-m-d h:mm:ss")End Sub▲不连续区域录入对勾返回Sub 批量录入对勾()Selection.FormulaR1C1 = "√"End Sub▲不连续区域录入当前文件名返回Sub 批量录入当前文件名()Selection.FormulaR1C1 = End Sub▲不连续区域添加文本返回Sub 批量添加文本()Dim s As RangeFor Each s In Selections = s & "文本内容"NextEnd Sub▲不连续区域插入文本返回Sub 批量插入文本()Dim s As RangeFor Each s In Selections = "文本内容" & sNextEnd Sub▲从指定位置向下同时录入多单元指定内容返回Sub 从指定位置向下同时录入多单元指定内容()Dim arrarr = Array("1", "2", "13", "25", "46", "12", "0", "20")[B2].Resize(8, 1) = Application.WorksheetFunction.Transpose(arr)End Sub▲按aa工作表A列的内容排列工作表标签顺序返回Sub 按aa工作表A列的内容排列工作表标签顺序()Dim I%, str1$I = 1Sheets("aa").SelectDo While Cells(I, 1).Value <> ""str1 = Trim(Cells(I, 1).Value)Sheets(str1).SelectSheets(str1).Move after:=Sheets(I)I = I + 1Sheets("aa").SelectLoopEnd Sub▲以A1单元文本作表名插入工作表返回Sub 以A1单元文本作表名插入工作表()Dim nm As Stringnm = [a1]Sheets.Add = nmEnd Sub▲删除全部未选定工作表返回Sub 删除全部未选定工作表()Dim sht As Worksheet, n As Integer, iFlag As BooleanDim ShtName() As Stringn = ActiveWindow.SelectedSheets.CountReDim ShtName(1 To n)n = 1For Each sht In ActiveWindow.SelectedSheetsShtName(n) = n = n + 1NextApplication.DisplayAlerts = FalseFor Each sht In SheetsiFlag = FalseFor i = 1 To n - 1If ShtName(i) = TheniFlag = TrueExit ForEnd IfNextIf Not iFlag Then sht.DeleteNextApplication.DisplayAlerts = TrueEnd Sub▲工作表标签排序返回Sub 工作表标签排序()Dim i As Long, j As Long, nums As Long, msg As Longmsg = MsgBox("工作表按升序排列请选 '是[Y]'. " & vbCrLf & vbCrLf & "工作表按降序排列请选 '否[N]'", vbYesNoCancel, "工作表排序If msg = vbCancel Then Exit Subnums = Sheets.CountIf msg = vbYes Then 'Sort ascendingFor i = 1 To numsFor j = i To numsIf UCase(Sheets(j).Name) < UCase(Sheets(i).Name) ThenSheets(j).Move Before:=Sheets(i)End IfNext jNext iElse 'Sort descendingFor i = 1 To numsFor j = i To numsIf UCase(Sheets(j).Name) > UCase(Sheets(i).Name) ThenSheets(j).Move Before:=Sheets(i)End IfNext jNext iEnd IfEnd Sub▲定义指定工作表标签颜色返回Sub 定义指定工作表标签颜色()Sheets("Sheet1").Tab.ColorIndex = 46End Sub▲在目录表建立本工作簿中各表链接目录返回Sub 在目录表建立本工作簿中各表链接目录()Dim s%, Rng As RangeOn Error Resume NextSheets("目录").ActivateIf Err = 0 ThenSheets("目录").UsedRange.DeleteElseSheets.Add = "目录"End IfFor i = 1 To Sheets.CountIf Sheets(i).Name <> "目录" Thens = s + 1Set Rng = Sheets("目录").Cells(((s - 1) Mod 20) + 1, (s - 1) \ 20 + 1 + 1)Rng = Format(s, " 0") & ". " & Sheets(i).NameActiveSheet.Hyperlinks.Add Rng, "#" & Sheets(i).Name & "!A1", ScreenTip:=Sheets(i).NameEnd IfNextSheets("目录").Range("b:iv").EntireColumn.ColumnWidth = 20End Sub▲建立工作表文本目录返回Sub 建立工作表文本目录()Sheets.Add before:=Sheets(1)Sheets(1).Name = "目录"For i = 2 To Sheets.CountCells(i - 1, 1) = Sheets(i).Name'Sheets(1).Hyperlinks.Add Cells(i - 1, 1), "#" & Sheets(i).Name & "!A1" '添加超链接NextEnd Sub▲查另一文件的全部表名返回Sub 查另一文件的全部表名()On Error Resume NextDim i%Dim sh As WorksheetApplication.ScreenUpdating = FalseWorkbooks.Open Filename:=ThisWorkbook.Path & "\2.xls"Windows("1.xls").Activate '当前文件名称Sheets("Sheet1").Select '当前表名称i = 1 '将表名称返回到第1行For Each sh In Workbooks("2.xls").WorksheetsCells(i, 1) = '将表名称返回到第1列i = i + 1 '返回每个表名称向下移动1行Next shWindows("2.xls").Close '关闭对象文件Application.ScreenUpdating = TrueEnd Sub▲当前单元录入计算机名返回Sub 当前单元录入计算机名()Selection = Environ("COMPUTERNAME")'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub▲当前单元录入计算机用户名返回 Sub 当前单元录入计算机用户名()Selection = Environ("Username")'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub▲解除全部工作表保护返回Sub 解除全部工作表保护()Dim n As IntegerFor n = 1 To Sheets.CountSheets(n).UnprotectNext nEnd Sub▲为指定工作表加指定密码保护表返回Sub 为指定工作表加指定密码保护表()Sheet10.Protect Password:="123"End Sub▲在有密码的工作表执行代码返回Sub 在有密码的工作表执行代码()Sheets("1").Unprotect Password:=123 '假定表名为“1”，密码为“123” 打开工作表Range("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True '隐藏C列空值行Sheets("1").Protect Password:=123 '重新用密码保护工作表End Sub▲执行前需要验证密码的宏(控件按钮代码)返回Private Sub CommandButton1_Click()If InputBox("请输入密码：") <> "123" Then '密码是123MsgBox "密码错误,按确定退出!", 64, "提示"Exit SubEnd IfCells(1, 1) = 10End SubSub 执行前需要验证密码的宏()If InputBox("请输入您的使用权限:", "系统提示") = 123 Then重排窗口 '要执行的宏代码或宏名称ElseMsgBox "对不起,您没有使用该宏的权限,按确定键后退出!"End IfEnd Sub▲拷贝A1公式和格式到A2返回Sub 拷贝A1公式到A2()Workbooks("临时表").Sheets("表1").Range("A1").CopyWorkbooks("临时表").Sheets("表2").Range("A2").PasteSpecialEnd Sub▲复制单元数值返回Sub 复制数值()s = Workbooks("book1").Sheets("Sheet1").Range("A1:A2")Workbooks("book2").Sheets("Sheet1").Range("A1:A2") = sEnd Sub▲插入数值条件格式返回Sub 插入数值条件格式()Selection.FormatConditions.DeleteSelection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _Formula1:="70"Selection.FormatConditions(1).Interior.ColorIndex = 45Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _Formula1:="55"Selection.FormatConditions(2).Interior.ColorIndex = 39Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _Formula1:="60"Selection.FormatConditions(3).Interior.ColorIndex = 34End Sub▲插入透明批注返回Sub 插入透明批注()Selection.AddCommentment.Visible = FalseDim XS As WorksheetFor i = 1 To ments.Countments(i).Text "透明批注"ments(i).Shape.Fill.Visible = msoFalseNextEnd Sub▲添加文本返回Sub 添加文本()Selection = Selection + "×" '不可在数字后添加文本'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub▲光标定位到指定工作表A列最后数据行下一单元返回Sub 光标定位到指定工作表A列最后数据行下一单元()a = Sheets("数据库").[a65536].End(xlUp).RowSheets("数据库").SelectRange("A" & a + 1).SelectEnd Sub▲定位选定单元格式相同的全部单元格返回Sub 定位选定单元格式相同的全部单元格()Dim FirstCell As Range, FoundCell As RangeDim AllCells As RangeWith Application.FindFormat.Clear.NumberFormatLocal = Selection.NumberFormatLocal.HorizontalAlignment = Selection.HorizontalAlignment.VerticalAlignment = Selection.VerticalAlignment.WrapText = Selection.WrapText.Orientation = Selection.Orientation.AddIndent = Selection.AddIndent.IndentLevel = Selection.IndentLevel.ShrinkToFit = Selection.ShrinkToFit.MergeCells = Selection.MergeCells = .Font.FontStyle = Selection.Font.FontStyle.Font.Size = Selection.Font.Size.Font.Strikethrough = Selection.Font.Strikethrough.Font.Subscript = Selection.Font.Subscript.Font.Underline = Selection.Font.Underline.Font.ColorIndex = Selection.Font.ColorIndex.Interior.ColorIndex = Selection.Interior.ColorIndex.Interior.Pattern = Selection.Interior.Pattern.Locked = Selection.Locked.FormulaHidden = Selection.FormulaHiddenEnd WithSet FirstCell = edRange.Find(what:="", searchformat:=True)If FirstCell Is Nothing ThenExit SubEnd IfSet AllCells = FirstCellSet FoundCell = FirstCellDoSet FoundCell = edRange.Find(After:=FoundCell, what:="", searchformat:=True)If FoundCell Is Nothing Then Exit DoSet AllCells = Union(FoundCell, AllCells)If FoundCell.Address = FirstCell.Address Then Exit DoLoopAllCells.SelectEnd Sub▲按当前单元文本定位返回Sub 按当前单元文本定位()ABC = SelectionDim aa As RangeFor Each a In edRangeIf a Like ABC ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub▲按固定文本定位返回Sub 文本定位()Dim aa As RangeFor Each a In edRangeIf a Like "*合计*" ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub▲删除包含固定文本单元的行或列返回Sub 删除包含固定文本单元的行或列()DoCells.Find(what:="哈哈").ActivateSelection.EntireRow.Delete '删除行' Selection.EntireColumn.Delete '删除列Loop Until Cells.Find(what:="哈哈") Is NothingEnd Sub▲定位数据及区域以上的空值返回Sub 定位数据及区域以上的空值()Dim aa As RangeFor Each a In edRangeIf a Like 〈0 ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End Ifaa.SelectEnd Sub▲右侧单元自动加5(工作表代码)返回Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseTarget.Offset(0, 1) = Target + 5Application.EnableEvents = TrueEnd Sub▲当前单元加2返回Sub 当前单元加2()Selection = Selection + 2'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub▲A列等于A列减B列返回Sub A列等于A列减B列()For i = 1 To 23Cells(i, 1) = Cells(i, 1) - Cells(i, 2)NextEnd Sub▲用于光标选定多区域跳转指定单元(工作表代码)返回Private Sub Worksheet_SelectionChange(ByVal T As Range)a = Array([b6:b7], [e6], [h6])For i = 0 To 2If Not Application.Intersect(T, a(i)) Is Nothing Then[a1].Select: Exit ForEnd IfNextEnd Sub▲将A1单元录入的数据累加到B1单元（工作表代码）返回Private Sub Worksheet_Change(ByVal Target As Range)Dim t As LongIf Target.Address = "$A$1" Thent = Sheet1.Range("$B$1").ValueSheet1.Range("$B$1").Value = t + Target.ValueEnd IfEnd Sub▲在指定颜色区域选择单元时添加/取消"√"（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim myrg As RangeFor Each myrg In TargetIf myrg.Interior.ColorIndex = 37 Then myrg = IIf(myrg <> "√", "√", "")NextEnd Sub▲在指定区域选择单元时添加/取消"√"（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Rng As RangeIf Target.Count <= 15 ThenIf Not Application.Intersect(Target, Range("D6:D20")) Is Nothing ThenFor Each Rng In SelectionWith RngIf .Value = "" Then.Value = "√"Else.Value = ""End IfEnd WithNextEnd If▲双击指定单元，循环录入文本（工作表代码）返回Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)If T.Address <> "$A$1" Then Exit SubCancel = TrueT = IIf(T = "好", "中", IIf(T = "中", "差", "好"))End Sub双击指定单元，循环录入文本（工作表代码）Dim nums As BytePrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Address = "$A$1" Thennums = nums Mod 3 + 1Target = Mid("上中下", nums, 1)Target.Offset(1, 0).SelectEnd IfEnd Sub▲单元区域引用（工作表代码）返回Private Sub Worksheet_Activate()Sheet1.Range("A1:B3").Value = Sheet2.Range("A1:B3").ValueEnd Sub▲在指定区域选择单元时数值加1（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Application.Intersect([a1:e10], Target) Is Nothing ThenTarget = Val(Target) + 1End IfEnd Sub▲混合文本的编号返回Sub 混合文本的编号()Worksheets(1).Range("B2").Value = "北京" & (--(Mid(Worksheets(1).Range("B2"), 3, 100)) + 1)End Sub▲指定区域单元双击数据累加（工作表代码）返回Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Not Application.Intersect([A1:Y100], Target) Is Nothing Thenoldvalue = Val(Target.Value)inputvalue = InputBox("请输入数量,按ENTER键确认!", "数值累加器")Target.Value = oldvalue + inputvalueEnd IfEnd Sub▲选择单元区域触发事件（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = "$A$1:$B$2" ThenMsgBox "你选择了$A$1:$B$2单元"End IfEnd Sub▲当修改指定单元内容时自动执行宏（工作表代码）返回Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, [B3:B4]) Is Nothing Then重排窗口End IfEnd Sub▲被指定单元内容限制执行宏返回Sub 被指定单元限制执行宏()If Range("$A$1") = "关闭" Then Exit Sub窗口End Sub▲双击单元隐藏该行（工作表代码）返回End Sub▲高亮显示行（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.ColorIndex = 2Rows("1:2").Interior.ColorIndex = 40 '保持1至2行的颜色推荐39,22,40,Rows(Target.Row).Interior.ColorIndex = 35 '高亮推荐颜色35,20,24,34,37,40,15End Sub▲高亮显示行和列（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.ColorIndex = xlNoneRows(Target.Row).Interior.ColorIndex = 34Columns(Target.Column).Interior.ColorIndex = 34End Sub▲为指定工作表设置滚动范围（工作簿代码）返回Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)Sheet1.ScrollArea = "A1:M30"End Sub▲在指定单元记录打印和预览次数（工作簿代码）返回Private Sub Workbook_BeforePrint(Cancel As Boolean)Range("A1") = 1 + Range("A1")End Sub▲自动数字金额转大写（工作表代码）返回Private Sub Worksheet_Change(ByVal M As Range)On Error Resume Nexty = Int(Round(100 * Abs(M)) / 100)j = Round(100 * Abs(M) + 0.00001) - y * 100f = (j / 10 - Int(j / 10)) * 10A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", "")))c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")M = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))End Sub▲将全部工作表的A1单元作为单击按钮（工作簿代码）返回Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)If Target.Address = "$A$1" ThenCall 宏名End IfEnd Sub▲闹钟——到指定时间执行宏（工作簿代码）返回Private Sub Workbook_Open()Application.OnTime ("11:45:00"), "提示1" '宏名字Application.OnTime ("12:00:00"), "提示2" '宏名字End Sub▲改变Excel界面标题的宏（工作簿代码）返回Private Sub Workbook_Open()Application.Caption = "春节快乐"End Sub▲在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）返回Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)Worksheets("表2").Range("A1") = Target.Address(0, 0)End Sub▲B列录入数据时在A列返回记录时间（工作表代码）返回Public Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 2 ThenTarget.Offset(, -1) = Now▲当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）返回Public Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, [A1:A1000]) Is Nothing ThenIf Target.Column = 1 ThenTarget.Offset(, 1) = DateTarget.Offset(, 2) = TimeEnd IfEnd IfEnd SubPublic Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, [A1:A1000]) Is Nothing ThenIf Target.Column = 1 ThenTarget.Offset(, 1) = Format(Now(), "yyyy-mm-dd")Target.Offset(, 2) = Format(Now(), "h:mm:ss")End IfEnd IfEnd Sub▲指定单元显示光标位置内容（工作表代码）返回Private Sub Worksheet_SelectionChange(ByVal T As Range)Sheets(1).Range("A1") = SelectionEnd Sub▲每编辑一个单元保存文件返回Private Sub Worksheet_Change(ByVal Target As Range)ThisWorkbook.SaveEnd Sub▲指定允许编辑区域返回Sub 指定允许编辑区域()ActiveSheet.ScrollArea = "B8:G15"End Sub▲解除允许编辑区域限制返回Sub 解除允许编辑区域限制()ActiveSheet.ScrollArea = ""End Sub▲删除指定行返回Sub 删除指定行()Workbooks("临时表").Sheets("表2").Range("5:5").DeleteEnd Sub▲删除A列为指定内容的行返回Sub 删除A列为指定内容的行()Dim a, b As Integera = Sheet1.[a65536].End(xlUp).RowFor b = a To 2 Step -1If Cells(b, 1).Value = "删除" ThenRows(b).DeleteEnd IfNextEnd Sub▲删除A列非数字单元行返回Sub 删除A列非数字单元行()i = [a65536].End(xlUp).RowRange("A1:A" & i).SpecialCells(xlCellTypeConstants, 2).EntireRow.DeleteEnd Sub▲有条件删除当前行返回Sub 有条件删除当前行()If [A1] = 2 Or [B1] = "删除" Then▲选择下一行返回Sub 选择下一行()ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.SelectEnd Sub▲选择第5行开始所有数据行返回Sub 选择第5行开始所有数据行A()Dim i%i = Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).EntireRow.RowRows("5:" & i).SelectEnd SubSub 选择第5行开始所有数据行B()Rows("5:" & Cells.Find("*", , , , 1, 2).Row).SelectEnd Sub▲选择光标或选区所在行返回Sub 选择光标或选区所在行()Selection.EntireRow.SelectEnd Sub▲选择光标或选区所在列返回Sub 选择光标或选区所在列()Selection.EntireColumn.SelectEnd Sub▲光标定位到名称指定位置返回Sub 定位()Application.Goto Range(Evaluate("名称"))End Sub▲选择名称定义的数据区返回Sub 选择名称定义的数据区()[数据区].Select '插入名称要使用INDIRECT函数'Range("数据区").Select 或者'Sheet1.Range("数据区").Select 或者End Sub▲选择到指定列的最后行返回Sub 选择到指定列的最后行()Range("C4:G" & [G65536].End(xlUp).Row).SelectEnd Sub▲将Sheet1的A列的非空值写到Sheet2的A列返回Sub 将Sheet1的A列的非空值写到Sheet2的A列()Sheet1.Columns("A:A").SpecialCells(2, 23).SpecialCells(12).Copy Sheet2.[A1]End Sub▲将名称1的数据写到名称2返回Sub Macro2()Range("位置2") = Range("位置1").ValueEnd Sub▲单元反选返回Sub 单元反选()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseDim raddress As String, taddress As Stringraddress = Selection.Addresstaddress = edRange.AddressWith Sheets.Add.Range(taddress) = 0End WithActiveSheet.Range(raddress).SelectApplication.ScreenUpdating = TrueEnd Sub▲调整选中对象中的文字返回Sub 调整选中对象中的文字()'文字居中、自动调整大小With Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.ReadingOrder = xlContext.Orientation = xlHorizontal.AutoSize = True.AddIndent = FalseEnd WithEnd Sub▲去除指定范围内的对象返回Sub 去除指定范围内的对象()Dim p As ShapeSet My = Worksheets("工作表名")For Each p In My.ShapesIf Not Application.Intersect(p.TopLeftCell, Range("范围")) Is Nothing Then p.DeleteNextEnd Sub▲更新透视表数据项返回Sub DeleteMissingItems2002All()'防止数据透视表中显示无用的数据项'在 Excel 2002 或更高版本中'如果无用的数据项已经存在,'运行这个宏可以更新Dim pt As PivotTableDim ws As WorksheetFor Each ws In ActiveWorkbook.WorksheetsFor Each pt In ws.PivotTablespt.PivotCache.MissingItemsLimit = xlMissingItemsNoneNext ptNext wsEnd Sub▲将全部工作表名称写到A列返回Sub 将全部表名称写到A列()k = 1For Each Sht In SheetsCells(k + 1, 1) = '指定写入的行和列k = k + 1NextEnd Sub▲为当前选定的多单元插入指定名称返回Sub 为当前选定的多单元插入指定名称() = "临时"s.Add Name:="临时", RefersTo:=Selection '或者换用这行代码也可以End Sub▲删除全部名称返回Sub 删除全部名称()On Error Resume NextDim l As Integerl = s.CountFor i = l To 1 Step -1s(i).Delete。

表格中宏的用法

技术报告：宏在Excel中的用法
一、引言
在Excel中，宏是一种强大的自动化工具，可以极大地提高数据处理和报表生成的工作效率。

通过宏，用户可以创建一系列自动执行的命令，以实现数据筛选、格式设置、计算、数据导入导出等操作。

本文将详细介绍Excel中宏的用法，帮助用户更好地理解和掌握这一功能。

二、宏的创建与录制
1.打开Excel，按下Alt + F11键，打开VBA编辑器。

2.在VBA编辑器中，选择“插入”菜单，然后选择“模块”，创建一个新的模块。

3.在新模块中，输入宏的名称，例如“MyMacro”。

4.点击工具栏上的“录制新宏”按钮，开始录制宏。

5.在Excel中执行所需的操作，例如筛选数据、设置格式等。

6.完成操作后，再次点击“录制新宏”按钮停止录制。

三、宏的编辑与修改
1.在VBA编辑器中，打开刚刚录制的宏（MyMacro）。

2.可以看到宏中包含了所有的操作步骤。

可以根据需要进行修改或添加新的步骤。

3.修改完成后，点击工具栏上的“运行子/用户窗体”按钮，测试宏的功能。

4.根据测试结果，对宏进行必要的调整。

四、宏的执行与运行
1.在Excel中，按下Alt + F8键，打开宏对话框。

2.在宏对话框中，选择要运行的宏（MyMacro）。

3.点击“运行”按钮，执行宏。

4.宏将自动执行在录制过程中所记录的所有操作。

五、注意事项与安全问题
1.在使用宏时，应确保计算机处于安全的环境中，避免执行来自不可信来源的宏。