- 帖子
- 214
- 主題
- 74
- 精華
- 0
- 積分
- 296
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- hk
- 註冊時間
- 2013-6-17
- 最後登錄
- 2018-11-3
|
以下方法可以滿足你要求嗎?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then
A = Target.Formula
On Error Resume Next
Set B = Range(Right(A, Len(A) - 1)).Cells(1)
If Err.Number = 0 Then
B.Copy Target
Target.Formula = A
End If
End If
End Sub |
|
發表於 2013-7-13 21:04
| 