Excel VBA用户表单初始化无法显示全部14列表头问题排查

Hey，我一眼就看到问题出在哪了——你初始化表头的条件判断逻辑完全搞反了！

核心问题分析 #

看你UserForm初始化里的这段循环代码：

For a = 1 To 14
    If (.Cells(3, a) <> "") Then .Cells(3, a).Value = HeaderName(a)
    Debug.Print "a = " & a
Next a

你写的逻辑是：只有当第3行第a列的单元格已经有内容时，才把指定的表头名称赋值给它。但你实际需求是要给前14列设置固定表头，这就导致：

• 前4列（Civilité、Nom、Prénom、Âge）对应的单元格之前可能已有内容，所以触发赋值，正常显示；
• 后面10列的单元格是空的，条件不满足，直接跳过赋值，自然就看不到表头了。

修复代码 #

把这段循环里的多余判断去掉，直接强制赋值即可：

'Initialize headers : start from row = 3
With Sheet1
    For a = 1 To 14
        .Cells(3, a).Value = HeaderName(a) '直接赋值，覆盖原有内容（如果有的话）
        Debug.Print "a = " & a
    Next a
End With

（顺便可以去掉Sheet1.Activate，VBA里直接通过工作表对象操作更可靠，避免激活带来的潜在问题）

额外优化建议 #

为了让你的代码更健壮，还有几个小细节可以调整：

1. 规范数组索引：
   你声明的Dim HeaderName(14) As String默认是从索引0开始的，虽然你用1-14没问题，但可以改成明确的范围，避免索引0的空值隐患：

   Dim HeaderName(1 To 14) As String
   

2. 简化空行计算（按钮点击代码）：
   你当前计算emptyRow的方式有点复杂，而且容易出错，可以换成更可靠的写法：

   Private Sub CommandButton1_Click()
       Dim emptyRow As Long
       With ThisWorkbook.Worksheets("Sheet1") '建议给工作表改个有意义的名字，比如"人员信息"
           '找到A列最后一个非空行，下一行就是新数据行
           emptyRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
           
           '赋值表单数据
           .Cells(emptyRow, 1).Value = ComboBox1.Value
           .Cells(emptyRow, 2).Value = TextBox1.Value
           .Cells(emptyRow, 3).Value = TextBox2.Value
           .Cells(emptyRow, 4).Value = TextBox3.Value
           '简化CheckBox赋值逻辑
           .Cells(emptyRow, 5).Value = IIf(CheckBox1.Value, CheckBox1.Caption, CheckBox2.Caption)
       End With
   End Sub
   

3. 避免依赖默认工作表名称：
   尽量不要用Sheet1这种默认名称，右键工作表标签重命名为比如"人员数据"，然后用ThisWorkbook.Worksheets("人员数据")引用，这样即使工作表顺序变了，代码也不会出错。

内容的提问来源于stack exchange，提问作者user1773603