Question

vba怎样判断单元格是否为空

Public Sub GAGF()
Dim i As Variant
i = 10
If Range("A" & i) <> "" Then
Range("H1:U2").Select
Selection.ClearContents
Range("H3:N100").Select
Selection.Cut
Range("A" & i).Select
ActiveSheet.Paste
Else
i = i + 1
End If
End Sub

如果单元格为空就执行 Range("H1:U2").Select
Selection.ClearContents
Range("H3:N100").Select
Selection.Cut
Range("A" & i).Select
ActiveSheet.Paste
否则就执行 i = i + 1并再次判断单元格式否为空
怎么做啊

Answer 1

你的代码的逻辑很乱的。
从你的追问看，用一个FOR循环就行。但你检查到空单元格后要粘贴的内容有哪里？不能是很多单元格。

Answer 2

If Range("A" & i) = "" Then
这句就是判断单元格是否为空了。

追问

如果不为空单元格就下移
并再次判断是否为空怎么写
因为我要在空的A列单元格粘贴数据
但是A列已经有数据，所以我要判断A列的单元格是否为空，并把数据粘贴到A列到空的单元格中

追答

可以用一个for 循环
for i=1 to 100 //从第一行到第100行。
If Range("A" & i) = "" Then
Range("H1:U2").Select
Selection.ClearContents
Range("H3:N100").Select
Selection.Cut
Range("A" & i).Select
ActiveSheet.Paste
End If
next i

Answer 3

for i=1 to cells(rows.count,1).end(xlup).row
if cells(i,1)="" then

如果为空所需的程序

end if

next