如何使用VBA根据活动工作表中的单元格自动填充excel表单？

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsForm As Worksheet
    Dim lastRow As Long
    
    ' 检查目标单元格是否在指定的范围内
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        ' 获取表单工作表的引用
        Set wsForm = ThisWorkbook.Worksheets("表单")
        
        ' 获取表单工作表中最后一行的行号
        lastRow = wsForm.Cells(wsForm.Rows.Count, "A").End(xlUp).Row
        
        ' 在表单工作表中的下一行插入新数据
        wsForm.Cells(lastRow + 1, "A").Value = Target.Value
    End If
End Sub