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

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

Лист 1 содержит 30 записей. Лист 2 содержит 40 записей. Лист 3 для перечисления количества записей

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

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

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

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

3 метода стилизации элементов HTML
3 метода стилизации элементов HTML
Когда дело доходит до применения какого-либо стиля к нашему HTML, существует три подхода: встроенный, внутренний и внешний. Предпочтительным обычно...
Формы c голосовым вводом в React с помощью Speechly
Формы c голосовым вводом в React с помощью Speechly
Пытались ли вы когда-нибудь заполнить веб-форму в области электронной коммерции, которая требует много кликов и выбора? Вас попросят заполнить дату,...
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Будучи разработчиком веб-приложений, легко впасть в заблуждение, считая, что приложение без JavaScript не имеет права на жизнь. Нам становится удобно...
Flatpickr: простой модуль календаря для вашего приложения на React
Flatpickr: простой модуль календаря для вашего приложения на React
Если вы ищете пакет для быстрой интеграции календаря с выбором даты в ваше приложения, то библиотека Flatpickr отлично справится с этой задачей....
В чем разница между Promise и Observable?
В чем разница между Promise и Observable?
Разберитесь в этом вопросе, и вы значительно повысите уровень своей компетенции.
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Клиент для URL-адресов, cURL, позволяет взаимодействовать с множеством различных серверов по множеству различных протоколов с синтаксисом URL.
2
0
278
2
Перейти к ответу Данный вопрос помечен как решенный

Ответы 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
Ответ принят как подходящий

Пытаться:

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

enter image description here

Результаты:

enter image description here

Работает как шарм. Большое спасибо. :)

Atul 23.05.2019 07:55

Привет, я использовал приведенный выше код, но он считает даже пустые записи любым способом, чтобы игнорировать пустые записи в столбцах и подсчитывать только доступные записи.

Jake 28.04.2021 08:16

Другие вопросы по теме