主题：[求助]用VBA进行Excel单元格合并时,我用Rg.MergeCells = True 或 Rg.Merge 都报错

原语句

                        Dim ik As Integer = i-1 - dicCnt(aCol)
                        If ik > 0 Then
                            Dim Rg As MSExcel.Range = Ws.Range(Ws.Cells(dicCnt(aCol),nCol), Ws.Cells(i-1,nCol))
                            Output.Show(nCol & "合并:" & aCol & ",i:" & dicCnt(aCol) & "到" & (i-1) & ",内容:" & dicStr(aCol) )
                            Rg.MergeCells = True
                            ' Rg.Merge
                        End If

调试输出内容

4合并:合同编码,i:2到5,内容:GZGC-EP-设（FJYH）-2019-032

合并的是下面的列

此主题相关图片如下：密密麻麻密密麻麻们.png