求大佬帮忙写个VB代码

[咕噜丶曌曌]

求大佬帮帮忙，写个代码具体要求如下：

1、要在F2-5自动表达出整个A列所有数据的总和，A B C D 为合并单元格；
比如明日 F2-5，F3-7，F4-9，F5-3
单行可提取可以直接用公式完成，但对合并单元格或多行数据提取做不到。
麻烦大佬帮忙写个简单点的，因为希望这个代码可以通过简单的修改，让每个同事都能受益。

[脆皮大雪糕]

为啥要合并单元格，解除合并，把A列拉宽就行了呗，或者修改单元属性，文字自动换行啥的就行了。 VBA最大的敌人就是特么单元格合并。真特么烦人。

[milaoshu1020]

写好了 ,这个函数的用法跟Excel内置函数(比如SUM)差不多:

Option Explicit

Public Function GetKeyCount(ByVal objRange As Range, ByVal objKey As Range) As Integer
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.ignorecase = True
    reg.Pattern = objKey.Value
    
    Dim strInput As String
    strInput = ""
    
    Dim objSubRange As Range
    For Each objSubRange In objRange
        If objSubRange.Value <> "" Then
            strInput = strInput & objSubRange.Value & vbCrLf
        End If
    Next
    
    Dim colMatches As Object
    Set colMatches = reg.Execute(strInput)
    
    GetKeyCount = colMatches.Count
End Function

下载地址:
链接：https://pan.baidu.com/s/1HiFYjmHzeOKAx_9XNnUIZA
提取码：64iz

运行示例:

[咕噜丶曌曌]

谢谢了！已经解决好问题！