VBA「For」循環不工作

-2

我有兩個電子表格，第一個是主電話列表，第二個是用戶電話列表綁定到電話號碼，我想寫一個for循環，將找到匹配然後將用戶名複製到主列表上的空列以標識所有可用數字。我不確定我是否正確地選擇了它。任何幫助是極大的讚賞。VBA「For」循環不工作

Sub temp() 
Dim rCell As Range 
Dim rRng As Range 
Set x = Sheet4.Range("A1:A1300") 
For i = 2 To 500 
If Worksheets("Sheet3").Cells(i, 1) = Worksheets("Sheet4").Cells(x, 1) Then 
    Worksheets("Sheet4").Cells(x, 3) = Worksheets("Sheet3").Cells(i, 4) 
End If 
Next i 

End Sub

來源

2014-05-20 Bergie

以何種方式它出錯了嗎？ –

This ** Worksheets（「Sheet4」）。Cells（x，1）**對我來說似乎很奇怪！特別是** x ** –

X似乎沒有被定義。您應該在代碼模塊中添加Option Explicit。 – RubberDuck

我認爲你想要做的事情可以通過VLOOKUP工作表公式來處理。

在你試圖填充，輸入列的單元格，

=VLOOKUP([cell containing phone number to lookup],[range to lookup on],[column number of result beginning from 1],FALSE)

所以，我想你想，在工作表Sheet 3 D2單元格，

=VLOOKUP(A2,Sheet4!$A$1:$C$1300,3,False)

來源

2014-05-20 13:48:53 PerpetualStudent

我甚至沒有想過嘗試一個vlookup – Bergie

VBA「For」循環不工作

回答

相關問題