比较单元格并交换数据

Question

我是VBA-excel的初学者，并且卡在一件事上。 我试图让我的两列每次都按降序排列 我改变了它的数据。因为我只有两列，我想我可以比较单元格，并在左边的单元格中进行交换。

以下是我制作的代码，但根本不起作用。 你能告诉我哪些部分我犯了错误吗？ 另外，如果您有任何方法对数据进行排序，我将非常感激 每当我更新它们时。

提前谢谢。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim temp As String
If Cells(Target.Row, 7).Value < Cells(Target.Row, 8).Value Then
temp = Cells(Target.Row, 8).Value
Cells(Target.Row, 8).Value = Cells(Target.Row, 7).Value
Cells(Target.Row, 7).Value = temp
End If
End Sub