excel vba 如果把二欄的資料copy到另二欄呢?
- 帖子
- 13
- 主題
- 4
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- Office365
- 閱讀權限
- 20
- 註冊時間
- 2020-4-1
- 最後登錄
- 2022-4-7
|
回復 2# a1234z
實際運行時，發現會當機，應該是觸發問題
修改如以下程式碼，就OK了
提供參考，如果有其他寫法，也請各位指教
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim E As Long
E = WorksheetFunction.CountA(Range("B:B")) + 1
Range("E1:F" & E).Value = Range("B1:C" & E).Value
Application.EnableEvents = True
End Sub |
|
|
|
|
|
|
|
發表於 2020-5-11 09:01
| 