利用VBA检查excel数据，显示总行数

Pan登Gao峰

于 2022-12-20 08:51:02 发布

阅读量3.8k

点赞数 1

分类专栏： Excel VBA 文章标签： excel

本文链接：https://blog.csdn.net/weixin_44596571/article/details/128379812

版权

Excel VBA 专栏收录该内容

2 篇文章

订阅专栏

该代码段是一个VBA宏，用于检查Excel工作表中第3列的数据。它逐行扫描，确保数据从0开始递增，并在遇到0时重新开始计数。如果发现数据不一致，会弹出提示。此外，它还显示了工作表的总行数和不满足条件的行数，是进行数据质量控制的实用工具。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >


Sub check()
    Dim row As Long
    Dim check As Long
    Dim checknum As Long
    Dim thisws As Worksheet
    
    
    Set thisws = ActiveSheet        //激活当前excel表格
    
    
    
    row = thisws.UsedRange.Rows.Count
    MsgBox "excel表共有行数" & row
    check = 0
    For i = 1 To row Step 1
        If thisws.Cells(i, 3) = 0 Then
            check = 0
        End If
        checknum = thisws.Cells(i, 3)      //检查第3列数据
        If check <> checknum Then
            MsgBox "检查数据不一致" & i
        End If
        
        check = check + 1
    Next
        
    MsgBox "检查excel表完成，共有" & i & "满足要求"

End Sub

工作记录！
说明：作用是检查excel的第3列数据，从0开始递增，当遇到0时，又从零开始循环递增。用于检查数据。可以显示excel的总行数，显示不满足要求的行数。