vba的宏和模块,关于excel表的合并
来源:互联网 发布:ios优酷网络连接失败 编辑:程序博客网 时间:2024/05/16 23:51
Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
这是多个文件合成到一个文件,不同的sheet,打开文件夹后要使用shift或者ctrl键选择所有需要的文件,一起哗,拉进来。
Sub hbgzb()
Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer
flag = False
For i = 1 To Sheets.Count
If Sheets(i).Name = "合并数据" Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = "合并数据"
Sheets("合并数据").Move after:=Sheets(Sheets.Count)
End If
For i = 1 To Sheets.Count
If Sheets(i).Name <> "合并数据" Then
hrow = Sheets("合并数据").UsedRange.Row
hrowc = Sheets("合并数据").UsedRange.Rows.Count
If hrowc = 1 Then
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow, 1).End(xlUp)
Else
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0)
End If
End If
Next i
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
这是多个文件合成到一个文件,不同的sheet,打开文件夹后要使用shift或者ctrl键选择所有需要的文件,一起哗,拉进来。
Sub hbgzb()
Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer
flag = False
For i = 1 To Sheets.Count
If Sheets(i).Name = "合并数据" Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = "合并数据"
Sheets("合并数据").Move after:=Sheets(Sheets.Count)
End If
For i = 1 To Sheets.Count
If Sheets(i).Name <> "合并数据" Then
hrow = Sheets("合并数据").UsedRange.Row
hrowc = Sheets("合并数据").UsedRange.Rows.Count
If hrowc = 1 Then
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow, 1).End(xlUp)
Else
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0)
End If
End If
Next i
End Sub
前提是sheet里面的目录项一致。还要选择这些目录项,和深度。
试过的哦,还可以的。
0 0
- vba的宏和模块,关于excel表的合并
- VBA合并EXCEL的单元格
- 关于Excel下通过VBA实现工作簿文件下工作表的合并
- vba操作excel的合并单元格代码
- 通过VBA宏合并Excel工作表
- 使用python的xlrd和xlwt模块合并excel表格
- 使用VBA实现Excel合并相同内容的相邻单元格
- 通过VBA宏合并Excel工作表(支持复制行数)
- VBA合并多个excel表
- VBA EXCEL 文件合并
- excel 合并文件 vba
- VBA excel文件合并
- EXCEL VBA 的潜力
- Excel的VBA
- Excel的VBA学习
- 有word vba 读取excel中存的word待合并路径,合并word文件
- Module1的VBA模块---Excel 2013 Power Programming with VBA Page550-554
- 解EXCEL VBA 密码的宏
- JasperReport学习笔记3-在浏览器生成PDF文件
- 在GridView中设置每个单元格的数据
- C#之数据类型转换
- QtoolBox的使用
- 使用Visual Leak Detector检查内存泄露
- vba的宏和模块,关于excel表的合并
- css 菜单搜索栏 随滚动条滚动 浮起来
- .framework的制作
- 应用界面主题Theme使用方法
- C#操作word之文本替换
- ListView GridView中item加载显示的动画效果
- Windows下mklink使用, 硬链接, 软链接和快捷方式的区别
- linux安装mysql出现Could NOT find Curses (missing CURSES_LIBRARY CURSES_INCLUDE_PATH),提示解决方法
- 杭电1422 重温世界杯