VBA怎样删除第一行有合并单元格中的其中几列？

tte3

各位老师好！



我按录制的宏，复制表格后，全表粘贴数值，然后删除第三行单元格底线不一样的列，然后就出错了

是不是因为第一行有合并单元格，所以出错了

要保持第一行的合并单元格，要怎么处理呢？

谢谢！

ykcbf1100

整列删除应该没事吧。

tte3

ykcbf1100 发表于 2022-11-21 16:50
整列删除应该没事吧。

会出错的

代码直按按录制宏，还是会出错。

ssfx1982

1. Sub test()
   
2.     Dim rg, rng As Range, i&
   
3.     With Sheets(1)
   
4.         iRow = .Cells(Rows.Count, 1).End(3).Row                       '获得工作表有效数据区域的行数
   
5.         iCol = .Cells(3, Columns.Count).End(xlToLeft).Column          '获得工作表有效数据区域的列数
   
6.         Set rng = .Range(.Cells(1, 1), .Cells(iRow, iCol))            '定义rng为有效数据范围
   
7.         For Each rg In rng                                            '遍历rng区域，去公式，只保留值
   
8.             rg.Value = rg.Value
   
9.         Next
   
10.         
    
11.         For i = iCol To 1 Step -1                                     '倒序遍历第3行的单元格，删除下边线为xlDashDotDot线型的列
    
12.             With .Cells(3, i).Borders(xlEdgeBottom)
    
13.                 If .LineStyle = xlDashDotDot Then                     '实线xlContinuous，点画相间线 xlDashDotDot
    
14.                    Sheets(1).Cells(3, i).EntireColumn.Delete
    
15.                 End If
    
16.             End With
    
17.         Next i
    
18.         
    
19.         If Len(.[a1]) = 0 Then .[a1] = "报表"
    
20.     End With
    
21. End Sub
    
22. 试下是否合乎你的需求。

复制代码

tte3

ssfx1982 发表于 2022-11-21 18:33

很好
谢谢！

最后的结果，是生成在新表上，不是在原表，原表不动。

tte3

为什么带合并单元格的整列删除，就会出错？

准提部林

不要的列刪了, 那合計不就變了???

tte3

准提部林 发表于 2022-11-22 10:40
不要的列刪了, 那合計不就變了???

谢谢，是我考虑不周，实际中的删除的列是无用的，不是数值
实际中的合计也不是全部的，只是其中的几列

只要复制出来的表格数据一致就可了

准提部林

工作表是用"原表複製"再刪去不要的??__這方法會將"定義名稱"也帶過去__sheets.copy
還是"新增"工作表再複製內容???__sheets.add