Excel VBA

最近更新

• excel 默认保存格式的修改方法，通过选项和VBA来设置excel默认保存格式

  

  excel默认保存格式，可以根据需要自己修改。 比如，excel2010版，保存文件时，默认保存格式是excel 工作薄。由于高低版本的差异，假如我们经常将文件另存为Excel97-2003工作簿，以方便传给低版本的用户也能打开。那么，我们就可以将excel默认保存格式设置为：Excel97-2...

  2023-10-30【VBA】

  阅读全文

• excel 隔行插入一行的两种方法，通过技巧和VBA操作来实现excel隔行插入一行

  

  excel隔行插入一行是一个很频繁的操作技巧。很久没用，居然有点生疏，整理一下，权当练习。下面是整理出来excel隔行插入一行的方法。 excel隔行插入一行方法一： 思路：添加辅助列再排序，分隔开后删除辅助列，就可以实现excel隔行插入一行。 比如A列有7行数据，...

  2023-10-29【VBA】

  阅读全文

• excel九九乘法表的几种制作方法，包括技巧、公式和VBA的方法制作九九乘法表

  

  九九乘法表，就是一个9x9的矩阵，九行九列，并且每列的行数在逐一递减。同时每列有内容的行的行数都大于等于列数。如下表所示： 根据上面分析的九九乘法表的规律，我们在excel中来制作这样一个九九乘法表。 九九乘法表也是一个很好的学习excel的实例。本文就来...

  2023-10-27【VBA】

  阅读全文

• excel 单元格内换行的方法，通过函数公式和VBA来实现excel单元格内换行

  

  excel单元格内换行的方法，比如通过alt+enter组合键等等方法。 注：如果使用alt+enter组合键使用excel单元格内换行之后，应该再重新调整行高（双击行与行之间间隔快速调整为合适高度）。 本文介绍一些特殊的excel单元格内换行的实例。 excel单元格内换行实例一： 如何用...

  2023-10-08【VBA】

  阅读全文

• excel 删除数据区域内的所有空行的四种方法：排序、高级筛选、自动筛选、VB

  

  excel 删除数据区域内所有空行的方法有多种，比如排序、高级筛选、自动筛选、VBA编写。下面小编就这几种删除空行的方法逐一介绍。 本文实例为员工的工资和个税清单。在这个数据清单中就存在一些空行，为了制造数据透视表，首先就需要将这些空行删除掉。 第一...

  2023-10-04【VBA】

  阅读全文

• excel中VBA基础入门介绍

  

  什么是VBA？ VBA是Visual Basic for Applications 的简称，Visual Basic（VB）在office的应用版。VBA是与VB类似或者可以说是一样的语言，而VB是以易用易学著称。 宏有什么用？如果经常在 Microsoft Excel 中重复某项任务，那么可以用宏自动执行该任务。这是宏在Excel帮助中的用途，而宏...

  2023-10-21【VBA】

  阅读全文

• 如何利用VBA禁用Excel中的F1键

  

  如果在使用Excel过程中习惯使用F2键切换到单元格编辑状态，有时可能会不小心错按了F1键而弹出Excel帮助窗口，特别是对于键盘较小的笔记本这种情况就更容易出现。如果是Excel 2007/2010，Excel帮助窗口会覆盖工作表窗口，显得有些不便。如果要禁用F1键，可以用下面的...

  2023-10-20【VBA】

  阅读全文

• excel中VBA快速取消工作簿中各工作表的自动筛选

  

  当工作簿中的工作表数量较多时，要快速取消各个工作表中的自动筛选可以下面的VBA代码。 1.按Alt+F11，打开VBA编辑器。 2.在代码窗口中输入下列代码 Sub RemoveAllAutoFilter() Dim sht As Worksheet For Each sht In ActiveWorkbook.Worksheets If sht.AutoFilterMode = True Then sht.AutoFilterMode = False Nex...

  2023-10-21【VBA】

  阅读全文

• 如何利用VBA获取Excel最近使用的工作簿列表

  

  下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称，并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中，如果通过Office按钮（或文件选项卡）Excel选项高级设置显示最近使用的文档数量大于0，该代码可以显示最近使用的最多50个工作簿名称。而...

  2023-10-22【VBA】

  阅读全文

• excel利用VBA实现类似条件格式改变字体字号的效果

  

  Excel中的条件格式可以非常直观地显示某些特定的数据，功能十分强大。但条件格式也有一些限制，例如无法通过条件格式设置字体和字号。如果要根据条件来改变单元格中字体或字号，可以用VBA来实现。下面的VBA代码将指定区域（H2:H500）中大于5000而小于10000的数值设...

  2023-10-29【VBA】

  阅读全文

