Excel VBA：制作1-10按钮实现A2至F2横向填充的问题

核心逻辑 #

定位第2行的首个未填充空列，将点击按钮的评分填入该位置，同时限制最多填充到F列（第6列），避免超出6个评委的评分范围。

步骤1：编写通用宏代码 #

按下Alt+F11打开VBA编辑器，插入新模块后粘贴以下代码：

Sub FillScore()
    Dim targetCell As Range
    ' 从第2行最右侧向左找最后一个有值的单元格，再向右偏移1列得到目标空列
    Set targetCell = Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1)
    
    ' 若目标列超过第6列（F列），提示无法继续填充
    If targetCell.Column > 6 Then
        MsgBox "已完成6个评委评分，无法继续填充！"
        Exit Sub
    End If
    
    ' 将按钮预设的评分值填入目标单元格
    targetCell.Value = CLng(Application.Caller.Tag)
End Sub

步骤2：配置按钮属性 #

• 插入10个表单控件按钮（开发工具→插入→按钮）
• 所有按钮都关联上述FillScore宏
• 右键按钮→设置控件格式→控制，在Tag栏输入对应评分（1-10），同时修改按钮显示文字为对应数字

原代码问题说明 #

你用的Range("A").End(xlUp).Offset(1, 0)是纵向定位（查找A列最后一行的下一行），而我们需要横向定位第2行的下一列，所以改用Cells(2, Columns.Count).End(xlToLeft).Offset(0,1)才能实现需求。

替代简化方案 #

如果不想设置Tag属性，可直接通过按钮显示文字获取评分，把代码里的Application.Caller.Tag替换为Application.Caller.Caption即可（需确保按钮显示文字是纯数字1-10）。

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