缩写pipe理

我需要处理大量的缩写词，所以我想创build一个电子表格，所有这些缩写词都是自动sorting的，因为我在每个单元格中都input了这些缩写词。 而且，对应于这种单元的整个行必须按字母顺序移动。

我只是假设这是最好的方法，所以任何想法都会受到欢迎。

Answer 1

说我们有这样的东西：

输出编辑过程说在B列中input全文，然后在列A中input它旁边的缩写。 首先将下面的子文件放在一个标准模块中 ：

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 

然后将此事件macros放在工作表代码区域中 ：

 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 

一旦启用macros，更改列A中的单元格将导致表重新sorting。