Excel數據透視表自動排序

Question

我有以下3個表，它們從較大的表中提取值，並且一旦主數據發生更改，我還需要這些表以及圖表以升序自動排序。 屏幕截圖顯示，我使用以下VBA代碼對表1進行了自動排序，但由於某種原因，它在表2和3上不起作用。其他表格在此處輸入圖片描述

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("X:X")) Is Nothing Then
        Range("X4").Sort _
              Key1:=Range("X4"), _
              Order1:=xlAscending, Header:=xlYes, _
              OrderCustom:=1, MatchCase:=False, _
              Orientation:=xlTopToBottom
    End If

    If Not Intersect(Target, Range("AK:AK")) Is Nothing Then
        Range("AK4").Sort _ 
              Key1:=Range("AK4"), _
              Order1:=xlAscending, Header:=xlYes, _
              OrderCustom:=1, MatchCase:=False, _
              Orientation:=xlTopToBottom
    End If

    If Not Intersect(Target, Range("AY:AY")) Is Nothing Then
        Range("AY4").Sort _
              Key1:=Range("AY4"), _
              Order1:=xlAscending, Header:=xlYes, _
              OrderCustom:=1, MatchCase:=False, _
              Orientation:=xlTopToBottom
    End If

End Sub

歡迎任何建議更正

Answer 1

首先刪除On Error Resume Next ，它不會幫助您僅通過忽略/跳過來發現問題。 這是一個不良習慣，需要打破。

您不能僅通過將其命名為2和3來創建新的事件過程。將所有必需的代碼放在單個Change事件中。 也就是說，每張紙只有一個Change事件。