- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]用VBA进行Excel单元格合并时,我用Rg.MergeCells = True 或 Rg.Merge 都报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152759)
-- 发布时间：2020/7/21 11:29:00
-- [求助]用VBA进行Excel单元格合并时,我用Rg.MergeCells = True 或 Rg.Merge 都报错
用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
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
-- 发布时间：2020/7/21 11:44:00
--
提示什么错误？贴出完整代码