実行時エラー '424'オブジェクトが必要です

Question

マクロを記述して、列内の各セルにVLOOKUPを実行するループを実行します。私は "実行時エラー '424'オブジェクトが必要です"というエラーが表示されますが、主な問題を特定できません。どんな洞察力や助けにも感謝します。

2つの問題：実行時エラー '424'オブジェクトが必要 *ラップアラウンドまたはExcelリミットが停止するまで、ループがデータで最後のセルを過ぎ続けます。 .ActiveCellと.Valueにドット演算子を使用することは役に立ちません。あなたが「セット」キーワードを使用してレンジサーバー名を設定する必要が

Sub New_contact_info() 

serverName = Cells.Range("AS:AS") 
contactInfo = Application.WorksheetFunction.VLookup(serverName, Worksheets("All Active Assets").Range("A:C"), 3, False) 

Cells.Range("AM:AM") = contactInfo 

For Each cell In serverName 
If serverName <> "" Then 
serverName.ValueOffset(0, -5) = contactInfo 
End If 

Next cell 

End Sub 

Answer 1

。 はこの試してみて：

Sub New_contact_info() 
    dim serverName as Range 

    set serverName = Cells.Range("AS:AS") 
    contactInfo = Application.WorksheetFunction.VLookup(serverName, Worksheets("All Active Assets").Range("A:C"), 3, False) 

    Cells.Range("AM:AM").value = contactInfo 

    For Each cell In serverName 
    If serverName.value <> "" Then 
     serverName.Value.Offset(0, -5) = contactInfo 
    End If 

    Next cell 

End Sub