获取列的多个部分的计数

Question

我有一个 table 这样的：

A1          B1 Team 1   C1 Team 2   D1 Team 3
A2 Name     B2 A        C2 B        D2 C
A3          B3 D        C3 E        D3 F
A4          B4 G        C4          D4 H
A5 School   B5 AB       C5 CD       D5
A6          B6 GH       C6 EF       D6
A7          B7          C7 IJ       D7

我正在尝试编写一个宏来获取非空白行的计数，如下所示：

A1          B1 Team 1   C1 Team 2   D1 Team 3
A2 Name     B2 A        C2 B        D2 C
A3          B3 D        C3 E        D3 F
A4          B4 G        C4          D4 H
A5          B5 3        C5 2        D5 3
A6 School   B6 AB       C6 CD       D6
A7          B7 GH       C7 EF       D7
A8          B8          C8 IJ       D8 
A9          B9 2        C9 3        D9 0

第 5 行和第 9 行给出非空行的计数。我需要使用宏来完成此操作。

Answer 1

您可以使用 VBA 中的 COUNTA 函数实现此目的。对于动态输出行，我强烈建议标记这些行，以便代码可以轻松找到它们。在这种情况下，我通过将 "Name Count" 放入单元格 A5 并将 "School Count" 放入单元格 A9（在您发布的第二个 table 中）来完成此操作。这些可以在您想要的任何行中。只要它们在 A 列中，代码就会找到它们。

为了将来参考，使用命名范围将是一种更简洁、更有效的方法。

Sub der()

'Declare and set worksheet object
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") 'Worksheet name here

Dim nameOutRow As Integer, schoolOutRow As Integer
Dim ns As Integer, ne As Integer, ss As Integer, se As Integer

'Find the Output rows
nameOutRow = Application.Match("Name Count", ws.Columns(1), 0)
schoolOutRow = Application.Match("School Count", ws.Columns(1), 0) 

'Determine Name count range
ns = Application.Match("Name", ws.Columns(1), 0) 'name start row
ne = nameOutRow - 1 'name end row

'School count range
ss = Application.Match("School", ws.Columns(1), 0) 'school start row
se = schoolOutRow - 1 'school end row

'Names
ws.Range("B" & nameOutRow) = Application.CountA(ws.Range("B" & ns & ":B" & ne))
ws.Range("C" & nameOutRow) = Application.CountA(ws.Range("C" & ns & ":C" & ne))
ws.Range("D" & nameOutRow) = Application.CountA(ws.Range("D" & ns & ":D" & ne))

'Schools
ws.Range("B" & schoolOutRow) = Application.CountA(ws.Range("B" & ss & ":B" & se))
ws.Range("C" & schoolOutRow) = Application.CountA(ws.Range("C" & ss & ":C" & se))
ws.Range("D" & schoolOutRow) = Application.CountA(ws.Range("D" & ss & ":D" & se))


End Sub

获取列的多个部分的计数

Get count of multiple sections of a column

excel

vba

rowcount