如何用Excel宏代码查找某列中第一个空值单元格并返回其行号?

来源：百度知道 编辑：UC知道 时间：2024/05/18 03:35:50
假如D列的第一行有数据，我想从第二行开始从别处考贝数据粘贴在第二行上，第二次粘贴在第三行上，第三次……如何用代码自动识别第一个空单元格并返回其行号?
我已经把答案添加到我的Sub中，但无法运行。可能是我没有说明清楚。我想补充一点：用VBA编写代码，如何在Sheet2表中的D列里用代码自动识别第一个空单元格并返回其行号到A2单元格里？得到A2的值后便于我代入变量X中完成以后粘贴的定位工作。请各位高手再指点一下。

Dim x As Single
x = Application.WorksheetFunction.CountA([D:D])
'从何处复制？由于你没说明，不好写代码，此处写复制的代码
Cells(x+1,4).Paste

Dim iBlankLine
iBlankLine = oWorkBook.ActiveSheet.Columns(4).Find("").Row