如何用 VBA 拆分整个表中所有合并单元格并填充原单元格的内容

五斤糖

请教一下



如何用 VBA 拆分整个表中所有合并单元格并填充原单元格的内容

shiruiqiang

没附件，巧妇也难无米之炊

ykcbf1100

最好上传一个附件。

并不是难事。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim rng As Range
   
4.     With Worksheets("sheet1")
   
5.         For Each rng In .UsedRange
   
6.             If rng.MergeCells = True Then
   
7.                 If rng.MergeArea.Cells(1, 1).Address = rng.Address Then
   
8.                     hs = rng.MergeArea.Rows.Count
   
9.                     ls = rng.MergeArea.Columns.Count
   
10.                     x = rng.Value
    
11.                     rng.UnMerge
    
12.                     For i = 0 To hs - 1
    
13.                         For j = 0 To ls - 1
    
14.                             rng.Offset(i, j) = x
    
15.                         Next
    
16.                     Next
    
17.                 End If
    
18.             End If
    
19.         Next
    
20.     End With
    
21. End Sub
    

复制代码

chxw68

感觉不是最优。

五斤糖

chxw68 发表于 2024-12-15 20:49
感觉不是最优。

已经很好了  感谢

cjc209

来一个jsa的撤销合并单元格填充值的通用函数 填不填充 自己利用第二参数控制
function UnMergeCells_Z(rng,是否填充){
        是否填充??=true;
        for (var ar of rng){
                if (ar.MergeCells){
                        var 值=ar.MergeArea.Range ("a1").Value2;
                    var rr=ar.MergeArea;
                    rr.UnMerge();
                    if(是否填充==true){ rr.Value2=值;};
                }
        }
}

ykcbf1100

没附件就上个图吧。