功能:新建一个页签并用把其他页签的内容合并过来
Sub Macro4()
'' Macro3 Macro
Dim Source_Sheet1 As String
Dim Source_MinRow1 As Long
Dim Source_MinCol1 As Long
Dim Source_MaxRow As Long
Dim Source_MaxCol As Long
Dim Source_Sheet2 As String
Dim Source_MinRow2 As Long
Dim Source_MinCol2 As Long
Dim Des_Sheet As String
'新建页签
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "V1R11C10SPC100相对V1R11C00SPC100"
'配置
Des_Sheet = "V1R11C10SPC100相对V1R11C00SPC100"
Source_Sheet1 = "Sheet1"
Source_MinRow1 = 1
Source_MinCol1 = 1
Source_Sheet2 = "Sheet2"
Source_MinRow2 = 4
Source_MinCol2 = 1
Source_MaxRow = Worksheets(Source_Sheet1).Cells(65535, 1).End(xlUp).Row
Source_MaxCol = Worksheets(Source_Sheet1).Cells(1, 255).End(xlToLeft).Column
Source_MaxRowTemp = Source_MaxRow
Worksheets(Source_Sheet1).Select
Range(Cells(Source_MinRow1, Source_MinCol1), Cells(Source_MaxRow, Source_MaxCol)).Select
Selection.Copy
Worksheets(Des_Sheet).Select
Range("A1").Select
ActiveSheet.Paste
Source_MaxRow = Worksheets(Source_Sheet2).Cells(65535, 1).End(xlUp).Row
Source_MaxCol = Worksheets(Source_Sheet2).Cells(1, 255).End(xlToLeft).Column
Worksheets(Source_Sheet2).Select
Range(Cells(Source_MinRow2, Source_MinCol2), Cells(Source_MaxRow, Source_MaxCol)).Select
Selection.Copy
Worksheets(Des_Sheet).Select
Cells(Source_MaxRowTemp + 1, 1).Select
ActiveSheet.Paste
MsgBox "合并完成"
End Sub