Question

我知道如何找到包含数据的最后一栏：

 finalcolumn = .Cells(1, .Columns.Count).End(xlToLeft).Column

但是我想找到第一个空列，就是在我的情况下，在最后一列之前的某个地方找到数据。

 firstemptycolumn = ?

Answer 1

对第1行的第一个空列进行尝试：

finalcolumn  =  1 + .Cells(1, 1).End(xlToRight).Column

它与您的代码完全相同，但是您从左侧开始，然后向右移动。

Answer 2

您只需要在找到数据的最后一列中添加1即可找到第一个空列。

finalcolumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
firstemptycolumn = finalcolumn + 1

Answer 3

即使它嵌入其他数据中，也会找到第一个空列：

Sub FirstEmptyColumn()
    Dim i As Long

    With Application.WorksheetFunction
            For i = 1 To Columns.Count
                If .CountA(Cells(1, i).EntireColumn) = 0 Then
                    MsgBox i
                    Exit Sub
                End If
            Next i
        End With
End Sub

Excel VBA - 查找第一个空列

3 个答案: