ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½s¸¹«ö­I´ºÃC¦â,¼Æ¦r¨Ì¦¸»¼¼W

[µo°Ý] ½s¸¹«ö­I´ºÃC¦â,¼Æ¦r¨Ì¦¸»¼¼W

½Ð°Ý,¦p¦ó®Ú¾ÚBÄæ³æ¤¸®æªº½s¸¹©M­I´ºÃC¦â,«öÃC¦â¶¡¹j¨Ï¼Æ¦r¨Ì¦¸»¼¼W

Book_2603.rar (11.02 KB)

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


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

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD