如果是筛选,这样写
Tables("表A").Filter = "第一列 like '烘%'"
如果是字符串比较,这样写
Dim str As String = "aabbcc"
If str Like "烘*" Then
End If