删除合并单元格中隐藏的内容

976190982

表中 D\E列的合并格式是用格式刷从A列刷的格式，
D、E列的合并单元格取消后数据还在，请问老师们 ，怎么

清除隐藏的内容，我只需要按照正常合并单元格的来 只保留左上角的值就好了

有时候内容不一定是E，d列，请问老师们可否有自由选择列的操作方法，本人小白一枚 ，合并A列都搞死我了
求老师们帮助我，感谢你们


合并.zip (17.21 KB, 下载次数: 8)

2020-7-4 09:37 上传

点击文件名下载附件

爱疯

是这样吗

976190982

爱疯 发表于 2020-7-4 09:51
是这样吗

谢谢版主的回复哈    我是需要D，E列    合并区域    中删除隐藏的内容         

砂海

看上去 你A列是好的 ,

1) 复制一个工作表作为 副本
2) 副本 完全取消单元格合并
3) 筛选A列 , 空白 , 删除对应 (DE列内容) , 解除筛选

4) 复制原始表格式到副本 , 完成

976190982

砂海 发表于 2020-7-4 11:42
看上去 你A列是好的 ,

1) 复制一个工作表作为 副本

可否用vba实现

砂海

Sub nnnext()
    Dim x
   
    For Each rg In Range("E1:E10")
        x = rg.MergeArea.Address & ":" Like (rg.Address & ":*")
        
        If x = False Then rg.Value = ""
    Next

End Sub

爱疯

'方法1
Sub test()
    Dim A, i
    A = Range("A1").CurrentRegion
    For i = 2 To UBound(A)
        If A(i, 1) = "" Then
            A(i, 4) = ""
            A(i, 5) = ""
        End If
    Next
    [a1].Resize(i - 1, 5) = A
End Sub

爱疯

'方法2
Sub test()
    Dim i, k, Rng
    For i = 2 To Range("b65536").End(xlUp).Row
        If Cells(i, 4).MergeCells Then
            Set Rng = Range(Cells(i, 4).MergeArea.Address)
            k = i + 1
            i = i + Rng.Count - 1
            Range(Cells(k, 4), Cells(i, 5)) = ""
        End If
    Next
End Sub