在Excel中，统计项目个数是一项常见的操作，尤其是当数据量较大时，手动计数会变得非常繁琐。今天，就让我来教大家如何利用VBA（Visual Basic for Applications）轻松实现这一功能，让你告别繁琐的统计过程！

VBA简介

VBA是微软Office系列软件中的一种编程语言，它允许用户通过编写代码来扩展Excel的功能。使用VBA，我们可以自动化完成一些重复性的工作，提高工作效率。

代码实现

以下是一个简单的VBA代码示例，用于计算Excel工作表中项目个数：

Sub CountItems()
    Dim ws As Worksheet
    Dim cell As Range
    Dim count As Long
    Dim lastRow As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 初始化计数器
    count = 0
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 遍历单元格
    For Each cell In ws.Range("A1:A" & lastRow)
        If cell.Value <> "" Then
            count = count + 1
        End If
    Next cell
    
    ' 输出结果
    MsgBox "项目个数：" & count
End Sub

代码解析

  1. Sub CountItems()：定义一个名为CountItems的子程序。
  2. Dim ws As Worksheet：声明一个名为ws的变量，用于存储当前工作表。
  3. Dim cell As Range：声明一个名为cell的变量，用于遍历单元格。
  4. Dim count As Long：声明一个名为count的变量，用于存储项目个数。
  5. Dim lastRow As Long：声明一个名为lastRow的变量，用于存储最后一行的行号。
  6. Set ws = ThisWorkbook.Sheets("Sheet1")：将ws变量设置为当前工作簿中的”Sheet1”工作表。
  7. count = 0：将count变量初始化为0。
  8. lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row：获取最后一行的行号。
  9. For Each cell In ws.Range("A1:A" & lastRow)：遍历”A1”到”A”列最后一行的所有单元格。
  10. If cell.Value <> "" Then：如果单元格中的值不为空，则执行以下代码。
  11. count = count + 1：将计数器加1。
  12. Next cell：继续遍历下一个单元格。
  13. MsgBox "项目个数：" & count：弹出一个消息框，显示项目个数。

使用方法

  1. 打开Excel工作簿，按下Alt + F11键打开VBA编辑器。
  2. 在“插入”菜单中选择“模块”，创建一个新的模块。
  3. 将上述代码复制粘贴到新模块中。
  4. 关闭VBA编辑器，回到Excel工作表。
  5. 按下Alt + F8键，选择“CountItems”子程序，点击“运行”。

恭喜你！现在你已经成功使用VBA计算了Excel中的项目个数，告别了繁琐的统计过程！