VBAで最初の空のセルを見つける方法は？

Question

マイシートの外観のように：

私は、列AにLAST空のセルのインデックスを取得する機能を持っている：

NextRow = Range("A" & Rows.Count).End(xlUp).Row + 1 

この関数は、二番目の配列に書き込むために働く

（タイプ2） 。

しかし、今、私は列AにFIRST空のセルのインデックスを取得する機能をしたいと思いますので、私はこのウェブサイトに行ってきました：Select first empty cellと私はコードを適応しようとしたが、それはだ動作しません。

If Array= "Type1" Then 
    Dim ws As Worksheet 
    Set ws = ActiveSheet 
    For Each cell In ws.Columns(1).Cells 
     If IsEmpty(cell) = True Then NextRow = cell: Exit For 'ERROR 1004 
    Next cell 
End If 
If Array= "Type2" Then 'It s works 
    NextRow = Range("A" & Rows.Count).End(xlUp).Row + 1 
End If 

ActiveSheet.Range("A" & NextRow) = "TEST" 

コードをNextRow = IndexOf FIRST empty cell in Aに適応させることはできますか？

Answer 1

あなたはちょうどあなたが最後の1を取得するためにやったのと同じ方法を使用することができます。

NextRow = Range("A1").End(xlDown).Row + 1 

Answer 2

私はこれを行うと、それは動作します：

If Array= "Type1" Then 
     Dim ws As Worksheet 
      Set ws = ActiveSheet 
      For Each cell In ws.Columns(1).Cells 
       If IsEmpty(cell) = True Then 
        NextRow = cell.Row 
        Exit For 
        MsgBox NextRow 
       End If 
      Next cell 
    End If 
    If Array= "Type2" Then 'It s works 
     NextRow = Range("A" & Rows.Count).End(xlUp).Row + 1 
    End If 

    ActiveSheet.Range("A" & NextRow) = "TEST" 

Answer 3

あなたはこのためにボトムアップする必要があります。

Findは、xlUpよりも優れています。

Sub FindBlank() 
    Dim ws As Worksheet 
    Dim rng1 As Range 
    Set ws = ActiveSheet 
    Set rng1 = ws.Columns(1).Find("*", ws.[a1], xlFormulas, , xlByColumns, xlPrevious) 
    If Not rng1 Is Nothing Then 
     MsgBox "Last used cell is " & rng1.Address(0, 0) 
    Else 
     MsgBox ws.Name & " row1 is completely empty", vbCritical 
    End If 
End Sub