- 帖子
- 121
- 主題
- 8
- 精華
- 0
- 積分
- 170
- 點名
- 57
- 作業系統
- win10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2021-1-21
- 最後登錄
- 2024-6-3
|
本帖最後由 shuo1125 於 2023-6-30 23:29 編輯
回復 1# Andy2483
Andy大好!
程度有限..僅能針對不同項目編序,看有無其他高手出手!
Sub TEST()
Dim wSht As Worksheet, R&, i&, T$, N&
Set wSht = Sheets("工作表1")
R = wSht.Cells(wSht.Rows.Count, "D").End(3).Row
For i = 2 To R
If wSht.Cells(i, 4).Value <> T Then
T = wSht.Cells(i, 4).Value
N = 1
End If
wSht.Cells(i, 5).Value = N
N = N + 1
Next i
End Sub |
|
發表於 2023-6-30 23:19
| 