エクセルVBA - 私はデータを持つ最後の列を見つける方法を知っている最初の空の列

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