excel - VBA 自动排序与单元格中的公式

Question

我正在尝试创建一个 2 列表，当对单元格进行更改时，该表会根据 B 列中的条目数自动对 A 列中的关键字类别进行排序。目标是为 GMAT 准备创建一个错误日志，我可以在其中快速查看错误条目中的常用关键字。

该表如下所示： 关键字表

到目前为止，这是我的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Range("B1").Sort Key1:=Range("B2"), _
          Order1:=xlDescending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
    End If
End Sub

我似乎遇到了麻烦，因为 B 列中的单元格由捕获其他工作表上的条目的公式组成。

有没有人知道我保留这些公式并让表格根据结果值自动排序的方法？

非常感谢！我难住了。

标签： excelvbasorting