【Excel】VBAマクロで空白セルの位置を取得（最初の空白行を探す・列・上から探す）する方法

Sub Find空白セル()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim betsusheet As Worksheet
    Set betsusheet = ThisWorkbook.Sheets("betsusheet")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row

    For i = 2 To lastRow
        If IsEmpty(ws.Cells(i, 3)) Then
            betsusheet.Cells(i, 1).Value = "C" & i
        End If
    Next i
End Sub

Sub Find全シート空白セル()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        Dim lastRow As Long, lastCol As Long, r As Long, c As Long
        lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        lastCol = ws.Cells.Find("*", SearchOrder:=xlByColumns,

 SearchDirection:=xlPrevious).Column

        For r = 1 To lastRow
            For c = 1 To lastCol
                If IsEmpty(ws.Cells(r, c)) Then
                    betsusheet.Cells(r, c).Value = ws.Name & "!" & Cells(r, c).Address
                End If
            Next c
        Next r
    Next ws
End Sub