VBA循环遍历数据的方法

'检测数据按钮方法,如果检测通过，则保存按钮可用
Private Sub CheckData_Click()
GetMaxRow     '首先得到实际数据的最大有效行数
If RetMaxRow = MinRow Then
    MsgBox "没有任何有效数据"
    Exit Sub
End If
For i = MinRow To RetMaxRow - 1     '循环每一行
    For j = MinCol To MaxCol - 1    '循环每一列
        If Trim(Cells(i, j).Value) = "" Then   '判断必填数据是否填写
            MsgBox "必填数据"
            Cells(i, j).Select
            Exit Sub
        End If
       
    Next
Next                '数据检测通过，给出提示，并使保存按钮可用
MsgBox "数据效验通过"
SaveData.Enabled = True

End Sub

转载于:https://www.cnblogs.com/yuanweisen/archive/2009/01/06/1370500.html