在固定行和固定列上加上序列号

With hfg1
  '设置行号
  For intI = 1 To .Rows - 1
    .ColWidth(0) = 400
    .TextMatrix(intI, 0) = intI
  Next
  '设置列号
  For intI = 1 To .Cols - 1
    .ColAlignmentFixed(intI) = 4
    .ColAlignment(intI) = 4
    .TextMatrix(0, intI) = intI
  Next
End With