主题：从 excle2003 复制数据问题

Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    For Each c As Col In t.Cols
        r(c.name) = r(c.name).trim("""")
    Next
Next
t.AutoSizeRows