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

[µo°Ý] ³sÄò­«ÂЦr´£¿ô

[µo°Ý] ³sÄò­«ÂЦr´£¿ô

¦pªG³sÄò­«ÂЪºA²Ä7¦¸´NÅܦⴣ¿ô¡A¸Õ¹L COUNTIF  OFFSET µo²{¥u¯à¤@¦¸¤¤¶¡Â_¤F´N¨S¿ëªk¤F
Excel.jpg

³sÄò¬Û¦P¦r.rar (6.52 KB)

¦^´_ 1# regedit77

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, i&, j%, ct%
With Sheets(1)
    Arr = .UsedRange
    For i = 1 To UBound(Arr)
        ct = 0
        For j = 1 To UBound(Arr, 2)
            If Arr(i, j) = "" Then GoTo 95
            If UCase(Arr(i, j)) = "A" Then ct = ct + 1 Else ct = 0
            If ct = 7 Then .Cells(i, j).Font.ColorIndex = 3: ct = 0
        Next
95  Next
End With
End Sub

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

ÁÂÁ samwang  hcm19522 ¨â¦ì¥ý¶iÀ°¦£¡A  samwang ªº¤Ó²`¤F¡A¤£·|¥Î¡A¦ýÁÙ¬O«D±`·PÁ¡Ahcm19522 ªº¥i¥H¨Ï¥Î¡A§Ú¦b¬ã¨s¤@¤U±z¬O¦p¦ó¼gªº ¦A¦¸ÁÂÁ¨â¦ì

TOP

½Ð°Ý¤@¤U hcm19522 ¥ý¶i ¬°¤°»òmod ²[¼Æ¥~­±­n¦³­Ó¬A¸¹¡A¤@¯ë¤£¬O³£ª½±µmod(x,x)¶Ü¡AÁÙ¦³¬°¤°»ò­n¨Ï¥Îmod ·Q¤£¥X¨Ó

TOP

¥»©«³Ì«á¥Ñ hcm19522 ©ó 2022-3-17 18:01 ½s¿è

¦^´_ 5# regedit77

(¤@ ) (mod(~,7)=0)  (¤G) (A1<>"")   (¤T) (A1'"A")  ¤T±ø¥ó³£­n¨í©·
ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 6# hcm19522


    ¦nªº ÁÂÁ±z §Ú¬ã¨s¤@¤U

TOP

=MOD(COLUMN()-MAX(($A1:A1<>A1)*COLUMN($A:A)),7)=0

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD