Посчитать количество чисел в столбце и вывести в свободную ячейку

@Ksuxa_ · Регистрация: 02.03.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте, нужен макрос, который по первому столбцу посчитает кол-во товара, затем найдет последнее число и после него через пять строк напишет ответ (кол-во цифр). Оба варианта не работают. Вот код:

Visual Basic

Sub kol()
 
Application.Worksheets("Ëèñò3").Activate
Dim iLastRow As Long, c As Integer, i As Long
 
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
c = 0
For i = 20 To iLastRow
If Cells(i, 1) <> 0 Then Cells(iLastRow + 6, 1) = c + 1
Next
 
Sub kolvo()
  Application.Worksheets("Ëèñò3").Activate
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
      Cells(iLastRow + 6, 1) = Application.Count(Range(Cells(20, 1), Cells(iLastRow, 1)))
End Sub

@Michael99 · 03.03.2016, 14:35

Visual Basic

Sub kolvo()
Application.Worksheets("Лист3").Activate
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(iLastRow + 6, 1) = Application.Count(Range(Cells(1, 1), Cells(iLastRow, 1)))
End Sub

2 пример, но это одноразовый код

~~Shersh~~ · 04.03.2016, 09:04

По 1-му варианту -

Visual Basic

c = 0
For i = 20 To iLastRow
  If Cells(i, 1) <> 0 Then c=c+1
Next
Cells(iLastRow + 6, 1) = c
Cells(iLastRow + 7, 1)="Всего наименований: " & c

	04.03.2016, 09:04

Посчитать количество чисел в столбце и вывести в свободную ячейку

Решение