Excel VBA赛事计分卡循环需求：将指定列数值移至对应行空单元格

方案1：VBA脚本（实现静态值赋值，完全匹配需求） #

由于Excel公式无法直接完成静态值写入空单元格的操作（公式仅能动态引用，不能主动赋值），VBA是最贴合需求的解决方案：

代码实现 #

Sub FillScoreToTargetCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim targetCol As Long
    
    ' 指定工作表，替换为你的计分卡工作表名称
    Set ws = ThisWorkbook.Worksheets("赛事计分卡")
    
    ' 获取A列最后一行有效数据（包含公式返回的非空值）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历所有数据行（假设第1行为表头，从第2行开始）
    For currentRow = 2 To lastRow
        ' 校验A列有效姓名（非空，排除公式返回的空值）、B列是数字
        If ws.Cells(currentRow, "A").Value <> "" And IsNumeric(ws.Cells(currentRow, "B").Value) Then
            ' 查找当前行E:N区域的第一个空单元格
            On Error Resume Next ' 处理E:N全满的情况
            targetCol = ws.Cells(currentRow, "E").Resize(1, 10).Find( _
                What:="", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns).Column
            On Error GoTo 0
            
            ' 如果找到空单元格，写入B列的值（仅赋值，无公式关联）
            If targetCol > 0 Then ws.Cells(currentRow, targetCol).Value = ws.Cells(currentRow, "B").Value
        End If
    Next currentRow
End Sub

使用步骤 #

1. 打开你的计分卡Excel文件，按Alt+F11打开VBA编辑器
2. 右键左侧的工作表名称 → 插入 → 模块
3. 将上述代码粘贴到模块中，修改"赛事计分卡"为你的实际工作表名
4. 点击工具栏的「运行」按钮执行脚本，或给脚本添加工作表按钮方便重复使用

方案2：动态公式（适合允许动态同步的场景） #

如果接受B列数值变化时，E:N区域的对应值自动同步（非静态赋值），可以用以下公式：

在E2单元格输入公式，然后横向填充到N2，再纵向填充到所有行：

=IF(AND(A2<>"",ISNUMBER(B2)),IF(E2="",B2,E2),"")

注：这个公式会自动在当前行E:N的第一个空单元格显示B列数值，但属于动态引用，当B列值变化时，已填充的单元格值也会同步改变。

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