エクセルVBAに詳しい方

Excel | Visual Basic70閲覧

その他の回答(1件)

0

A1やA1048576にデータが入っていることを考えないといけません。 Sub SFcel() Dim sr As Long, fr As Long If Range("A1").Value <> "" Then sr = 1 Else sr = Range("A1").End(xlDown).Row If Range("A" & Rows.Count).Value <> "" Then fr = Rows.Count Else fr = Range("A" & Rows.Count).End(xlUp).Row MsgBox "先頭行は" & sr & " 最終行は" & fr End Sub