• excel利用VBA选择并打开多个工作簿文件

  

  下面的VBA代码先用Application.GetOpenFilename方法显示打开文件对话框，然后打开所选择的一个或多个Excel工作簿文件。 Sub OpenWorkbooks() On Error Resume Next Dim SelectFiles As Variant '显示打开文件对话框 SelectFiles = Application.GetOpenFilename(Excel 文件 (*.xl*), *.xl*, , 打开, , True) '未选择 If ...

  2023-10-10【VBA】

  阅读全文

• excel利用VBA将多行多列区域转为一列

  

  有时需要在Excel中将某个多行多列的区域转换到一列中，下面的VBA代码可以实现这个目的。 1.按快捷键Alt+F11，打开VBA编辑器，在右侧代码窗口中粘贴下列代码： Sub RangeToOneCol() Dim TheRng, TempArr Dim i As Integer, j As Integer, elemCount As Integer On Error GoTo line1 Range(a:a).ClearContents I...

  2023-10-10【VBA】

  阅读全文

• excel利用VBA删除工作表中的重复行

  

  如果要在Excel中用VBA的方法以根据某列内容删除重复的行，即当某列有重复数据时仅保留一行，可以用下面的VBA代码。假如以A列为参考，工作表的第一行为标题行，数据从第二行开始。 方法一：用工作表函数CountIf判断该行是否重复 Sub 删除重复行1() Dim i As Long Applica...

  2023-10-30【VBA】

  阅读全文

• excel如何恢复VBA编辑器的默认窗口布局

  

  在使用VBA编辑器时，如果无意间弄乱了窗口布局，使各窗口不在其默认位置，使用起来有些不便。要恢复默认的VBA编辑器窗口布局，可以用下面的两种方法： 方法一：手工调整 1.在VBA编辑器中，单击菜单工具选项，在弹出的选项对话框中选择可连接的选项卡，勾选不...

  2023-10-10【VBA】

  阅读全文

• excel利用VBA生成无重复无空值的数据有效性下拉列表

  

  在Excel工作表的某个单元格中应用数据有效性设置来制作下拉列表时，如果引用的行或列区域中包含空单元格或重复项，那么在有效性下拉列表中会与原区域中的内容完全相同，也会包含空值或重复项，显得有些不够美观。例如下图是A1单元格的一个下拉列表。 通常可...

  2023-10-09【VBA】

  阅读全文

• excel利用VBA判断工作表是否存在

  

  下面的VBA代码可以判断当前Excel工作簿中的某个工作表是否存在，如果指定的工作表不存在，则以指定的工作表名新建一个工作表，如果指定的工作表已存在，则给出一个提示，并激活该工作表。下例中指定的工作表标签为一月，可根据实际进行修改。 Sub IsSheetExist(...

  2023-10-22【VBA】

  阅读全文

• excel利用VBA打开或禁止单元格拖放（自动填充）功能

  

  Excel中的单元格拖放或自动填充功能可以给我们的操作带来许多方便，但有时我们并不想拖动单元格而出现意外的错误操作。这时可能需要禁用单元格的拖放功能，除了可以通过Excel选项来设置打开或禁用单元格拖放功能外，还可以用VBA代码来实现，方法如下： 1.按A...

  2023-10-22【VBA】

  阅读全文

• Excel中计算阶乘（n!)的VBA代码

  

  在Excel中可以通过FACT函数来计算非负整数n的阶乘（n!)，而如果要通过VBA来计算阶乘，可以用下面的两个自定义函数： 1.使用循环： Function Factorial_a(ByVal Num As Integer) If Num 0 Then Factorial_a = #NUM! Else Factorial_a = 1 For i = 1 To Num Factorial_a = Factorial_a * i Next End If End Function 2.使用递...

  2023-10-13【VBA】

  阅读全文

• excel用VBA互换两个单元格或区域中的数据

  

  有时需要在Excel工作表中互换两个区域中的数据，如果区域相邻可以直接用拖动鼠标并按住Shift键的方法进行互换。而当两区域不相邻且两个区域中的数据量较大时用VBA则较为快捷。例如在互换两列时可以直接单击工作表上方的列标题选择整列，然后执行代码互换数据...

  2023-10-25【VBA】

  阅读全文

• excel用VBA将文本字符串的首字母变成大写

  

  下面的VBA代码可以将活动工作表中的所有文本字符串的首字母改为大写，对包含公式单元格则不作更改。 Sub CapitalizeFirstLetter() Dim Rng As Range ActiveSheet.UsedRange.Select For Each Rng In Selection.Cells If Rng.HasFormula = False Then Rng.Value = Application.WorksheetFunction.Proper(Rng.Value) End If Next Rn...

  2023-10-28【VBA】

  阅读全文

