access输出EXL时，合并单元格，求高手帮忙

如图所示

我输出EXL之后，日期和规格大量重复，观看起来极为不方便，希望从ACCESS输出exl之后，日期和规格两列，数据相同的单元格合并，求代码

做成如下图的格式

下面是我用按钮输出EXL的代码，但输出后观看起来极为不方便，求改变输出格式的代码，各位高手帮忙啊！江湖救急！！

    Dim xls As Object

Dim xlsbook As Object

Dim i As Integer

Set xls = CreateObject("excel.application")

Set xlsbook = xls.Workbooks.Add

Me.planwind.Form.Recordset.MoveFirst

For i = 0 To Me.planwind.Form.Recordset.Fields.Count - 1
        xlsbook.Worksheets(1).Cells(1, i + 1).Value = Me.planwind.Form.Recordset.Fields(i).Name
Next

xls.Worksheets(1).Range("A2").CopyFromRecordset Me.planwind.Form.Recordset

xls.Quit

是在Next中改变吗？我找了好久，还是没找到合并单元格的方法

Set xlsbook = Nothing

Set xls = Nothing