Question

我正在使用userform，我按下了一个按钮，当我点击它时，我有一个输入框，我尝试过滤列（E）的数据，然后从colum A1过滤此数据副本，直到过滤值在另一张表格中的列E caaled filtred_data我正在使用此代码这段代码，但它向我显示了一个不知道如何修复它的错误

Private Sub CommandButton9_Click()
Dim xno As Integer, Found As Range
Do
    xno = Application.InputBox("Enter the number of Top communities ", Type:=1)
    If TypeName(xno) = "Boolean" Then Exit Sub
    Set Found = Columns("E").Find(what:=xno, lookat:=xlWhole, LookIn:=xlValues)
    If Found Is Nothing Then
        MsgBox "the number was not found, please try again !!", vbInformation
    Else
        Found.Range("A1:F10000").Copy Destination:=Sheets("filtred_data").Range("A1:F10000")
    End If
Loop
End Sub

如果有人可以帮助我，谢谢你

Answer 1

您的问题是您使用Found方法将Find变量设置为单个单元格。稍后在您的代码中，您正在尝试在编写A1:F10000时复制该ONE单元格的Found.Range("A1:F1000")。

基本上，您的代码如下所示（假设Found引用单元格E25）：

Range("E25").Range("A1:F1000").Copy

你能看出为什么会导致错误吗？

我会尝试提供更多帮助，但很难确切地确定你想要什么。您是否可以提供有关电子表格布局的更多详细信息以及您希望实现的示例？

VBA-使用输入框过滤和复制数据

1 个答案: