Range（）。Find（）。行結果If条件なし

Question

A列に最初に "1"が記述されている行を探したいとします。

Dim begin1, end1 As Integer 
begin1 = 0 
end1 = 0 


begin1 = Range("A:A").Find("1", SearchOrder:=xlByRows, SearchDirection:=xlNext, LookIn:=xlValues).Row 
end1 = Range("A:A").Find("1", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row 

If Not begin1 Is Nothing Then 

間違ったオブジェクトであるため、この「If Not」条件が機能しません。私はこの状態をどのように変えることができるか知るのに十分なVBAを知らない。

ご協力いただければ幸いです！

Answer 1

まず、宣言にカンマを使用する方法に注意してください。

Dim begin1, end1 As Integer 

この結果、begin1は 'variant'と宣言され、end1は整数として宣言されます。 あなたはコンマを使用したい場合は、以下の整数として、両方を宣言します：

Dim begin1 as integer, end1 as integer 

次に、あなたが使用する必要があり、その後... if文で整数を使用する場合：

If begin1 <> 0 then 

範囲を使用する場合は、次のようになります。

if Not begin1 is nothing then 

Answer 2

これを試してください。 begin1とend1を範囲として宣言し、見つかったかどうかをチェックします（列全体に1つしかない場合でもend1が見つかるため、前者を確認する必要があります）。見つかったセルの行プロパティを使用している場合。

Sub x() 

Dim begin1 As Range, end1 As Range 

With Range("A:A") 
    Set begin1 = .Find(1, after:=.Cells(.Cells.Count), SearchOrder:=xlByRows, SearchDirection:=xlNext, LookIn:=xlValues) 
    Set end1 = .Find(1, after:=.Cells(1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues) 
End With 

If Not begin1 Is Nothing Then 
    MsgBox "First row is " & begin1.Row 
    MsgBox "Last row is " & end1.Row 
End If 

End Sub