如何創(chuàng)建命令按鈕以在Excel中復(fù)制和粘貼數(shù)據(jù)？

假設(shè)您需要在更改數(shù)據(jù)后將一系列單元格頻繁地復(fù)制到其他位置，則手動復(fù)制和粘貼方法將非常繁瑣且耗時。 如何使此復(fù)制和粘貼事件自動運(yùn)行？ 本文將向您展示如何使用命令按鈕一鍵復(fù)制和粘貼數(shù)據(jù)。

創(chuàng)建一個命令按鈕以使用VBA代碼復(fù)制和粘貼數(shù)據(jù)

創(chuàng)建一個命令按鈕以使用VBA代碼復(fù)制和粘貼數(shù)據(jù)

請執(zhí)行以下操作，以在單擊命令按鈕時自動復(fù)制和粘貼數(shù)據(jù)。

1.單擊以插入命令按鈕 開發(fā)商 > 插頁 > 命令按鈕（ActiveX控件）。 看截圖：

2.在工作表中繪制一個命令按鈕，然后右鍵單擊它。 選擇 查看代碼 從上下文菜單。

3.在彈出 Microsoft Visual Basic應(yīng)用程序 窗口，請用下面的VBA代碼替換“代碼”窗口中的原始代碼。

VBA代碼：使用命令按鈕在Excel中復(fù)制和粘貼數(shù)據(jù)

Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim xSheet As WorksheetSet xSheet = ActiveSheetIf xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" ThenxSheet.Range("A1:C17 ").CopyxSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseEnd IfApplication.ScreenUpdating = TrueEnd SubCopy

備注：在代碼中，CommandButton1是插入的命令按鈕的名稱。 A1：C17是您需要復(fù)制的范圍，而J1：L17是粘貼數(shù)據(jù)的目標(biāo)范圍。 請根據(jù)需要更改它們。

4。 按 其他 + Q 關(guān)閉鍵 Microsoft Visual Basic應(yīng)用程序 窗口。 并在“開發(fā)人員”選項卡下關(guān)閉“設(shè)計模式”。

5.現(xiàn)在單擊“命令按鈕”，將復(fù)制區(qū)域A1：C17中的所有數(shù)據(jù)，并將其粘貼到區(qū)域J1：L17中，而無需進(jìn)行單元格格式化。

相關(guān)文章:如何在Excel中沒有命令按鈕提示的情況下保存和關(guān)閉活動工作簿？如何始終在Excel中的工作表上始終浮動命令按鈕？如何通過Excel中的“命令”按鈕更新或插入（當(dāng)前）日期和時間？如何在Excel中使用命令按鈕更改指定的單元格值？如何在Excel中使用命令按鈕將活動工作表另存為PDF文件？如何通過Excel中的“命令按鈕”自動插入空白新行？

最佳辦公生產(chǎn)力工具

將小時轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel