- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2025-1-10
|
本帖最後由 samwang 於 2021-6-23 13:13 編輯
回復 10# duck_simon
因為你把程式碼放在sheet1 no，所以要修改如下，謝謝
Private Sub CommandButton5_Click()
' 巨集23 巨集
' 差值
'
Range("AE1").Select
Selection.Copy
Sheets("差值").Select
Sheets("差值").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("差值").Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("差值").Range("B1").Select
End Sub
或者可以直接將你原本的"A1 是由他工作表 copy過來"，那段程式碼直接copy 到B欄有數值的最後一個如下
Sub test()
Sheets("no").[AE1].Copy Sheets("差值").[B65536].End(xlUp).Offset(1, 0)
End Sub |
|
發表於 2021-6-23 13:06
| 
