合并单元格后再填充原来的内容

yfxfsj

合并单元格后再填充原来的内容，详见附件。谢谢

shiruiqiang

直接wps里这个取消合并

yfxfsj

shiruiqiang 发表于 2025-1-15 13:45
直接wps里这个取消合并

哦，谢谢啦，我试试

ykcbf1100

附件供参考。。。

ykcbf1100

合并单元格恢复填充

1. Sub ykcbf()    '//2025.1.15
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim zr, rng As Range
   
5.     zr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
   
6.     Call hb(2, 20, zr)
   
7.     Application.ScreenUpdating = True
   
8. End Sub
   
9. 
   
10. Function hb(r1, c, zr)
    
11.     Application.ScreenUpdating = False
    
12.     Application.DisplayAlerts = False
    
13.     Dim rng As Range
    
14.     r = ActiveSheet.Cells(Rows.Count, c).End(xlUp).Row
    
15.     For i = r1 To r
    
16.         For x = 0 To UBound(zr)
    
17.             Set rng = ActiveSheet.Cells(i, zr(x))
    
18.             m = rng.MergeArea.Count
    
19.             rng.UnMerge
    
20.             rng.Resize(m) = rng
    
21.             rng.Resize(m).Borders.LineStyle = 1
    
22.         Next
    
23.     Next
    
24.     Application.ScreenUpdating = True
    
25. End Function
    

复制代码