Excel VBA 代码：统计匹配和复制数据条数及模板工作表B列数据条数

{"title":"Excel VBA 代码：统计匹配和复制数据条数及模板工作表B列数据条数","description":"本代码用于统计 Excel 中进行匹配和复制的数据条数，以及模板工作表的 B 列数据条数。代码提供了详细的说明，并可根据实际情况修改工作表名称。","keywords":"Excel, VBA, 统计, 匹配, 复制, 数据条数, 模板工作表, B列, 代码, 说明, 工作表名称","content":""Sub CountMatchesAndCopies()\n Dim templateSheet As Worksheet\n Dim dataSheet As Worksheet\n Dim templateColumn As Range\n Dim dataRange As Range\n Dim matchCount As Long\n Dim copyCount As Long\n \n ' 设置模板工作表和数据工作表\n Set templateSheet = ThisWorkbook.Worksheets("模板工作表")\n Set dataSheet = ThisWorkbook.Worksheets("数据工作表")\n \n ' 获取模板工作表的 B 列数据范围\n Set templateColumn = templateSheet.Range("B3:B" & templateSheet.Cells(templateSheet.Rows.Count, "B").End(xlUp).Row)\n \n ' 获取数据工作表的数据范围\n Set dataRange = dataSheet.UsedRange\n \n ' 统计匹配和复制的数据条数\n For Each cell In dataRange\n If Application.WorksheetFunction.CountIf(templateColumn, cell.Value) > 0 Then\n matchCount = matchCount + 1\n End If\n If Not IsEmpty(cell.Value) Then\n copyCount = copyCount + 1\n End If\n Next cell\n \n ' 显示统计结果\n MsgBox "进行匹配和复制的数据条数为：" & matchCount & vbCrLf & _\n "模板工作表的 B 列数据条数为：" & templateColumn.Rows.Count, vbInformation, "统计结果"\nEnd Sub"}