如何修改Excel VBA代码实现指定单元格填充效果（附现有代码）

我已经完成了第一张图的单元格填充代码，但不知道如何修改代码以达成第二张图的目标填充效果。原实现代码如下：

Dim i As Long ' i-rows
Dim j As Long ' j- columns

'n is total number of rows
'm is total number of columns with title 0,1,2,3 only.

For i = 2 To n 'data starts from row 2
    For j = 4 To m 'data starts column 4
        If Cells(i, 2).Value = Cells(1, j).Value Then
            Cells(i, j).Value = Cells(i, 3).Value
        Else: Cells(i, j).Value = ""
        End If
    Next j
Next i

修改思路 #

原代码的Else分支会清空不匹配的单元格，但第二张图的需求是让不匹配的单元格继承上一行同列的内容，而非清空。因此需要调整Else部分的逻辑：

修改后的代码 #

Dim i As Long ' i-rows
Dim j As Long ' j- columns

'n is total number of rows
'm is total number of columns with title 0,1,2,3 only.

For i = 2 To n 'data starts from row 2
    For j = 4 To m 'data starts column 4
        If Cells(i, 2).Value = Cells(1, j).Value Then
            Cells(i, j).Value = Cells(i, 3).Value
        Else
            ' 第一行数据不匹配时保持为空，后续行继承上一行同列内容
            If i > 2 Then
                Cells(i, j).Value = Cells(i - 1, j).Value
            Else
                Cells(i, j).Value = ""
            End If
        End If
    Next j
Next i

关键说明 #

• 当当前行的第2列值与列标题（第1行第j列）匹配时，仍填充当前行第3列的值
• 当不匹配时：
  • 若为第一行数据（i=2），保持单元格为空（和原逻辑一致）
  • 若为后续行，直接继承上一行同列的已有值，实现第二张图的连续填充效果

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