Vba excel посчитать количество заполненных ячеек в столбце - Word и Excel

ALFA Пользователь Сообщений: 243 Регистрация: 13.09.2013	Подскажите, как, открыв макросом стороннюю книгу, можно на определенном ее листе посчитать кол-во заполненных ячеек в столбце A.

hk1209 Пользователь Сообщений: 271 Регистрация: 01.01.1970

ALFA Пользователь Сообщений: 243 Регистрация: 13.09.2013	Set wb2 = Workbooks.Open(«C:UsersU_M06TTDesktopExcelКачествоМарт 2014.xls», 0, 1) ‘открыл книгу Далее необходимо посчитать кол-во заполненных ячеек в файле Март 2014.xls sheets(«данные»).range(«A:A») Скажите что еще написать, я в этом не оч силен.

ALFA

Пользователь

Сообщений: 243
Регистрация: 13.09.2013

15.05.2014 20:31:10

Нашел решение, всем спасибо!

Код
ThisWorkbook.Worksheets("данные".Activate ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate k = ActiveCell.Row 'номер последней заполненной строки

Scripter

Пользователь

Сообщений: 255
Регистрация: 06.02.2014

16.05.2014 01:48:48

так кол-во заполненных

Код
Msgbox "Кол-во заполненных ячеек в столбце А: " & Worksheetfunction.CountA(Columns(1))

так номер последней строки

Код
Msgbox "Номер последней заполненной строки: " & Cells(Rows.Count,1).end(xlup).row

Изменено: Scripter — 16.05.2014 08:58:46

ALFA Пользователь Сообщений: 243 Регистрация: 13.09.2013	А если необходимо открыв книгу, посчитать Кол-во заполненных ячеек, предварительно выбрав лист, как использовать Worksheetfunction.CountA(Columns(1))

Scripter

Пользователь

Сообщений: 255
Регистрация: 06.02.2014

16.05.2014 17:44:27

Если нужно чтоб при открытии книги срабатывал код, то нужно поместить код в «Эта книга»

Если вам нужно посчитать ВСЕ заполненные (не найти последнюю строку) ячейки на листе:

Скрытый текст

В определенном столбце

Скрытый текст

или

Скрытый текст

Найти последнюю строку на листе, если последнее значение которое увеличивает диапазон может быть в любом столбце

Скрытый текст

Найти последнюю строку на листе по определенному полю

Скрытый текст

Изменено: Scripter — 16.05.2014 17:48:46

Источник

My first column is an index, with monotonously increasing numbers, which ends at a non predictable point.
Now I want to find out, how many entries this column has. Is there a better way than iterating throug this and watch out for an empty cell?

eli-k

10.7k11 gold badges43 silver badges44 bronze badges

asked Jul 14, 2010 at 9:27

If you want to find the last populated cell in a particular column, the best method is:

Range("A" & Rows.Count).End(xlUp).Row

This code uses the very last cell in the entire column (65536 for Excel 2003, 1048576 in later versions), and then find the first populated cell above it. This has the ability to ignore «breaks» in your data and find the true last row.

answered Oct 6, 2011 at 21:48

MrKowzMrKowz

2713 silver badges3 bronze badges

One way is to: (Assumes index column begins at A1)

MsgBox Range("A1").End(xlDown).Row

Which is looking for the 1st unoccupied cell downwards from A1 and showing you its ordinal row number.

You can select the next empty cell with:

Range("A1").End(xlDown).Offset(1, 0).Select

If you need the end of a dataset (including blanks), try: Range(«A:A»).SpecialCells(xlLastCell).Row

answered Jul 14, 2010 at 10:03

Alex K.Alex K.

170k30 gold badges263 silver badges286 bronze badges

You can also use

Cells.CurrentRegion

to give you a range representing the bounds of your data on the current active sheet

Msdn says on the topic

Returns a Range object that represents
the current region. The current region
is a range bounded by any combination
of blank rows and blank columns.
Read-only.

Then you can determine the column count via

Cells.CurrentRegion.Columns.Count

and the row count via

Cells.CurrentRegion.Rows.Count

answered Jul 14, 2010 at 10:18

almog.orialmog.ori

7,8291 gold badge35 silver badges49 bronze badges

You may also use:

UsedRange.Rows.Count

answered Jul 2, 2011 at 5:38

AMIBAMIB

3,1823 gold badges19 silver badges19 bronze badges

To find the last filled column use the following :

lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

Hugo Dozois

8,05712 gold badges53 silver badges58 bronze badges

answered Mar 6, 2013 at 18:13

Источник

Я только начинаю с «программирования» VBA на Excel, чтобы автоматизировать некоторые ругательные материалы… так что это будет звучать как полный нубийский вопрос, хотя я не очень хорошо знаком с объектами VBA и т.д.

Итак, мое задание:
Есть ли более элегантный способ узнать длину столбца? Моя первая колонка — это индекс с монотонно увеличивающимися числами, который заканчивается в не прогнозируемой точке.
Теперь я хочу узнать, сколько записей в этой колонке. Есть ли лучший способ, чем повторять это и следить за пустой ячейкой?

Greetz,
Poeschlorn

Ответ 1

Один из способов: (Предположим, что индексный столбец начинается с A1)

MsgBox Range("A1").End(xlDown).Row

Что ищет 1-я незанятая ячейка вниз от A1 и показывает вам порядковый номер строки.

Вы можете выбрать следующую пустую ячейку с помощью:

Range("A1").End(xlDown).Offset(1, 0).Select

Если вам нужен конец набора данных (включая пробелы), попробуйте: Range ( «A: A» ). SpecialCells (xlLastCell).Row

Ответ 2

Если вы хотите найти последнюю заполненную ячейку в определенном столбце, лучший способ:

Range("A" & Rows.Count).End(xlUp).Row

В этом коде используется самая последняя ячейка во всем столбце (65536 для Excel 2003, 1048576 в более поздних версиях), а затем найдите первую заполненную ячейку над ней. Это позволяет игнорировать «перерывы» в ваших данных и найти истинную последнюю строку.

Ответ 3

Вы также можете использовать

Cells.CurrentRegion

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

Msdn говорит по теме

Возвращает объект Range, который представляет текущий регион. Текущий регион — диапазон, ограниченный любой комбинацией пустых строк и пустых столбцов. Только для чтения.

Затем вы можете определить количество столбцов с помощью

Cells.CurrentRegion.Columns.Count

и количество строк через

Cells.CurrentRegion.Rows.Count

Ответ 4

Вы также можете использовать:

UsedRange.Rows.Count

Ответ 5

Чтобы найти последний заполненный столбец, используйте следующее:

lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

Источник

0 / 0 / 0

Регистрация: 12.04.2013

Сообщений: 10

Подсчет непустых ячеек в столбце

15.01.2014, 09:05. Показов 40185. Ответов 11

Всем доброго времени суток!
Подскажите, кто знает: необходима простая функция для подсчета непустых ячеек в указанном столбце (либо диапазоне). Т.е аналог екселевской ПРОМЕЖУТОЧНЫЕ.ИТОГИ (СЧЗ)
Для чего надо: есть некий цикл, который перебирает все значения в столбце. Хочу сделать его немного динамичнее, чтобы можно было бы отбирать значения фильтром, а для этого, соответственно, нужно, чтобы динамически изменялось значение оператора То в цикле. Может, даже, есть более простое решение, например после обработки значения, проверялось наличие следующего, и если его нет, то выход из цикла…
Заранее благодарен за конструктивный ответ.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.01.2014, 09:05

Ответы с готовыми решениями:

Подсчет количества непустых ячеек диапазона
Есть диапазон
rang1=range(cells(a,b), cells(c,d))’ где a,b,c,d заранее определенные переменные….

Просуммируйте по столбцам содержимое непустых ячеек
НЕ могу ни как составить условие, чтобы считалось, помогите, если не сложно.
Условие: начиная с…

Перебор и печать непустых ячеек столбца Excel
Добрый день! Прошу помочь в моей рутине. Есть документ в котором необходимо ввести артикул и…

При значении ячеек в столбце А присвоить определенное значение ячейкам в столбце B
Столкнулся с тем, что мне нужно при значении ячеек в столбце А присвоить определенное значение…

0 / 0 / 0

Регистрация: 12.04.2013

Сообщений: 10

15.01.2014, 11:13

[ТС]

Сообщение от Апострофф

Смотрел. У меня, почему то, всё время выдаёт ошибку

RAVproFFI

33 / 33 / 1

Регистрация: 15.10.2013

Сообщений: 130

15.01.2014, 11:32

PureBasic

R=ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
dim i as range
For each i in range(cells(1,1),cells(R,1))
  if i.value<>"" then k=k+1
next i
msgbox "Не пустых ячеек " & k

Можно также через массив

0 / 0 / 0

Регистрация: 12.04.2013

Сообщений: 10

15.01.2014, 14:43

[ТС]

Всё работает!, но… можно ли сделать так, чтобы при выборе ячеек фильтром на странице, показывало бы значение только видимых ячеек???

RAVproFFI

33 / 33 / 1

Регистрация: 15.10.2013

Сообщений: 130

15.01.2014, 14:48

в смысле видимых? может строки скрыты а не ячейки? если так то добавить условие

PureBasic

1	if (i.value<>"") and (i.rows.hidden=false) then k=k+1

0 / 0 / 0

Регистрация: 12.04.2013

Сообщений: 10

15.01.2014, 14:51

[ТС]

Ты — гений!!!

33 / 33 / 1

Регистрация: 15.10.2013

Сообщений: 130

15.01.2014, 15:00

))) эт visual basic, не я придумал

