使用特定工作表并选择范围;运行时错误91

Question

我想抓住一个工作表中的某一列，并且（最终..没有编写代码）将它复制到另一个工作簿中的另一个工作表中。我得到一个运行时错误91，当我试图找到办法解决它，我会得到一个运行时错误1004

Sub User_Rolee() 
    Dim UserRoleWkb As Workbook, ConfigWkb As Workbook, UserRoleWkst As Worksheet, ConfigWkst As Worksheet 
    Set UserRoleWkb = Workbooks.Open("C:\Users\clara\Desktop\S_User_Role_Map_TEMPLATE_V2_BLANK.xlsx") 
    Set ConfigWkb = ActiveWorkbook 
    'Set ConfigWkb = Workbooks.Open("C:\Users\clara\Desktop\Configuration Workbook - Paramaribo.xlsm") 
    Set UserRoleWkst = UserRoleWkb.Sheets("Users") 
    Set ConfigWkst = ConfigWkb.ActiveSheet 
    Dim rng, rnga As Range 

    With ConfigWkst 
     Set rng = .Columns(2).Find(What:="Procurement Agent") 
     Set rnga = .rng.Offset(1) 'runtime error 91 
     Set rngar = .Range(rnga, rnga.End(xlDown)).Select 
    End With   
End Sub 

Answer 1

按照上面我的意见，尝试下面的代码：

（见我在最后一行的评论中，你也从未在任何地方定义过rngar）。

Option Explicit 

Sub User_Rolee() 

Dim UserRoleWkb As Workbook, ConfigWkb As Workbook, UserRoleWkst As Worksheet, ConfigWkst As Worksheet 
Dim rng As Range, rnga As Range, rngar As Range 

Set UserRoleWkb = Workbooks.Open("C:\Users\clara\Desktop\S_User_Role_Map_TEMPLATE_V2_BLANK.xlsx") 
Set ConfigWkb = ThisWorkbook 

'Set ConfigWkb = Workbooks.Open("C:\Users\clara\Desktop\Configuration Workbook - Paramaribo.xlsm") 
Set UserRoleWkst = UserRoleWkb.Sheets("Users") 
Set ConfigWkst = ConfigWkb.Worksheets("Sheet1") '<-- modify "Sheet1" to your sheet's name 

With ConfigWkst 
    Set rng = .Columns(2).Find(What:="Procurement Agent") 

    If Not rng Is Nothing Then '<-- find was successful 
     Set rnga = rng.Offset(1) 
     Set rngar = Range(rnga, rnga.End(xlDown)) 
     rngar.Copy '<-- copy the Range 
    End If 
End With 
End Sub