按钮的话直接这样就好了。
For Each r As Row In Tables("股piao交易明细").rows Dim ary() As String = r("时间").split(",") If ary.length > 1 Then r("日期") = ary(0) r("星期") = ary(1) End IfNext