不能用。转成日期列,才能用,增加一列日期列,写代码
For Each r As Row In Tables("表A").Rows Dim str As String = r("第一列") If str.Length = 8 Then r("第二列") = new Date(str.substring(0,4), str.substring(4,2), str.substring(6,2)) End IfNext