HEnogapok

0 / 0 / 0

Регистрация: 12.04.2013

Сообщений: 10

15.01.2014, 15:55

[ТС]

Ну, тогда обнаглею: как твоё творение присобачить вот сюда:

Visual Basic

Private Function GetAddresses() As Address()
    Dim addrs(3) As Address
    Dim i As Integer
    Dim firstCell As Range
       
    Set firstCell = Application.ActiveSheet.Range("A4")
    For i = 0 To 3
        With firstCell
            addrs(i).Street = .Offset(i, 0).Value
            addrs(i).Building = .Offset(i, 1).Value
            addrs(i).Comments = .Offset(i, 2).Value
        End With
    Next i
    GetAddresses = addrs
End Function

вот у меня там цикл по от нуля до трёх, а надо, чтобы в «То» подставлялось значение, полученное из твоего кода (количество видимых строк)???

Добавлено через 27 минут
…хотя, наверное, всё равно не прокатит((( в цикле то будут обрабатываться строки с первой не пустой, а надо только видимые… Но, всё равно — спасибо)))

33 / 33 / 1

Регистрация: 15.10.2013

Сообщений: 130

18.01.2014, 09:18

HEnogapok, если to сделать кол-во видимых строк, то в твоем цикле с offset может взять значение из скрытой строки. Может лучше заполнять addrs во время цикла где проверяется пуста и скрыта ли строка?

