主题：[求助]求大神帮我写下授权代码

1、

Dim name As String = "王麻子"
For Each r As Row In Tables("授权").Rows
    Dim str As String = r("用户")
    str = System.Text.RegularExpressions.Regex.Replace(str, ",*?" & name & ",*?", "")
    r("用户") = str
Next