Dim t As Table = Tables("表a") Dim cs1 As String = "第一列,第二列,第三列" Dim cs2 As String = "20,50,30" Dim w As Integer = (t.grid.width-30) / 100 Dim str As String = "" Dim ary1 = cs1.split(",") Dim ary2 = cs2.split(",") For i As Integer = 0 To ary1.length-1 t.cols(ary1(i)).width = w * ary2(i) Next