用于合并重复行并保留非空值的VBA代码？

Sub MergeDuplicateRows()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行号
    
    For i = lastRow To 2 Step -1 ' 从最后一行开始向上遍历
        If Cells(i, 1) = Cells(i - 1, 1) Then ' 如果当前行的第一列与上一行的第一列相同
            For j = 2 To Columns.Count ' 遍历每一列
                If Cells(i, j) = "" Then ' 如果当前单元格为空
                    Cells(i, j) = Cells(i - 1, j) ' 将上一行的对应单元格的值复制到当前单元格
                End If
            Next j
            Rows(i - 1).Delete ' 删除上一行
        End If
    Next i
End Sub