With MS1 .ColHeader(0) = flexColHeaderOn ’显示列表头,参数0表示带区索引号 .ColHeaderCaption(0, 0) = "1111" ’指定每一列表头内容 .ColHeaderCaption(0, 1) = "2222" End With