如何在特定位置自動加一? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何在特定位置自動加一?

返回列表下一主題上一主題發帖

[發問] 如何在特定位置自動加一?

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-6-2 10:54 | 顯示全部帖子

回復 3# yozcbm

Sub XX()
C = 0
With Sheets("Sheet1").[B:B]
Set Rng = .Find("姓名", , , xlWhole)
If Not Rng Is Nothing Then
Findaddress = Rng.Address
Do
C = C + 1
Rng.Offset(, -1) = C
Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address <> Findaddress
End If
End With
End Sub

複製代碼

靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。

返回列表下一主題上一主題