在列中查找第一个空单元格

时间:2014-06-16 18:39:30

标签: excel excel-vba vba

您好我是Excel的新手,但我制作了一个简单的发票系统,我需要一个按钮,在我的发票历史记录中注册发票的内容"电子表格,但为此我需要找到我的电子表格中应该粘贴值的位置,AKA第一个空列的单元格。

2 个答案:

答案 0 :(得分:0)

使用数组公式

=SMALL(IF(A:A="",ROW(A:A)),1)
必须使用 Ctrl + Shift + 输入输入

数组公式,而不仅仅是 Enter key。

答案 1 :(得分:0)

假设您要填充的数据之间没有任何空行,您可以通过执行类似于以下代码的操作找到数据范围的最后一个空单元格。

Sub FirstEmptyCell()
    Dim ws As Worksheet
    Dim lCell As Range
    Set ws = ActiveSheet

    Set lCell = ws.Cells(ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1, 1)
    MsgBox "The first empty cell in column A is " & lCell.Address
End Sub

这将返回MsgBox中最后一个空单元格的地址。