For Each r As Row In Tables("表A").rows For Each c As Col In r.Table.cols If c.IsNumeric AndAlso r.IsNull(c.name) Then r(c.name) = 0 End If NextNext