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并再次判断单元格式否为空
怎么做啊
你的代码的逻辑很乱的。
从你的追问看，用一个FOR循环就行。但你检查到空单元格后要粘贴的内容有哪里？不能是很多单元格。
从你的追问看，用一个FOR循环就行。但你检查到空单元格后要粘贴的内容有哪里？不能是很多单元格。
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-05-30
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
第2个回答 2013-08-27
for i=1 to cells(rows.count,1).end(xlup).row
if cells(i,1)="" then
如果为空所需的程序
end if
next
if cells(i,1)="" then
如果为空所需的程序
end if
next
