EXCEL選擇性貼上宏
- 2022-10-29
為如下宏建立一個快捷鍵、或加一個工具欄圖示,需要時,先Copy一下源資料,再選擇好目標位置後,執行之,即可!
Sub 選擇性貼上宏_加()
On Error GoTo ErrorHandler
Selection。PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
Exit Sub
ErrorHandler:
MsgBox “選擇性貼上性失敗,請先在Excel中Copy再執行本功能”, vbOKOnly + vbCritical, “選擇性貼上”
End Sub
有疑問,請Hi我或給我發百度訊息
GoodLuck!
對。你自己試試:
在a1、a2分別輸入 3、5
在c1輸入1,右鍵點c1,複製,再選中a1到a2,右鍵,選擇性貼上,中間有”加,減,乘,除”,你分表選中試試。
Sub SheetCopy()
Sheets(“Sheet2”)。Select
Cells。Select
Selection。Copy
Sheets(“Sheet1”)。Select
Cells。Select
Selection。PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
自己錄製一個就可以了啊