请教一下各位大神，如图，如何快速的删除多余的合并列，

#删除空白合并的列
谭斌斌
这是系统导出来的表格，我也试了网上的所谓方法，都没用
WPS表格 WPS表格 格式样式
广东省
浏览 182
1
2
分享
2 +1
8
1 +1
全部评论 8
 
TB
复制前几行内容，粘贴到WPS文字中 然后再复制WPS文字中的表格，粘贴到WPS表格的空白区域
· 广东省
1
回复
没用啊 大神
· 广东省
回复
 
一场凉凉雪
Sub DeleteRedundantMergedColumns() Dim col As Long ' 从右向左扫描列（避免索引错位） For col = Columns.Count To 1 Step -1 ' 检查是否为合并列且无数据 If Cells(1, col).MergeCells Then ' 取消合并 Cells(1, col).UnMerge ' 检查第2行至末尾是否为空 If Application.CountA(Range(Cells(2, col), Cells(Rows.Count, col).End(xlUp))) = 0 Then Columns(col).Delete End If End If Next col Application.ScreenUpdating = True End Sub
· 广东省
回复
周军

金山办公

🐂
· 广东省
回复
查看更多评论