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

976190982

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

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

有时候内容不一定是E，d列，请问老师们可否有自由选择列的操作方法，本人小白一枚 ，合并A列都搞死我了
求老师们帮助我，感谢你们
合并.zip (17.21 KB, 下载次数: 8)

2020-7-3 21:03 上传

点击文件名下载附件

taller

参考代码

1. Sub demo()
   
2.     Dim r As Range
   
3.     lst = Cells(Rows.Count, 2).End(xlUp).Row
   
4.     For col = 4 To 5
   
5.         For i = 2 To lst
   
6.             Set r = Cells(i, col)
   
7.             If r.MergeCells Then
   
8.                 If r.MergeArea(1).Address <> r.Address Then r = ""
   
9.             End If
   
10.         Next
    
11.     Next
    
12.     Debug.Print "done"
    
13. End Sub
    

复制代码

976190982

taller 发表于 2020-7-4 01:29
参考代码

版主您好   谢谢你的回复   非常感谢你帮助我   我有不同表格都有这样的需求  我尝试着看懂您的代码加入Application.InputBox    但是技能不足  浏览很多资料还是无从下手，能否指点我一下   谢谢您

taller

976190982 发表于 2020-7-4 10:28
版主您好   谢谢你的回复   非常感谢你帮助我   我有不同表格都有这样的需求  我尝试着看懂您的代码加入A ...

不明白你要实现什么

renkangjizhen

For col = 4 To 5

为合并单元格的区域，把他修改为你需要的区域即可

shi353

'用不到inputbox吧! 反白有合併單元格的區域,將合併區域填滿,不知道是不是這個意思
Sub SimpleWayUnmergeSelection()    '
    Set a = Selection
    For i = 1 To a.Cells.Count
        With a.Cells(i)
            If .MergeCells Then
                C = .MergeArea.Address
                .UnMerge
                Range(C) = .Value
            End If
        End With
    Next
End Sub

976190982

taller 发表于 2020-7-5 02:08
不明白你要实现什么

老师，就是把For col = 4 To 5   这里用Application.InputBox来自由选择区域

7745213

taller 发表于 2020-7-4 01:29
参考代码

你好老师，上述代码可以编辑成一个自定义函数吗？就是想实现调用这一函数时可以删除任一列内的合并单元格内的隐藏值。