excel - 通过用户表单查找具有特定值的行并复制/粘贴到另一张表

Question

我制作了一个带有 8 个文本框的用户表单。当用户填写这些文本框时，会在另一张表中插入具有不同值的行。（1 行，8 列）。

我制作了另一个与“输入”用户表单相同的用户表单。然后用户应该能够在这个用户窗体中写入 8 个值之一，然后 VBA 应该找到包含这个值的所有行并将这些行复制到第三张表。

我该如何解决这个问题？

谢谢！

---

我尝试了以下代码，但它不起作用：

Sheets("Rawdata").Select
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' Loop through each row
For x = 2 To FinalRow
'kommentar
        ThisValue = Cells(x, 1).Value
        If ThisValue = Me.TextBox1_1.Value Then
            Cells(x, 1).Resize(1, 33).Copy
            Sheets("Rapport").Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets("Rawdata").Select
        ElseIf ThisValue = Me.TextBox2.Value Then
            Cells(x, 1).Resize(1, 33).Copy
            Sheets("Rapport").Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets("Rawdata").Select
        End If
    Next x
End Sub

代码只是返回“编译错误：未定义变量”。

请帮忙

标签： excelvba