[VBA Excel]检查哪个单元格为空，然后填写

Question

伙计我有一个问题:(

我希望excel找到A中最近的空单元格，然后在该单元格中写入一个数字。 然后去右边 - ＆gt;并输入另一个号码

有人帮帮我：D？

Answer 1

最近，我的意思是最接近 A1 ：

Sub dural()
   Dim r As Range
   On Error GoTo bottom
   Set r = Range("A:A").Cells.SpecialCells(xlCellTypeBlanks)(1)
   r.Value = "a number"
   r.Offset(0, 1).Value = "another number"
   Exit Sub
bottom:
   Set r = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
   r.Value = "a number"
   r.Offset(0, 1).Value = "another number"
   On Error Resume Next
End Sub