選擇複製和粘貼錯誤

Question

我目前正試圖通過查找找到我需要的數據，因爲我不知道它位於何處，然後將數據向下複製到另一個表單上。我需要多次這樣做。

不過，我不斷收到對象變量或帶塊變量未設置我的第二個發現錯誤，它的上線：

.range(Selection, Selection.End(xlDown)).Select 

我的代碼

Dim ran, r As range 
With Sheet2 
    Set ran = .Cells.find(What:="User Defined Label 4", LookIn:=xlValues, LookAt:=xlWhole) 
    ran.Select 
    .range(Selection, Selection.End(xlDown)).Select 
    Selection.Copy 
    Sheet9.range("A1").PasteSpecial 

    Set r = .Cells.find(What:="V Align", LookIn:=xlValues, LookAt:=xlWhole) 
    r.Select 
    .range(Selection, Selection.End(xlDown)).Select 
    Selection.Copy 
    Sheet9.range("B1").PasteSpecial 
End With 

Answer 1

數關於您的意見代碼：

1.Dim ran, r As range表示ran是Variant，只有r是Range。

2.沒有必要有：

ran.Select 
.range(Selection, Selection.End(xlDown)).Select 
Selection.Copy 

只使用完全組隊參加Range沒有任何Select ING：

.Range(Ran, Ran.End(xlDown)).Copy 

確保您Find能找到您要查找的字符串/值，請添加If Not Ran Is Nothing Then。

試試下面的代碼：

Option Explicit 

Sub UseFind() 

Dim Ran As Range, r As Range 

With Sheet2 
    Set Ran = .Cells.Find(What:="User Defined Label 4", LookIn:=xlValues, LookAt:=xlWhole) 
    If Not Ran Is Nothing Then ' <-- make sure Find was successful 
     .Range(Ran, Ran.End(xlDown)).Copy 
     Sheet9.Range("A1").PasteSpecial 
    End If 

    ' add your second "Find" here 

End With  

End Sub