toiai

3217 / 966 / 223

Регистрация: 29.05.2010

Сообщений: 2,085

18.01.2014, 10:58

Поскольку примера основного кода , предложу такой вариант (немного изменив Ваш):

Visual Basic

Sub tt()
    Dim addrs() 'As Address
    Dim i As Integer
    Dim firstCell As Range, c As Range
       
    Set firstCell = Range("A1:A30").SpecialCells(xlCellTypeVisible)
    With firstCell
        ReDim addrs(.Count - .SpecialCells(xlCellTypeBlanks).Count - 1)
        For Each c In firstCell
            If c <> "" Then
                addrs(i) = c
                'addrs(i).Street = .Offset(i, 0).Value
                'addrs(i).Building = .Offset(i, 1).Value
                'addrs(i).Comments = .Offset(i, 2).Value
                i = i + 1
            End If
        Next
    End With
    'GetAddresses = addrs
End Sub

0 / 0 / 0

Регистрация: 12.04.2013

Сообщений: 10

18.01.2014, 13:59

[ТС]

Всё правильно. Так и замутил. Спасибо за помощь!

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.01.2014, 13:59

Помогаю со студенческими работами здесь

Как в коде добавить условие подсчета среднего значения непустых ячеек
В моем макросе считается среднее значение ячеек с определенным цветом, но мне нужно, чтобы…

Нужно что бы макрос случайным образом выбирал 100 непустых ячеек из столбцов
Здравствуйте,

Есть эксель файл, в нем есть лист номер 2, в нем столбцы A и B

Нужно что бы…

Сцепка ячеек построчно, выборка непустых значений из диапазона и подстановка их в одну ячейку
Есть диапазон где в строках по условиям появляются значения, например:

а1: стул
а2: стол
а3:…

Подсчет суммы в столбце до первой пустой строки и новый подсчет
Уже подзабыл как писать макросы, последний раз это делал несколько лет назад, поэтому прошу помощи…

В одном столбце таблицы БД заменить все пустые ячейки на содержимое ячеек в другом столбце из той же строки
Добрый день.

Есть таблица .dbf и надо в одном столбце заменить все пустые ячейки на содержимое…

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

1. Есть функция…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник

Подсчет количества ячеек в диапазоне в зависимости от их содержимого методами Count, CountA и CountBlank объекта WorksheetFunction из кода VBA Excel.

Метод WorksheetFunction.Count

Определение

Определение метода Count объекта WorksheetFunction в VBA Excel:

Метод WorksheetFunction.Count подсчитывает в заданном диапазоне (массиве) количество ячеек (элементов массива), содержащих числа, и возвращает значение типа Double.

Синтаксис

Синтаксис метода Count объекта WorksheetFunction:

WorksheetFunction.Count(Arg1, Arg2, ..., Arg30)

Параметры

Параметры метода Count объекта WorksheetFunction:

