主题：求简单写法

Dim cls() As String = {"第一列", "第五列"}

Dim cs1 As C1.Win.C1FlexGrid.CellStyle = Tables("表A").grid.Styles.Add("cs1")
cs1.Font = new Font("宋体", 15)
cs1.Backcolor = Color.Red
For Each c As String In cls
    Tables("表A").Grid.SetCellStyle(0, Tables("表A").Cols(c).Index+1, cs1)
Next

Tables("表A").AutoSizeHeaderRow