Excel VBA用户窗体需求：实现勾选复选框时内容纵向逐行填入单元格而非横向同行

嘿，你写的这段代码其实已经能实现勾选Checkbox时将内容纵向逐行填入Feuil1的A列的需求啦！不过我可以给你几个小优化，让代码更稳健、高效：

优化后的纵向填入代码 #

Private Sub ButtonAdd_Click()
    Dim LastRow As Long
    Dim CTRL As Control
    Dim targetSheet As Worksheet
    Dim ref As String
    
    ' 先确认用户操作，点No就直接退出
    If MsgBox("Are you sure?", vbYesNo, "Confirmation") <> vbYes Then Exit Sub
    
    ' 绑定目标工作表，避免切换工作表时出错
    Set targetSheet = ThisWorkbook.Sheets("Feuil1")
    
    ' 提前获取A列最后一行的下一行，不用每次循环都找，省事儿
    LastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    For Each CTRL In Me.Controls
        ' 只处理CheckBox控件，防止其他控件捣乱
        If TypeName(CTRL) = "CheckBox" And CTRL.Value = True Then
            targetSheet.Range("A" & LastRow).Value = CTRL.Caption
            LastRow = LastRow + 1 ' 填完一行就把行号+1，继续写下一行
        End If
    Next CTRL
End Sub

几个优化细节 #

• 提前锁定最后一行：原代码每次循环都去计算LastRow，如果勾选的Checkbox多，会重复执行查找操作，效率有点低。现在提前算好初始行号，每填完一行就自增1，运行更顺畅。
• 明确指定工作表：用targetSheet变量绑定目标工作表，避免依赖当前激活的工作表（比如用户不小心切到其他 sheet，代码就不会错填地方了）。
• 过滤控件类型：增加TypeName(CTRL) = "CheckBox"的判断，确保只处理复选框，不会误碰UserForm里的按钮、文本框之类的其他控件。

如果之后你又需要回到横向同行填入的需求（也就是你之前的需求），只需要把行号固定，改成列号自增就行，代码如下：

Private Sub ButtonAdd_Click()
    Dim LastCol As Long
    Dim CTRL As Control
    Dim targetSheet As Worksheet
    
    If MsgBox("Are you sure?", vbYesNo, "Confirmation") <> vbYes Then Exit Sub
    
    Set targetSheet = ThisWorkbook.Sheets("Feuil1")
    ' 找第一行的最后一列的下一列
    LastCol = targetSheet.Cells(1, targetSheet.Columns.Count).End(xlToLeft).Column + 1
    
    For Each CTRL In Me.Controls
        If TypeName(CTRL) = "CheckBox" And CTRL.Value = True Then
            targetSheet.Cells(1, LastCol).Value = CTRL.Caption
            LastCol = LastCol + 1 ' 填完一列就把列号+1，继续写右边的单元格
        End If
    Next CTRL
End Sub

这样就能轻松切换纵向/横向的填入方式啦～

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