Question

如果在excel VBA中判断A列中的空白单元格，遇到后就终止程序

Answer 1

在工作表名称上点右键,选查看代码,粘贴下面的代码
Sub 检查空单元格()
Dim rng As Range, arr()
For Each rng In Range("A1:A30")
If rng = "" Then
N = N + 1
ReDim Preserve arr(1 To N)
arr(N) = rng.Address(0, 0)
End If
Next
MsgBox "A1:A30有" & N & "个空单元格," & vbCrLf & "分别是:" & Join(arr, ",")
End Sub

Sub 检查空格()
Dim rng As Range, arr()
For Each rng In Range("A1:A30")
If InStr(rng, " ") <> 0 Then
N = N + 1
ReDim Preserve arr(1 To N)
arr(N) = rng.Address(0, 0)
End If
Next
MsgBox "A1:A30包含空格的单元格有" & N & "个," & vbCrLf & "分别是:" & Join(arr, ",")
End Sub

Answer 2

for i = 1 to range("A65536").end(xlup).row()
定义这样一个变量i
对i进行循环就行了。
这是2003的代码，2007及以上的，把65536修改为
1048576

Answer 3

肯定是循环
其中假设一个if
if cells(i,1)="" then ' cells（i，1）表示的是a列
exit for '退出循环
else
你要执行的语句
endif

Answer 4

看是否适用
if cells(1,i).value<>0 then
exit sub
end if

Answer 5

a1.select
i=0
tz=ture
do while tz
if offsetcell(i,0)="" then
tz=false
else
msgbox offsetcell(i,0)
i=i+1
endif
loop