数式を保持するセルの範囲で最後の空でない行を見つけよう

Question

数式の結果が実際の値で空でない数式を保持するセルの範囲の最後の行を見つけるにはどうすればよいですか？

セル範囲が("E1:E10")の場合、セルA1〜A10を参照する式が、=IF("A1"="","","A1")の順になるように簡略化します。しかし、A1からA6までのセルにのみ値が入力されているため、E7からE10のセルの計算式の結果は空になります。 10の値を有するLASTROWで

lastRow = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row 

結果：でそれをやろうとし

。私が望むのは、この例ではlastRowの値が6であることです。

実際のコードはこれよりも複雑ですので、数式は異なるシート上の単一のセルを参照し、動的に追加されるため、最後の列Aの列を確認するだけではありません。

Answer 1

私は@D_Besterによって提供されたよりも多くのエレガントな方法は、セルの範囲をループせずにfind()オプションを使用することであると思います。また

Sub test() 
    Dim cl As Range, i& 
    Set cl = Range("E1:E" & Cells(Rows.Count, "E").End(xlUp).Row) 
    i = cl.Find("*", , xlValues, , xlByRows, xlPrevious).Row 
    Debug.Print "Last row with data: " & i 
End Sub 

テスト

、より短いです上記で提供されたコードのバージョンは、

です。

Sub test2() 
    Debug.Print [E:E].Find("*", , xlValues, , xlByRows, xlPrevious).Row 
End Sub 

Answer 2

これは、（シート1 Sheet1カラムAで）式を含む最後の行を決定するのに役立つべきである：式を含むすべてのセルの範囲を決定するために使用される

lastRow = Split(Split(Sheet1.Range("A:A").SpecialCells(xlCellTypeFormulas).Address, ",")(UBound(Split(Sheet1.Range("A:A").SpecialCells(xlCellTypeFormulas).Address, ","))), "$")(2) 

SpecialCells

。この範囲は、Splitを使用して解析されます。 Uboundでは、これらのセルの最後が検索されています。結果が再び分割されて行番号が抽出されます。

Answer 3

空でない列の最後のセルを検索したい場合は、空白文字列（ ""）ではありません。

空白でないセルをループでチェックするだけで、LastRowに従います。

lastrow = ActiveSheet.Range("E" & ActiveSheet.Rows.Count).End(xlUp).Row 
Do 
    If ActiveSheet.Cells(lastrow, 5).Value <> "" Then 
     Exit Do 
    End If 
    lastrow = lastrow - 1 
Loop While lastrow > 0 

If lastrow > 0 Then 
    Debug.Print "Last row with data: " & lastrow 
Else 
    Debug.Print "No data in the column" 
End If 

Rows.countにはどのシートが指定されていないことに注意してください。これは、アクティブシートを使用することを意味します。もちろんActiveSheet.Range()もアクティブシートにあります。しかし、RangeまたはRowsを.Rangeまたは.Rowsに混ぜることは悪い習慣です。 ActiveSheetを変更したが、不特定の参照を変更しなかった場合、あなたを噛んでしまうような無意識のある使用法を示しています。