Filme的专栏

1 Alt+F11 打开VBE ,点击插入->模块，插入新模块2 将多个文件 放在一个文件夹下，F5 运行Option Explicit Sub HzWb() Dim bt As Range, r As Long, c As Long r = 1 'r是表头的行数 c = 15 'c是表头的列数，根据表头数据更新 Dim wt As Worksheet Set wt = ThisWorkbook.Worksheets(1)

打开编辑器参考这个篇文章VBA拆分一个excel文件为多个excel文件合并代码如下Sub 多表多文件合并为多表一文件()Dim FileArrayDim X As IntegerApplication.ScreenUpdating = FalseFileArray = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄"

有时候时候需要将一个大的excel表格，拆分成多个文件，这里通过VBA提供一种方法步骤一 打开VB编辑器步骤二 插入模块步骤三 复制代码到模块中步骤四 运行代码Sub 保留表头拆分以表头命名新工作簿() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% c = Application.InputBox...