Подсчитайте данные в столбце, который изменяется каждый раз, и возвращайте это количество в ячейке.

Question

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

Я знаю, как подсчитать ячейки и как перейти к ячейке под ячейкой с последними данными.У меня просто проблемы с присвоением значения счетчику ячейке.Спасибо!

Я использовал ниже, чтобы сосчитать

Range("G1").End(xlDown).Row

и ниже, чтобы перейти к последней ячейке

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

Answer 1

Я рекомендую использовать метод xlUp для поиска последней использованной ячейки вместо метода xlDown.Метод xlDown остановится на следующей пустой ячейке ниже G1, поэтому, если в столбце данных есть пробелы, он не найдет самую последнюю использованную ячейку.Поэтому вы должны использовать метод xlUp.

Затем просто используйте значение переменной LastRow, чтобы записать его в нужную ячейку.

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")

Dim LastRow As Long
LastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row

'so next free row is
ws.Cells(LastRow + 1, "G").Value = LastRow