VBA - Підрахуйте кількість кольорових клітин

Проблема

Я шукаю код VBA, під яким можна визначити індекс останньої комірки (попередньо визначеного кольору) у стовпцях стовпців.

Приклад: стовпець, що містить кольорові клітинки до рядка 650, як отримати цей 650?

Рішення

Ось невеликий код для цієї мети:

 Subcolor_count () 'для тесту ми будемо використовувати жовтий фон = 6 sur 20 ligne' останній рядок не 30 a = Range ("A1"). Interior.ColorIndex col = CountColor_bacgroung (діапазон ("A1: A120"), 6) s = MsgBox ("остання клітина:" & col, vbInformation, "лінія кольору") Кінець Підфункція CountColor_bacgroung (індекс як діапазон, колір довгий) довгий Dim C як варіант Dim XX = 0 для кожного C У Plage Якщо C.Interior.ColorIndex = Колір Тоді X = C.Row End If Далі CountColor_bacgroung = X End Function 

Завдяки Bidouilleu_R за цей відгук.