使用userform根据条件输入复制数据

' 在VBA编辑器中创建一个新的用户窗体（UserForm）
' 添加适当的控件，例如文本框和按钮

' 在用户窗体的代码模块中添加以下代码：

Private Sub CommandButton1_Click()
    ' 获取用户输入的条件
    Dim condition As String
    condition = TextBox1.Value
    
    ' 打开源数据工作表
    Dim sourceSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Worksheets("源数据")
    
    ' 打开目标数据工作表
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("目标数据")
    
    ' 定义源数据和目标数据的范围
    Dim sourceRange As Range
    Set sourceRange = sourceSheet.Range("A1:A10") ' 假设源数据在A1:A10范围内
    
    Dim targetRange As Range
    Set targetRange = targetSheet.Range("A1") ' 假设目标数据从A1单元格开始
    
    ' 遍历源数据范围，根据条件复制数据到目标数据范围
    Dim cell As Range
    Dim targetCell As Range
    For Each cell In sourceRange
        If cell.Value = condition Then
            ' 复制数据到目标数据范围
            Set targetCell = targetRange.Cells(targetRange.Rows.Count, 1).End(xlUp).Offset(1, 0)
            targetCell.Value = cell.Value
        End If
    Next cell
    
    ' 关闭用户窗体
    Unload Me
End Sub

' 在工作表中添加一个按钮，用于打开用户窗体
' 在按钮的点击事件中添加以下代码：

Sub OpenUserForm()
    UserForm1.Show
End Sub