合并单元格的问题，可能很简单，勿笑

1e3e

如附件所示：“问题.xls”是要操作的表格，而“要达到的效果.xls”是操作后要达到的效果
注意1、背景色为黄色的行已经设置好了，不需要再改动。
       2、背景色为白色的，a列中如果单元格为空白，则向下合并一个单元格, 且b~t列格式跟随a列。
        取个例子为：因为a322单元格为空白,则a321为合并单元格，且b321 c321  d321 e321 f321…n321为合并单元格，o321 o322 p321 p322 q321 q322这六个单元格因为都有内容所以只加外框线，同理类推r321 r322 s321 s322 t321 t322
         因为a324单元格为空白,则a323为合并单元格，且b323 c323 d323 e323 f323…n323为合并单元格，o324 p324  q324这六个单元格因为是空白所以均是合并单元格，同理类推r323 r324 s323 s324 t323 t324

1e3e

自己写了一段代码，效果不好，代码如下：
Sub Macro7()  '可有可无　合并单元格
Application.ScreenUpdating = False '强制屏幕刷新
Application.Calculation = xlCalculationManual '公式手动计算
Sheets("空表").Select

For j = 15 To 17
    For i = 1000 To 7 Step -1  '注意不能到第一行因为第一行是合并单元格否则会400
        If Cells(i, j) = "" Then
        Range(Cells(i - 1, j), Cells(i, j)).Merge  '即主要建设内容进行向下空格合并
        Range("r" & i - 1 & ":" & "t" & i).Borders.LineStyle = xlLineStyleNone
         Range("r" & i - 1 & ":" & "t" & i).BorderAround xlContinuous, xlThin

        End If
        If Cells(i, 1) = "" Then Range(Cells(i - 1, 1), Cells(i, 1)).Merge
        
    Next
Next
Application.Calculation = xlCalculationAutomatic  '公式自动计算
Application.ScreenUpdating = True '强制屏幕刷新
End Sub