|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
求助
一个工作表内有若干合并的单元格。现在想要自动识别哪些单元格是合并的,然后清除合并单元格中的内容,使用的方法是先拆分再清除,然后再合并,试了下怎么都不行,
请指点。
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
|
|