- 帖子
- 115
- 主題
- 24
- 精華
- 0
- 積分
- 178
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-1-12
- 最後登錄
- 2024-11-15
|
12#
發表於 2020-8-11 20:02
| 只看該作者
Try and Error 試出來的:
Sub sheet1_Formula()
With Sheets("sheet1").Range("A2:A" & Sheets("sheet1").Range("B65536").End(xlUp).Row)
.FormulaR1C1 = "= ""=COUNTIF($B$2:$B"" & Row() & "",B"" & Row() & "")-1"""
.Value = .Value
End With
End Sub |
|
