如何编写VBA程序循环填充表格空白单元格至最大列行数？

需求描述 #

我有一个3列的表格，需要编写VBA程序完成以下操作：

• 找出表格中行数最多的列（即数据行数最大的列）
• 将其他列的空白单元格，按该列已有的非空值循环填充，直到达到最大列的行数

原表格 #

最终效果表格 #

现有尝试的问题 #

Excel自带的自动填充功能只会用上方单元格的值填充空白，无法实现循环复用已有值的需求。我编写的代码如下，同样只能向下填充上方值，达不到循环效果：

Sub FillBlanks()
Dim userSelection As Range
Dim cell As Range
Set userSelection = Selection
For Each cell In UserSelection
    If cell = "" Then
        cell.FillDown
    End If
Next cell
End Sub

解决方案VBA代码 #

Sub CycleFillBlanks()
    Dim ws As Worksheet
    Dim maxRow As Long
    Dim col As Integer
    Dim sourceVals As Variant
    Dim i As Long
    Dim valIndex As Long
    
    ' 指定操作的工作表，可改为Sheets("你的工作表名称")
    Set ws = ActiveSheet
    
    ' 第一步：确定所有列中的最大数据行数
    maxRow = 0
    For col = 1 To 3 ' 若列数不是3，修改此处数字为实际列数
        Dim currentColLastRow As Long
        currentColLastRow = ws.Cells(ws.Rows.Count, col).End(xlUp).Row
        If currentColLastRow > maxRow Then
            maxRow = currentColLastRow
        End If
    Next col
    
    ' 第二步：逐列循环填充空白单元格
    For col = 1 To 3
        ' 获取当前列的所有非空值作为循环数据源
        Dim sourceRange As Range
        Set sourceRange = ws.Range(ws.Cells(1, col), ws.Cells(ws.Cells(ws.Rows.Count, col).End(xlUp).Row, col))
        sourceVals = sourceRange.Value
        
        ' 若当前列无数据，跳过该列
        If IsEmpty(sourceVals) Then GoTo NextColumn
        
        valIndex = 1
        ' 遍历到最大行数，填充空白
        For i = 1 To maxRow
            If ws.Cells(i, col).Value = "" Then
                ws.Cells(i, col).Value = sourceVals(valIndex, 1)
                ' 索引循环
                valIndex = valIndex + 1
                If valIndex > UBound(sourceVals, 1) Then valIndex = 1
            Else
                ' 已有值时同步推进索引，保证循环顺序
                valIndex = valIndex + 1
                If valIndex > UBound(sourceVals, 1) Then valIndex = 1
            End If
        Next i
NextColumn:
    Next col
End Sub

代码说明 #

1. 确定最大行数：遍历所有目标列，找到每列的最后一行数据，取最大值作为填充的目标行数
2. 收集循环数据源：对每一列，先提取所有已存在的非空值，作为循环填充的备选值
3. 循环填充逻辑：
   • 遍历列中每一行，遇到空白单元格时，按顺序从数据源中取值填充
   • 数据源取完后自动从头开始循环
   • 若单元格已有值，同步推进数据源索引，确保后续填充的循环顺序和已有值序列一致
4. 灵活调整：如果表格列数不是3，只需修改代码中For col = 1 To 3的数字为实际列数即可

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