標題: [發問] 編號按背景顏色,數字依次遞增 [打印本頁]

---

作者: hycn    時間: 2020-3-26 17:23     標題: 編號按背景顏色,數字依次遞增

請問,如何根據B欄單元格的編號和背景顏色,按顏色間隔使數字依次遞增

[attach]31821[/attach]

---

作者: 准提部林    時間: 2020-3-27 12:13

Sub TEST()
Dim xArea As Range, Arr, i&, T$, N&
Set xArea = Range([B2], [B65536].End(xlUp))
Arr = xArea
For i = 1 To xArea.Count
    If xArea(i) <> T Then N = 1: T = xArea(i)
    Arr(i, 1) = T & "_" & Format(N, "00")
    If xArea(i).Interior.ColorIndex <> xlNone Then N = N + 1
Next i
[A2].Resize(xArea.Count) = Arr
End Sub


'=========================

---

作者: hcm19522    時間: 2020-3-27 14:57

https://blog.xuite.net/hcm19522/twblog/589009261

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)