Sub mysub()
Dim findCell As Range
Set findCell = Range("A:A").Cells.Find(what:="")
findCell.Value = "你的值"
End Sub
手头没有Excel,只能靠记忆给你写了,可能不对啊。
cells(1,1).specialcell(xlDown).offset(1,0).value = "xxx"
这么写是假设第一行有数据的。
用for循环,从第一行开始遍历某列中的单元格,一旦发现某列单元格是空的,就赋值。不知道你用的是微软的office中的excel还是WPS的表格?