参考代码
Dim tb As Table = Tables("表A")Dim cs1 As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("样式1")Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(2,1, 2,10) '第二行第一列到第十列cs1.TextAlign = 4rng.style = cs1