Excel VBA循环遍历数据的方法

Excel 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