Question

请问EXCEL用VBA怎么写这段代码。自动向下合并空白单元格。

如题。如何用VBA向下合并单元格，尽量不用数组吧。。数组现在对我来说，理解太累了。。。。注明，我的表格是变动的，这个只是一个示范，它是从另一个表按照要求提取出来的、

Answer 1

Sub SpecialMerge()
    Dim M As Long, N As Long
    Dim i As Long, j As Long
    Dim k1 As Long, k2 As Long
    Application.DisplayAlerts = False
    k1 = 1
    k2 = 1
    With Selection
        M = .Columns.Count
        N = .Rows.Count
        For j = 1 To M
            For i = 1 To N
                If .Cells(i, j) = "" Then
                    k2 = i
                Else
                    Range(.Cells(k1, j), .Cells(k2, j)).Merge
                    k1 = i
                    k2 = i
                End If
            Next i
            Range(.Cells(k1, j), .Cells(k2, j)).Merge
            k1 = 1
            k2 = 1
        Next j
    End With
    Application.DisplayAlerts = True
End Sub

操作方法：选中要操作的数据区域，运行宏即可。见示例文件。

Answer 2

Sub 合并单元格()
Application.DisplayAlerts = False
k = ActiveSheet.UsedRange.Rows.Count
For j = 1 To 2
    For i = k To 1 Step -1
        If Cells(i, j) = "" Then Range(Cells(i - 1, j), Cells(i, j)).Merge
    Next
Next
Application.DisplayAlerts = True
End Sub