[已解决]删除多余列

wingotoo

如图，在第二行中，存在不定的单元格有合并现象

我想要实现一个下效果，通过宏按钮，自动从左边判断，凡是有合并单元格的 保留前面一格 例如BCD列，CD列删除

如上图，就是删除黄色的那些列

123.rar (6.19 KB, 下载次数: 5)

2015-5-31 16:10 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-31 16:59

1. Sub demo()
   
2.     Dim x As Integer, i As Integer
   
3.     x = Sheet1.UsedRange.Columns.Count
   
4.     For i = x To 2 Step -1
   
5.         If Cells(2, i).MergeCells Then Columns(i).Delete
   
6.     Next
   
7. End Sub

复制代码

跳转到最佳答案楼层

冠军欧洲2010

就题论题。

Sub A()
Dim K As Integer, I As Integer
K = Cells(2, Columns.Count).End(1).Column
For I = 1 To K
Cells(2, I).UnMerge
Next
End Sub

lisachen

123.rar (13.72 KB, 下载次数: 3)

2015-5-31 16:34 上传

点击文件名下载附件

1. Sub DelMergeCell()
   
2. i = Cells(2, Columns.Count).End(xlToLeft).Column + 10
   
3. For x = i To 2 Step -1
   
4. Set cel = Cells(2, x)
   
5. If cel.MergeCells = True Then
   
6. Cells(2, x).EntireColumn.Delete
   
7. End If
   
8. Next x
   
9. End Sub

复制代码

qh8600

1. Sub demo()
   
2.     Dim x As Integer, i As Integer
   
3.     x = Sheet1.UsedRange.Columns.Count
   
4.     For i = x To 2 Step -1
   
5.         If Cells(2, i).MergeCells Then Columns(i).Delete
   
6.     Next
   
7. End Sub

复制代码