縮略語管理

Question

我需要處理大量的縮寫，所以我想創建一個電子表格，其中所有這些縮寫都是自動排序的，因爲我在每個新單元格中輸入了這些縮寫。而且，與這種單元格相對應的整行在按字母順序排列時必須一起移動。

我只是假設這是繼續進行的最佳方式，所以任何想法都會受到歡迎。

Answer 1

說我們有這樣的：

出編輯過程說，在列乙，然後在一個列中輸入全文縮寫旁邊。首位標準模塊在以下子：

Sub Macro1() 
    Dim N As Long 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    Columns("A:B").Select 
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A" & N), _ 
     SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
    With ActiveWorkbook.Worksheets("Sheet1").Sort 
     .SetRange Range("A1:B" & N) 
     .Header = xlYes 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 
End Sub 

然後把這個事件宏在表代碼區：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim A As Range 
    Set A = Range("A2:A" & Rows.Count) 
    If Intersect(Target, A) Is Nothing Then Exit Sub 
    If Target.Offset(0, 1) = "" Then Exit Sub 

    Application.EnableEvents = False 
     Call Macro1 
    Application.EnableEvents = True 
End Sub 

一旦啓用宏，改變細胞列A將導致表重新排序。