excel - 用于在连字符后分隔文本字符串的结构化表格公式

Question

我正在尝试找到一个 oneliner VBA 代码，该代码将使用结构化表引用来编辑作为“美利坚合众国 - 美国”给出的列中的值。目的是删除连字符 (-) 之前的所有内容，只剩下“USA”部分。到目前为止我写的代码如下：

Dim Rng As Range
Dim Cell As Range
Set Rng = Range("CNSTime[[#Data],[Country]]")
    For Each Cell In Rng
    Cell.Value = Right(Cell, Len(Cell) - InStr(Cell, "-") - 1)
Next Cell
End

任何可以帮助使用单行结构化公式替换此代码的人，例如：

Range("CNSTime[[#Data],[Country]]").formula = xxxxxxxxxxxxxx

我的表名是 CNSTime Set CNSTime = ActiveSheet.ListObjects("CNSTime")，我要修复的列的标题是 Country。