Параметр	Описание
Arg1-Arg30	От 1 до 30 аргументов, которые могут содержать различные типы данных или ссылаться на них.

Примечания

Метод WorksheetFunction.Count позволяет получить количество числовых значений в диапазоне ячеек или в массиве.
При подсчете учитываются аргументы, которые являются числами, датами или текстовым представлением чисел.
Логические значения учитываются при подсчете только в том случае, если они введены непосредственно в список аргументов.

Метод WorksheetFunction.CountA

Определение

Определение метода CountA объекта WorksheetFunction в VBA Excel:

WorksheetFunction.CountA — это метод, который подсчитывает в заданном диапазоне количество непустых ячеек, и возвращает значение типа Double.

Синтаксис

Синтаксис метода CountA объекта WorksheetFunction:

WorksheetFunction.CountA(Arg1, Arg2, ..., Arg30)

Параметры

Параметры метода CountA объекта WorksheetFunction:

Параметр	Описание
Arg1-Arg30	От 1 до 30 аргументов, которые могут содержать различные типы данных или ссылаться на них.

Примечания

Метод WorksheetFunction.CountA позволяет получить количество непустых ячеек в заданном диапазоне.
Непустыми являются ячейки, которые содержат любые данные, включая значения ошибок и пустые строки ("").
Тесты показывают, что метод WorksheetFunction.CountA в массиве, созданном путем присвоения ему значений диапазона, содержащего пустые ячейки, все равно считает все элементы массива, как содержащие значения.

Метод WorksheetFunction.CountBlank

Определение

Определение метода CountBlank объекта WorksheetFunction в VBA Excel:

WorksheetFunction.CountBlank — это метод, который подсчитывает в заданном диапазоне количество пустых ячеек, и возвращает значение типа Double.

Синтаксис

Синтаксис метода CountBlank объекта WorksheetFunction:

WorksheetFunction.CountBlank(Arg1)

Параметры

Параметры метода CountBlank объекта WorksheetFunction:

Параметр	Описание
Arg1	Диапазон, в котором необходимо подсчитать количество пустых ячеек.

Примечания

Метод WorksheetFunction.CountBlank позволяет получить количество пустых ячеек в заданном диапазоне.
Пустыми являются ячейки, которые не содержат никаких данных.
Также подсчитываются, как пустые, ячейки с формулами, которые возвращают пустые строки ("").
Ячейки с нулевыми значениями в подсчете не участвуют.

Примеры

Таблица для строк кода VBA Excel со ссылками на диапазон "A1:C5", а также с массивом его значений в качестве аргументов:

Примеры с WorksheetFunction.Count

Sub Primer1()

Dim n As Double, a() As Variant

n = WorksheetFunction.Count(Range(«A1:C5»))

MsgBox n ‘Результат: 8

a = Range(«A1:C5»)

n = WorksheetFunction.Count(a)

MsgBox n ‘Результат: 8

n = WorksheetFunction.Count(«раз», «два», «три», 1, 2, 3)

MsgBox n ‘Результат: 3

n = WorksheetFunction.Count(«раз», «два», «три», «1», «2», «3», 1, 2, 3)

MsgBox n ‘Результат: 6

n = WorksheetFunction.Count(Empty, Empty, 0, 0, «», «»)

MsgBox n ‘Результат: 4

n = WorksheetFunction.Count(True, False, «True», «False»)

MsgBox n ‘Результат: 2

End Sub

Метод WorksheetFunction.Count можно использовать для подсчета количества числовых значений в массиве, если он создан путем присвоения ему значений диапазона. Тогда логические значения ИСТИНА и ЛОЖЬ, если они встречаются в диапазоне, в подсчете количества числовых значений не участвуют.

Примеры с WorksheetFunction.CountA

Sub Primer2()

Dim n As Double, a() As Variant

n = WorksheetFunction.CountA(Range(«A1:C5»))

MsgBox n ‘Результат: 13

a = Range(«A1:C5»)

n = WorksheetFunction.CountA(a)

MsgBox n ‘Результат: 15

n = WorksheetFunction.CountA(«раз», «два», «три», 1, 2, 3)

MsgBox n ‘Результат: 6

n = WorksheetFunction.CountA(Empty, Empty, 0, 0, «», «»)

MsgBox n ‘Результат: 6

End Sub

Примеры с WorksheetFunction.CountBlank

Sub Primer3()

Dim n As Double, a As Range

n = WorksheetFunction.CountBlank(Range(«A1:C5»))

MsgBox n ‘Результат: 2

Set a = Range(«A1:C5»)

n = WorksheetFunction.CountBlank(a)

MsgBox n ‘Результат: 2

End Sub

Следующая статья по этой теме: VBA Excel. Методы CountIf и CountIfs.

Источник