返回列表 上一主題 發帖

[發問] 連續重覆字提醒

[發問] 連續重覆字提醒

如果連續重覆的A第7次就變色提醒,試過 COUNTIF  OFFSET 發現只能一次中間斷了就沒辨法了
Excel.jpg

連續相同字.rar (6.52 KB)

回復 1# regedit77

請測試看看,謝謝
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

隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

謝謝 samwang  hcm19522 兩位先進幫忙,  samwang 的太深了,不會用,但還是非常感謝,hcm19522 的可以使用,我在研究一下您是如何寫的 再次謝謝兩位

TOP

請問一下 hcm19522 先進 為什麼mod 涵數外面要有個括號,一般不是都直接mod(x,x)嗎,還有為什麼要使用mod 想不出來

TOP

本帖最後由 hcm19522 於 2022-3-17 18:01 編輯

回復 5# regedit77

(一 ) (mod(~,7)=0)  (二) (A1<>"")   (三) (A1'"A")  三條件都要刮弧
隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

回復 6# hcm19522


    好的 謝謝您 我研究一下

TOP

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

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題