00:10:00
問(wèn)題已解決
老師，怎么在一個(gè)EXCEL鐘復(fù)制一個(gè)工作表一下子可以復(fù)制為好幾個(gè)相同的工作表（保證復(fù)制過(guò)去的時(shí)候連設(shè)置好的打印格式也一起復(fù)制過(guò)去。用復(fù)制-粘貼的話需要對(duì)每個(gè)工作表進(jìn)行重新調(diào)整打印格式）
溫馨提示：如果以上題目與您遇到的情況不符，可直接提問(wèn)，隨時(shí)問(wèn)隨時(shí)答
可以將要復(fù)制的工作表，在工作表名處右擊，選擇移動(dòng)和復(fù)制工作表。這樣可以保證打印格式
2020 06/20 13:46
84785021 
2020 06/20 13:51
老師，這樣只能一次復(fù)制一個(gè)！不能一次復(fù)制多個(gè)么？我想做200個(gè)工作表！
李李老師 
2020 06/20 13:58
批量復(fù)制，可以用vba，操作前保存好初始數(shù)據(jù)?。。?在VBA中用Inputbox函數(shù)來(lái)取得與批量復(fù)制的數(shù)量，編寫代碼執(zhí)行批量復(fù)制的程序即可，幾行代碼即可，想要復(fù)制多少個(gè)工作表都行。 代碼如下：
Sub macro2()
Dim K As Single
Dim N As Single
K = Application.InputBox(prompt:="請(qǐng)輸入欲拷貝表格的數(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
上述代碼默認(rèn)復(fù)制sheet1到新建表格中，通過(guò)修改代碼中的相應(yīng)名稱可以改變欲復(fù)職的初始表格。在使用上述代碼前，請(qǐng)做好原始數(shù)據(jù)備份。
84785021
2020 06/20 14:03
VBE函數(shù) 這個(gè)是不是WPS中不適用？
閱讀 2248
描述你的問(wèn)題，直接向老師提問(wèn)
2844
意見反饋
