合并单元格问题

cums

求助
一个工作表内有若干合并的单元格。现在想要自动识别哪些单元格是合并的，然后清除合并单元格中的内容，使用的方法是先拆分再清除，然后再合并，试了下怎么都不行，
请指点。
Sub mergetest()
Dim i, j, r, n
For i = 2 To 20
For j = 2 To 5
If Cells(i, j).MergeCells Then
   r = Sheets("sheet1").Cells(i, j).MergeArea.Rows.Count
   n = Sheets("sheet1").Cells(i, j).MergeArea.Columns.Count
            Cells(i, j).UnMerge
    Sheets("sheet1").Cells(i, j).ClearContents
    Sheets("sheet1").Range(Cells(i, j), Cells(i + r, j + n)).Merge
    End If
i = i + r
j = j + n     
Next
Next   
End Sub

一把小刀闯天下

Option Explicit

Sub test()
  Dim rng As Range
  Application.ScreenUpdating = False
  For Each rng In ActiveSheet.UsedRange
    If rng.MergeCells Then rng.Value = Empty
  Next
  Application.ScreenUpdating = True
End Sub

IVYQQQQQ

个人建议，供参考：新建一个页面，把原来的数据写入数组，按照规则整合更新数组，在新的页面输出，这样可能方便点。

cums

一把小刀闯天下 发表于 2020-2-17 15:47
Option Explicit

Sub test()

非常感谢，一行代码解决了我好几十行的工作
再请教一个问题，，执行您这段代码以后，后面给合并单元格赋值的语句都没能成功，这是为什么？
再次感谢！

liulang0808

Sub ttttt()
    On Error Resume Next
    Application.Intersect(Cells.ColumnDifferences(ActiveCell), Cells.RowDifferences(ActiveCell)).Value = ""
End Sub

cums

IVYQQQQQ 发表于 2020-2-17 16:20
个人建议，供参考：新建一个页面，把原来的数据写入数组，按照规则整合更新数组，在新的页面输出，这样可能 ...

谢谢您的回复，您这是对牛弹琴了。。不懂怎么搞

SCL5801

顺路学习。

cums

liulang0808 发表于 2020-2-17 19:01
Sub ttttt()
    On Error Resume Next
    Application.Intersect(Cells.ColumnDifferences(ActiveCell) ...

您这行也太狠了，，所有内容都给清除了。。。

gbgbxgb

cums 发表于 2020-2-18 20:22
您这行也太狠了，，所有内容都给清除了。。。

这么简单的题，你原来的代码中就有答案了，真可惜，就是发现不了。

闲来无事，提供个代码供参考：

1. Sub kkk()
   
2.     Dim theCell As Range
   
3.     '
   
4.     With ActiveSheet
   
5.         For Each theCell In .Range(.Cells(2, 2), .Cells(20, 5))
   
6.             If theCell.MergeCells Then
   
7.                 If theCell.MergeArea.Cells(1) <> "" Then theCell.MergeArea.ClearContents
   
8.             End If
   
9.         Next theCell
   
10.     End With
    
11. End Sub

复制代码