添加新行並複製相同的格式和公式

-1

例如，通過單擊命令按鈕，我必須在最後一行下添加新行。新行應該與上述其他行具有相同的格式和公式。上面的行有條件格式，顏色，下拉列表，數據驗證，固定行高和公式。所有這些應該在創建新行時自動複製。工作表受到保護。你能幫我寫些什麼代碼來獲得最好的結果。此外，工作表應允許用戶刪除選定的行。謝謝。添加新行並複製相同的格式和公式

Sub Add_row() 
    ActiveSheet.Unprotect 
    ActiveSheet.Range("A13").CurrentRegion.Offset(ActiveSheet.Range("A13").CurrentRegion.Rows.Count - 1).Resize(2).EntireRow.FillDown 
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True 
End Sub

來源

2017-04-13 Vinz B

歡迎來到StackOverflow。本網站不是免費的寫作服務。請顯示您已有的代碼。 –

對不起，我沒有任何代碼，因爲我仍然是VBA的初學者。那是我尋求一些幫助的原因。 –

歡迎來到堆棧溢出。 SO不是「我的代碼」，「教我代碼」或「顯示從哪裏開始」網站。對於具有特定問題的現有代碼的人來說，可以獲得克服上述問題的具體幫助。如果您還不知道如何編寫代碼，那麼您必須先學習它：首先記錄您希望Excel爲您做的事情：https://www.youtube.com/watch?v=Q_HQGHPBYoo之後，看看代碼並試着理解它。另外，您可能需要閱讀以下內容：http://www.homeandlearn.org/然後，您應該能夠自己爲上述問題提供第一個解決方案。 – Ralph

看一看的Range.Copy Method：

Worksheets("Sheet1").Range("A1:D4").Copy 'example

和Range.PasteSpecial Method：

Worksheets("Sheet1").Range("D5").PasteSpecial Paste:=xlPasteFormats

有幾個paste types。例如xlPasteFormats只能粘貼格式。

來源

2017-04-13 08:23:42

添加新行並複製相同的格式和公式

回答

相關問題