Excel VBA – find第一个空列

我知道如何find数据的最后一列：

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

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

  firstemptycolumn = ? 

Answer 1

尝试像这样的第一行的第一个空列：

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

它和你的代码是完全一样的逻辑，但是你从左边开始，向右边移动。

Answer 2

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

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

Answer 3

即使embedded其他数据，也会find第一个空列：

 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