技术文章 > [原创]EXCEL合并SHEET的改进方法

[原创]EXCEL合并SHEET的改进方法

2017-06-24 06:28

文档管理软件,文档管理系统,知识管理系统,档案管理系统的技术资料:

EXCEL合并SHEET的改进方法[原创]

本站先前给出了合并任意Sheet的方法,这里给出一个改进版本以便更好地使用。

(1)使用之前的准备:

请先创建一个空白的 Sheet 作为合并目标 Sheet ,这个 Sheet 必须是第一个 Sheet 哦。
如果不是第一个Sheet,则需要修改程序中的RootSheet数值;

(2)使用注意事项:

如果不合并第一行,则StartColumn = 1 改为 StartColumn = 2
如果不合并第一列,则StartRow = 1 改为 StartRow = 2

(3)MACRO宏源程序:

Sub CombineSheets()

“ 定义目标Sheet的编号
“ 默认第一个Sheet为目标Sheet
Dim RootSheet As Integer
RootSheet = 1

“ 开始列号, 默认为第1列开始合并
“ 如果不是从第一列开始,请修改这个参数
Dim StartRow As Integer
StartRow = 1

“ 开始行号, 默认为第1行开始合并
“ 如果不是从第一行开始,请修改这个参数
Dim StartColumn As Integer
StartColumn = 1

Dim i, j, k As Integer
For i = 1 To ThisWorkbook.Sheets.Count
If i<>StartSheet Then
For j = StartRow To ThisWorkbook.Sheets(i).UsedRange.Rows.Count + StartRow - 1
For k = StartColumn To ThisWorkbook.Sheets(i).UsedRange.Columns.Count + StartColumn - 1
ThisWorkbook.Sheets(RootSheet).Cells(j, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
Next k
Next j
End If
Next i

End Sub

Happy for your work!
Beijing Legalsoft Ltd.
2011-04-21