Excel-如果特定单元格发生更改，则按列自动排序

Question

我在Excel（2010）中有一个可刷新的报告。 单元格S3包含一个唯一的8位数字，每次刷新报告时该数字都会不同。 第1和2行只是标题和其他信息； 实际数据从第3行向下返回

我想做的是让报告自动将第3行中的所有数据按F列从AZ向下排序（如果有意义的话，所有相邻数据以及它们各自的行，如果有意义的话）。单元格S3曾经改变过。

在VBA中可以吗？

非常感谢。

Answer 1

您可以像这样使用Worksheet_Change事件：

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
    If Target.Column = 19 And Target.Row = 3 Then 
      Dim lastrow As Long
      lastrow = Cells(Rows.Count, 2).End(xlUp).Row
      Range("A3:F" & lastrow).Sort key1:=Range("F3:F" & lastrow), _
           order1:=xlAscending, Header:=xlNo
    End If 
End Sub

有关排序，请参见此处 。 然而：

当单元在重新计算期间发生更改时，不会发生此事件。 使用Calculate事件可以捕获工作表重新计算。

如果需要检查由重新计算引起的值更改，则必须将S3单元格的旧值存储在变量中，并将此旧值与新值进行比较。 看到这个答案 。