怎样用VBA把多个已经打开的工作簿里的所有工作表移动到已经打开的"合并工作簿.xlsm"里
代码就写在"合并工作簿.xlsm"里,就是任意打开的工作簿里的所有工作表都要移动
第1个回答 2016-12-27
在同一个工作区就可以直接移动。
第2个回答 2016-12-27
参考:
Sub MoveSheets()
Dim NewSheet As Worksheet
Sheets("1000").Copy After:=Sheets(1)
'Sheets("1000").Copy After:=Workbook.Worksheets.Count
Set NewSheet = ActiveSheet
NewSheet.Range("K1") = NewSheet.Range("K1").Value + 1
NewSheet.Name = Range("K1").Value
Sheets("1000").Range("K1") = NewSheet.Range("K1").Value
'ActiveSheet.Shapes("Button 1").Select
'Selection.Cut
ActiveSheet.Shapes("Button 1").Cut
End Sub本回答被网友采纳
Sub MoveSheets()
Dim NewSheet As Worksheet
Sheets("1000").Copy After:=Sheets(1)
'Sheets("1000").Copy After:=Workbook.Worksheets.Count
Set NewSheet = ActiveSheet
NewSheet.Range("K1") = NewSheet.Range("K1").Value + 1
NewSheet.Name = Range("K1").Value
Sheets("1000").Range("K1") = NewSheet.Range("K1").Value
'ActiveSheet.Shapes("Button 1").Select
'Selection.Cut
ActiveSheet.Shapes("Button 1").Cut
End Sub本回答被网友采纳