VBA 统计Merge合并格

On_fire

VBA 统计Merge合并格

*

Sheet1.Range(“J9:U21”)源数据的指定区域

*

代码逻辑,

在H列输出同行右侧合并格的累加值 = 统计同行右侧区域内的”Merge单元格”数量

*

模拟过程在sheet1(2), 模拟结果在sheet1(3)

*

已找到一个参考, 但还看不明白…

恳神大神老师出手帮忙…谢谢!!!

高个子

1. Sub kdy()
   
2.     Range("J9:U21").FormulaR1C1 = "1"
   
3.     s = 0
   
4.     For i = 9 To 21
   
5.         For j = 1 To 12
   
6.             If Cells(i, j + 9) = "" And Cells(i, j + 8) <> "" Then
   
7.                 s = s + 1
   
8.             End If
   
9.         Next
   
10.         Range("i" & i) = s
    
11.         s = 0
    
12.     Next
    
13. End Sub
    

复制代码

这个和mergearea没关系

On_fire

高个子 发表于 2022-11-19 16:56
这个和mergearea没关系

谢谢老师,
真实的源数据是有资料的, 不是空格,
不能这样赋值1之后, 再统计…

高个子

我随便写了个1，发现你原来应该有数据的，我假设你的单元格都是真合并的（也就是除了合并单元格第一个有数据其他都没有数据），假合并（除了合并单元格第一个有数据其他可能也有数据）代码就不是这样了。。

高个子

On_fire 发表于 2022-11-19 17:08
谢谢老师,
真实的源数据是有资料的, 不是空格,
不能这样赋值1之后, 再统计…

Sub kdy()
    s = 0
    For i = 9 To 21
        For j = 1 To 12
            If Cells(i, j + 9) = "" And Cells(i, j + 8) <> "" Then
                s = s + 1
            End If
        Next
        Range("i" & i) = s
        s = 0
    Next
End Sub

准提部林

MergeArea.count 就是組成單元格數量

高个子

On_fire 发表于 2022-11-19 17:08
谢谢老师,
真实的源数据是有资料的, 不是空格,
不能这样赋值1之后, 再统计…

赋值1只是为了测试代码，真实情况可以删掉第二行

On_fire

高个子 发表于 2022-11-19 17:12
赋值1只是为了测试代码，真实情况可以删掉第二行

谢谢老师,
也不对, 请您看看文件… 可能是您说的假合并吧?

On_fire

准提部林 发表于 2022-11-19 17:11
MergeArea.count 就是組成單元格數量

老师,
这是上次你解那题的另一个问…
请你看看吧? 8楼的文件有数据...

高个子

On_fire 发表于 2022-11-19 17:30
谢谢老师,
也不对, 请您看看文件… 可能是您说的假合并吧?

原来是有空的没有合并的单元格，看来必须得用MergeArea.Columns.Count了

1. Sub kdy1()
   
2.     s = 0
   
3.     For i = 9 To 21
   
4.         For j = 1 To 12
   
5.             If Cells(i, j + 9) = "" And Cells(i, j + 8) <> "" And Cells(i, j + 9).MergeArea.Columns.Count > 1 Then
   
6.                 s = s + 1
   
7.             End If
   
8.         Next
   
9.         Range("i" & i) = s
   
10.         s = 0
    
11.     Next
    
12. End Sub

复制代码