Как найти первую пустую ячейку в VBA?

Question

Моего лист выглядит следующим образом:

У меня есть функция, чтобы получить индекс ПОСЛЕДНЕЙ пустой ячейки в столбце А:

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

Эта функция работает, чтобы писать на втором массиве (Type2) ,

Но теперь, я хотел бы функцию, чтобы получить индекс ПЕРВОЙ пустой ячейки в столбце A. Таким образом, я пошел на этот сайт: 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

Вы можете просто использовать тот же метод, который вы сделали, чтобы получить последнюю.

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