如果满足条件，则Excel VBA将数据复制到表中

Sub CopyDataToTable()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim srcRange As Range
    Dim destRange As Range
    
    ' 设置源数据范围
    Set srcRange = Sheets("Sheet1").Range("A1:D10")
    
    ' 设置目标表格范围
    Set ws = Sheets("Sheet2")
    Set destRange = ws.Range("A1").CurrentRegion
    
    ' 如果目标表格已存在数据，则清除数据
    If Not destRange Is Nothing Then
        destRange.ClearContents
    End If
    
    ' 将源数据复制到目标表格
    srcRange.Copy destRange
End Sub