Question

Excel vba如何将一个值赋予某列中的第一个空单元格

Answer 1

Sub mysub()
    Dim findCell As Range
    Set findCell = Range("A:A").Cells.Find(what:="")
    findCell.Value = "你的值"
End Sub

追问

我是要这样的：在弹出的这个窗体中输入日期，按下确定键，就会录入到A列第一个空单元格。

追答

双击按钮，把以下代码粘贴在按钮的click事件中：

Dim findCell As Range
Set findCell = Range("A:A").Cells.Find(what:="")
findCell.Value = TextBox1.value

追问

可以了，谢谢咯。

追答

很高兴能帮到你

Answer 2

手头没有Excel，只能靠记忆给你写了，可能不对啊。
cells(1,1).specialcell(xlDown).offset(1,0).value = "xxx"
这么写是假设第一行有数据的。

Answer 3

用for循环，从第一行开始遍历某列中的单元格，一旦发现某列单元格是空的，就赋值。不知道你用的是微软的office中的excel还是WPS的表格？