Нужен VBA для подсчета количества записей на каждом листе и перечисления на отдельном листе

Question

У меня есть рабочая тетрадь с несколькими листами.Я хочу посчитать количество записей из столбца А на каждом листе и перечислить их на итоговом листе.Например,

В листе 1 есть 30 записей. В листе 2 есть 40 записей. В листе 3 указано количество записей

Я ищу вывод в A1 и B1 как:

Лист 1 30 Лист 2 40

Одна из основных проблем заключается в том, что количество листов не определено.Несколько раз он может достигать 4-5 листов.Можем ли мы создать определенное пользователем количество листов для рассмотрения, а затем выполнить команду подсчета?

Заранее спасибо

Answer 1

Попробуйте:

Option Explicit

Sub test()

    Dim ws As Worksheet, LastRowWS As Long, LastRowRS As Long

    'Loop all worksheets
    For Each ws In ThisWorkbook.Worksheets
        'Do not count if sheet name is Results. This sheets has the counts
        With ws
            If .Name <> "Results" Then
                'Find last row of worksheet ws column A
                LastRowWS = .Cells(.Rows.Count, "A").End(xlUp).Row

                With ThisWorkbook.Worksheets("Results")
                    'Find last row of worksheet Results column A
                    LastRowRS = .Cells(.Rows.Count, "A").End(xlUp).Row
                    'Add the results
                    .Range("A" & LastRowRS + 1).Value = ws.Name
                    .Range("B" & LastRowRS + 1).Value = LastRowWS
                End With

            End If

        End With

    Next ws

End Sub

Примечание

Столбец A каждого листа не имеет заголовков.

Листы Столбец A

Результаты:

Answer 2

Функция COUNTA подсчитывает все записи в диапазоне.Диапазон может быть столбцом.Итак,

   =CountA(A:A)  returns the number of entries in column A

Вы можете добавить имя листа для ссылки на диапазон на другом листе

  =CountA(sheet2!A:A)  counts all the entries in column A in sheet2