两个表，只有一列数据中的部分关键词相同，如何用VBA函数，实现这两个函数精准匹配，如何把表二的这个关键词相同的一列，根据关键词统计好数量，然后将数量匹配到表一呢？

可以使用 VBA 中的循环语句和字符串处理函数来实现部分关键词匹配和统计数量。具体实现方法如下：

1. 定义两个表的数据范围，可以使用 A1 记法指定范围，如 "Sheet1!A2:A10"。

2. 在 VBA 中定义两个数组来保存关键词和对应数量，如：

Dim keywords() As String
Dim counts() As Integer

ReDim Preserve keywords(0 To 9)
ReDim Preserve counts(0 To 9)

' 数组维度根据数据大小进行调整，这里假设最多有 10 个关键词

3. 循环遍历表一中的每一行数据，在关键词列中查找与表二匹配的关键词，如：

For Each cell In Range("Sheet1!B2:B10")
keyword = cell.Value
' 关键词匹配，找到对应的数量
' ...
Next

4. 在关键词匹配的过程中，需要使用字符串函数来判断是否匹配成功，如：

If InStr(1, keyword, "hello") > 0 Then
' 匹配成功
End If

5. 如果匹配成功，需要在关键词数组中查找对应的位置，如果不存在则加入新的关键词和数量，否则在数量数组中加上对应的值，如：

For i = 0 To UBound(keywords)
If keywords(i) = keyword Then
counts(i) = counts(i) + 1
Exit For
End If
If keywords(i) = "" Then
keywords(i) = keyword
counts(i) = 1
Exit For
End If
Next

6. 最后将统计的数量匹配到表一中对应的行，如：

For i = 0 To UBound(keywords)
For Each cell In Range("Sheet1!B2:B10")
If cell.Value = keywords(i) Then
cell.Offset(0, 1).Value = counts(i)
End If
Next
Next

注意：以上是一种基础的实现方案，具体代码需要根据具体的数据格式和需求进行调整和优化。