Как подсчитать количество не пустых ячеек определенного листа и записать в переменную - VBA

Формулировка задачи:

Подскажите, как подсчитать количество не пустых ячеек определенного листа и записать в переменную? Т.е макрос выполняется в "Лист1", при этом мне нужно знать количество не пустых ячеек столбца "А" листа "Лист2". Т.е код подсчета активного листа "Лист1":

                    Листинг программы
                
Application.WorksheetFunction.CountA(Columns("A")) 'непустых

А нужно неактивного листа "Лист2"?

Решение задачи: «Как подсчитать количество не пустых ячеек определенного листа и записать в переменную»

textual
                            Листинг программы 
                        
 
                        
                          
                    
With Worksheets(12)
w12 = .Range(.Cells(1, 3), .Cells(1, 3).End(xlDown)).Count
End With
With Worksheets(13)
w13 = .Range(.Cells(1, 2), .Cells(1, 2).End(xlDown)).Count
End With
With Worksheets(14)
w14 = .Range(.Cells(1, 9), .Cells(1, 9).End(xlDown)).Count
End With
MsgBox w12 & " " & w13 & " " & w14

Оцени полезность:

9 голосов , оценка 3.556 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы