小純潔 追問

2020-06-20 13:51

老師，這樣只能一次復(fù)制一個！不能一次復(fù)制多個么？我想做200個工作表！

李李老師 解答

2020-06-20 13:58

批量復(fù)制，可以用vba，操作前保存好初始數(shù)據(jù)?。?！
在VBA中用Inputbox函數(shù)來取得與批量復(fù)制的數(shù)量，編寫代碼執(zhí)行批量復(fù)制的程序即可，幾行代碼即可，想要復(fù)制多少個工作表都行。 代碼如下：
Sub macro2()
Dim K As Single
Dim N As Single
K = Application.InputBox(prompt:="請輸入欲拷貝表格的數(shù)目", Type:=1)
N = 1
Application.ScreenUpdating = False
Do Until N = K
If N > K Then
Exit Sub
End If
ThisWorkbook.Sheets("Sheet1").Activate
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
ActiveSheet.Paste
N = N + 1
Loop
Application.ScreenUpdating = True
End Sub
上述代碼默認復(fù)制sheet1到新建表格中，通過修改代碼中的相應(yīng)名稱可以改變欲復(fù)職的初始表格。在使用上述代碼前，請做好原始數(shù)據(jù)備份。

小純潔 追問

2020-06-20 14:03

VBE函數(shù) 這個是不是WPS中不適用？