要实现部分匹配和通配符的COUNTIF函数，可以使用VBA编写代码来自定义一个函数。下面是一个示例代码：

Function CountIfWildcard(rng As Range, criteria As String) As Long
    Dim cell As Range
    Dim count As Long
    Dim wildcard As String
    
    wildcard = Replace(criteria, "*", "")
    
    For Each cell In rng
        If cell.Value Like "*" & wildcard & "*" Then
            count = count + 1
        End If
    Next cell
    
    CountIfWildcard = count
End Function

使用方法：

1. 打开Excel，按下Alt + F11打开VBA编辑器。
2. 在VBA编辑器中，选择要添加代码的工作簿。
3. 在VBA编辑器中，插入一个新的模块（如果没有）。
4. 在新的模块中，将以上代码粘贴进去。
5. 关闭VBA编辑器。
6. 返回Excel工作表，可以在任何单元格中使用CountIfWildcard函数了。

示例用法：

假设数据位于A1:A10范围内，要计算包含"abc"的单元格数量，可以在B1单元格中输入以下公式：

=CountIfWildcard(A1:A10, "abc")

这将返回包含"abc"的单元格数量。

请注意，此示例代码仅匹配一个通配符（*），如果需要支持其他通配符，可以根据实际需求进行修改。