老师，目前这一段代码过不过去
'合并指定前N列
If c <= nbox1.value Then
If s2<>s OrElse r-i1=dt.DataRows.Count Then
If s2=s Then
rm2 += 1
End If
If rm2 <> 0 AndAlso s2 <> "" AndAlso s2 <> "0" Then
Sheet.MergeCell(rm,c,rm2,1)
End If
s2 = s
rm = r
rm2 = 1
Else
rm2 += 1
End If
End If
If vv>0 Then
Sheet.Rows(r).Height =vv '设置行高
End If
n2 = 0 '完成一行后初始化条件
Next
Output.Show("3================")
If sheet(i1,c).value="" Then
Sheet.MergeCell(0,c,i1+1,2) '合并单表头---------------------------------5
End If
sheet.Cols(c).Width = i3*9.3
Else
sheet.Cols(c).Width = 0
End If
加好友 
发短信
Post By：2023/7/24 22:33:00 [只看该作者]