• excel获取屏幕分辨率的VBA代码

  

  用下面的代码可以获取屏幕分辨率，需将其放入模块中运行。 1.按Alt+F11打开VBA编辑器。 2.单击菜单插入模块，在模块中输入下列代码并运行： Declare Function GetSystemMetrics32 Lib user32 _ Alias GetSystemMetrics (ByVal nIndex As Long) As Long Sub DisplayMonitorInfo() Dim X As Long, Y As Long X = GetSy...

  2023-10-08【VBA】

  阅读全文

• Excel中有关打印预览的一些VBA代码

  

  显示指定工作表的打印预览，假如该工作表名称为Sheet1： Worksheets(Sheet1).PrintPreview 显示活动工作表的打印预览： Worksheets(Sheet1).PrintPreview 显示工作簿中所有工作表的打印预览： Sheets.PrintPreview 显示某一指定区域的打印预览，如当前工作表的A1:G10区域： ActiveSheet.Range(A...

  2023-10-07【VBA】

  阅读全文

• excel在选定区域中进行数量统计的VBA代码

  

  如果在Excel中选择了一个或多个区域，用下面的VBA代码可以统计当前工作表所选区域中单元格（或行、列）的数量： 1. 统计选定区域中的单元格数量： Sub CountCellsInSelection() Dim CellsNum As Integer CellsNum = Selection.Count MsgBox 所选区域中的单元格数量为： CellsNum End Sub 2.统计选...

  2023-10-10【VBA】

  阅读全文

• excel中VBA删除工作簿中的所有批注

  

  用下面的VBA代码可以同时删除工作簿中所有工作表中的批注： 1.按Alt+F11，打开VBA编辑器。 2.在代码窗口中输入下列代码 Sub RemoveAllComments() Dim sht As Worksheet Dim cmt As Comment For Each sht In ActiveWorkbook.Worksheets For Each cmt In sht.Comments cmt.Delete Next Next End Sub 3.关闭VBA编辑器，按快捷...

  2023-10-24【VBA】

  阅读全文

• 如何利用VBA更改页Excel眉页脚中的日期格式

  

  在Excel中通过自定义页脚的方式在页脚中插入日期时，Excel默认将使用短日期格式，如2009-10-9，但大家通常习惯使用2009年10月9日这样的长日期格式。Excel没有提供直接的方法在页眉或页脚中修改日期格式。在工作量不大的情况下，可以在页眉或页脚中手工输入这种长日...

  2023-10-08【VBA】

  阅读全文

• excel利用VBA进行多表合并计算一例

  

  在Excel中，用数据透视表可以轻松进行多个区域的数据合并计算。但当区域较多时，要在数据透视表向导中多次选择区域，稍显繁琐。如果需要合并的工作表较多，可以用下面的VBA代码来快速合并数据。区域的大小可以不同，各行或列的品种可以重复，但要求工作簿中...

  2023-10-11【VBA】

  阅读全文

• excel VBA同时选择多个工作表的方法

  

  如果要用VBA同时选择多个工作表，可以利用数组或设置Select方法的参数为False来扩展所选择的内容，如下面的一些代码： 1.用工作表名称： 假如工作表名称为Sheet1、Sheet2、Sheet3，同时选择这3个工作表： Sub SelectMultiSheets() Sheets(Array(Sheet3, Sheet2, Sheet1)).Select End Sub 2.用工作...

  2023-10-17【VBA】

  阅读全文

• excel如何打开或关闭VBA编辑器自动语法检查功能

  

  当在VBA编辑器代码窗口中输入有语法错误的语句时，默认VBA编辑器会弹出一个错误提示对话框，同时将错误语句显示为红色，这对于初学者可以起到很好的提醒作用。例如输入语句 if range(A1) 就立即回车，VBA编辑器会提示编译错误缺少:Then或GOTO。 但有时语法错误并非无...

  2023-10-15【VBA】

  阅读全文

• excel改变鼠标指针形状的VBA代码

  

  可以通过设置Application.Cursor属性改变鼠标指针形状。如在XP中下面的语句将鼠标指针的形状改变为沙漏状，这种形状的鼠标指针表示系统比较繁忙。 Application.Cursor = xlWait 改为I型指针： Application.Cursor = xlIBeam 改变鼠标指针形状后，Excel不会自动恢复，用下面的语句恢复...

  2023-10-15【VBA】

  阅读全文

• excel如何快速将VBA代码转换为注释

  

  在调试VBA代码时，有时需要将代码转换为注释，以避免执行代码。对于少量的代码，只需在其前面添加英文的单引号（'）即可，对于大段的代码，最快捷的方式是用编辑工具栏中的相关命令，方法如下： 1.选择需要转换为注释的所有代码。 2.在编辑工具栏中单击设置...

  2023-10-27【VBA】

  阅读全文