代码、excel模板都没问题,你第一列的数据有问题,后面有空格导致的。
For Each r As Row In Tables("表A").Rows r("第一列") = r("第一列").trimNext