Question

我要选择并复制一个单元格范围。我让用户从组合框中选择他们想要的数据。选择数据后，他们点击了运行以下代码的按钮：

Private Sub btnEnter_Click()
'''''WHAT HAPPENS WHEN BUTTON IS CLICKED'''''

'TARGET CELL REFERENCE
Dim TargetRow As Integer
TargetRow = Application.WorksheetFunction.Match(ComboBox1, Sheets("Inprocess").Range("Sku_Range1"), 0)
Sheets("Data").Range("G3").Value = TargetRow

'COPY & SELECT CELL RANGE FROM TARGET CELL
Dim FndStr As String
FndStr = TargetRow
Dim FndVal As Range
Set FndVal = Columns("J:J").Find(What:=FndStr, LookAt:=xlPart)
    If FndVal Is Nothing Then
        MsgBox "LP not found!!"
    Else
        FndVal.Select
        Range(Selection.Offset(0, -1), Selection.Offset(0, 2)).Copy
    End If


End Sub

我的问题是FndVal没有返回任何内容，我似乎无法弄清楚原因。有人可以帮忙吗？

Answer 1

如果此代码位于UserForm中，请尝试指定您要引用的Sheet。

示例：

Set FndVal = Sheets("Data").Columns("J:J").Find(What:=FndStr, LookAt:=xlPart)

如何获取单元格范围以根据单元格值进行选择和复制

1 个答案: