嗨，我的代碼有問題。我正在創建 4 個新作業表，并將一個表格復制到每個表格 (dbR) 和一個Range("B8:K8")作為標題的范圍中。我試圖在復制時保持此范圍的格式，但是當我運行此代碼時，該行閃爍并且不復制任何內容而不會顯示錯誤。有什么我想念的嗎？我是新手，所以我希望我的代碼看起來很糟糕。
Sub CreateSheets()
Dim rng As Range: Set rng = ThisWorkbook.Worksheets("Configuration").Range("Vendors[Vendors]")
Dim dbR As Range: Set dbR = Sheets("Configuration").ListObjects("Client_Responses").DataBodyRange
Dim Ws_Name As String
For Each cell In rng
Ws_Name = cell
Worksheets.Add.Name = cell
ActiveSheet.Name = cell
dbR.Copy Destination:=Range("B2")
Worksheets("Configuration").Range("B8:K8").Copy
Worksheets(Ws_Name).Range("B1").PasteSpecial Paste:=xlPasteColumnWidths
Next cell
End Sub
uj5u.com熱心網友回復：
只需添加多個所需的“特殊粘貼”：
Sub CreateSheets()
Dim rng As Range: Set rng = ThisWorkbook.Worksheets("Configuration").Range("Vendors[Vendors]")
Dim dbR As Range: Set dbR = Sheets("Configuration").ListObjects("Client_Responses").DataBodyRange
Dim Ws_Name As String
Dim cell
For Each cell In rng
Ws_Name = cell
Worksheets.Add.Name = cell
ActiveSheet.Name = cell
dbR.Copy Destination:=Range("B2")
Worksheets("Configuration").Range("B8:K8").Copy
Worksheets(Ws_Name).Range("B1").PasteSpecial xlPasteColumnWidths
Worksheets(Ws_Name).Range("B1").PasteSpecial xlValues
Worksheets(Ws_Name).Range("B1").PasteSpecial xlFormats
Next cell
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/388339.html
上一篇：將字串的一部分定義為常量
下一篇：VBA回圈遍歷陣列