目标：在重复数据中按照一定规则提取、组合。 Sub match() Dim i, j, z, n, flag, A, B, C Set A = Worksheets("Sheet1").UsedRange Set B =…

一.工作表对象 Sheet1 资源管理器里表的值，每个表唯一且不可修改 Sheets(1) 工作表标签里的顺序 Sheets("一月") 方法 属性 Select Count Add Name Delete Copy 二…

把代码中Path下的文件复制到afterPath目录下 Sub copyFiles(Path As String, afterPath) 'Path：原文件夹路径；afterPath：目标文件夹路径 Dim Spath …

Excel VBA代码怎么样获取或修改当前工作表的表名 获取: Sub get_sheetname() sheetname = ActiveWindow.ActiveSheet.Name Debug.Print shee…

一.选取单元格的几种方法 a[10] cell(10,1) range("a10") 二.走位 Range("a1").offset Range("a10").end(xlUp) 三.重新选区 range("a10").…

EXCEL自定义排序最多只能有255个值,超过了就不能用自定义序列了,使用以下方法 求助excelhome论坛得出的答案 Sub 自定义排序() Application.ScreenUpdating = False '排…

word vba 如何查找出一个字符串中包括了多少个指定子字符串？ Sub at() aaaa = "ASDFSF。ASDF。SDF。234。'XCV。d" '第1种方法 bbb = Replace(aaaa, "。",…

案列：现需要按条件汇总一个文件夹下的多个Excel文件中的某列数据到汇总表格中，文件夹中的所有Excel文件都是基于一个模板，只是数据不同。 所有的Excel文件结构： 库存组织:XXX 货主类型:XXX 货主:XXX …

例子： Sub Auto_open() ‘一种方法是将宏的名称改为这个即可 MsgBox “欢迎回来继续学习VBA！” End Sub 还有一种方法就是使用VBE在工作簿的O…

1.0 VBA Reference: Microsoft Scriptiong Runtime 1.1 FOLDER精简版 Private Function IChooseFolder() As String Dim d…

Option Explicit Sub SplitPagesAsDocuments()     Dim oSrcDoc As Document, oNewDoc As Document   …

转自：http://www.exceloffice.net/archives/1598 在word中经常需要操作特定位置的文本内容，定位文本内容就显得尤为重要。 在word vba中Range、 Selecti…