Question

vba 判断单元格不为空则写入下一行

我想在A excel表里判断B表里的某个单元格是否为空，为空则写入数据，如果不为空则写入下一行。

Answer 1

i=1
J=0
DO WHILE J=0
if sheet("B").RANGE("B" & i)="" THEN ‘判断指定位置是否为空，空则填入指定内容
sheet("B").RANGE("B" & i)="需要填数据"
J=1
else ’不是空则行数+1在循环判断
I=I+1
end if
LOOP

重名字为B的表中B1 开始判断，不为空则判断B2否为空。为空就填，不为空就继续。
根据自己需要改，试试