屏幕刷新： 如果我们不需要看见代码执行过程数据变化，可以在代码开始初关闭屏幕更新 '关闭屏幕更新 Application.ScreenUpdating = False '恢复屏幕更新 Application.Screen…

一、提取单层文件内的文件名 只会提取到文件，如果是文件夹自动忽略。 Sub FileDir() Dim p$, f$, k& '获取用户选择文件夹的路径 With Application.FileDialog(m…

实现功能：选中当前工作表中的所有数据内容，将文本型数字转换为数值型数字。 缺点：日期格式的字符串会变成数值 Sub 转数值型数字() With ActiveSheet.UsedRange .NumberFormatLoc…

Sub XXX() Dim arr() arr = Application.GetOpenFilename("所有支付文件 (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv,Excel 文件…

注意此代码背景是筛选A列值为“lala”的数据，拷贝A至AA列所有数据 Function CopySelectValue(SheetsName1 As String,) Dim MaxRow, MinRow As Int…

在多人协作的word文档中，经常会出现同一性质的内容格式不一致的情况。要快速统一同一性质的内容的格式，最佳实践无疑是使用样式功能。但是对于表格而言，对表格样式的编辑无法做到使表格在页面居中，而且对于标题行重复这样的操作，…

因为有人询问合并计算，对VBA略知一些，我就写了一点，有需要的人可以借鉴。 新建一个工作表，粘贴到模块，F5运行，就可以达到左列合计，左列为一列。 下面是代码： 无源数据格式 Sub 多工作簿合计() Applicati…

防止更改工作表名称 工作表的名称显示在工作表标签上，除了在相应的功能菜单中可以对其进行重命名操作外，在工作表标签上双击鼠标也能修改工作表名称。但是一旦工作表名称进行了修改，则后期的引用则会造成很多影响。 下列代码可以保证…

前提：电脑上装有office2007或office2013等，WPS不行。 1、如果你有现成的一个工作簿含有多个工作表的文件，想分成多个工作簿的话， 可以通过office2007或office2013等打开execl，然…

VBA—批量转化表格格式（xls转xlsx、csv转xlsx） Excel可以通过另存为方式改变表格格式，如果遇到大批表格需要转化格式，手动另存为效率尤其慢。 我们可以使用VBA批量转化表格格式。 分享两种常用的表格格式…

引用工作表的方式 在应用VBA时，可能需要在不同的工作表中进行切换，下面是引用不同工作表的集中方法： 1、使用工作表名称 工作表名称是指显示在工作表标签中的文本，工作表名称可以使用 WorkSheets 集合和Sheet…

Sub 查找文档中有多少个指定字符串() dai_cha_zhao_text = InputBox("请输入您要查找到字符串：", " 包含多少个字符串查找") With ActiveDocument.Content.F…