我第一次在堆疊溢位。我正在嘗試創建我在其中一個作業表中的表格的重復復制和粘貼，并將其分配給我的預算作業表中的以下按鈕。例如，當您單擊合同按鈕時，它將安裝新表。再次單擊它，它將留下一個換行符并插入新表。與變化按鈕相同。
預算作業表
表格樣本
我在此處提出的一個問題中嘗試了相關的復制樣本。
我知道復制和粘貼我被告知要使用此代碼
Sub CopyPasteToAnotherSheet()
Worksheets("Dataset").Range("B2:F9").Copy Worksheets("CopyPaste").Range("B2")
End Sub
它有效，但我只能復制一次。每次運行宏時，我都不知道如何多次復制它。
如果有人知道如何做到這一點，將不勝感激。（我一直沒有這樣做）
uj5u.com熱心網友回復：
歡迎加碼！
所以我想我理解這種需求，嘗試向我們展示你擁有的代碼通常是件好事，但這是第一次，這是一個可能會這樣做的代碼的開始：
Sub variations()
Dim rng As Range
Set rng = ActiveWorkbook.Sheets("Variations").Range("A1:B5")
Run copyAcross(rng)
End Sub
Sub contracts()
Dim rng As Range
Set rng = Worksheets("Contract").Range("A1:B2")
Run copyAcross(rng)
End Sub
Function copyAcross(rng As Range)
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("Budget")
targetRow = ws.Range("A" & Rows.Count).End(xlUp).Row 2
ws.Cells(targetRow, "A").Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
End Function
這給出了兩個可以指向按鈕的潛艇。在每個 sub 中，您可以定義所需的范圍，并且該函式將復制它。
注意：要使其在預算檔案中的列 A 中起作用，至少需要在其中某處的某個值，然后將第一個副本放在該列下方兩行
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/495992.html