excel - 根据另一列顺序对列进行排序
问题描述
我有两列 A 和 B,我想根据 B 值的顺序对 A 进行排序。我想做这个 VBA
*11000000 11750020
11020150 11050010
11000002 11520090
i want this result;
11750020 11750020
11050010 11050010
11520090 11520090
*
enter code here
Dim SortByCol As Range
Dim ToSortCol As Range
Set SortByCol = ThisWorkBook.Worksheets("sheet1").Columns("B")
Set ToSortCol = ThisWorkBook.Worksheets("sheet1").Columns("A")
Dim SortRange As Range
Set SortRange = ThisWorkBook.Sheets("sheet1").Range("D1")
Union(SortByCol, ToSortCol).Copy SortRange
Set SortRange = SortRange.CurrentRegion
With SortRange.Parent.Sort
.SortFields.Add Key:=SortRange.Range("A" & SortRange.Rows.Count),
SortOn:=xlSortOnValues, DataOption:=xlSortNormal
.SetRange SortRange
.Header = xlYes
.MatchCase = True
.Orientation = xlTopToBottom:
'.SortMethod = xlPinYin
.Apply
End With
SortRange.Columns(2).Copy ToSortCol
SortRange.Clear
解决方案
推荐阅读
- python - AES_ENCRYPT() 和 AES_DECRYPT 无法正常使用 xampp 服务器和 python 烧瓶将值存储在 mysql 中
- ios - 在 xCode 项目中获取“源文件中的编辑器占位符”
- html - HTML src 未正确更改
- python - 有没有办法使用 *args,在函数中动态获取我想要的尽可能多的输入?
- c# - 提取大量 PDF 文件的最佳方法?
- r - Error in either `/` or round functions from base R
- pyspark - Confusion on types of Spark RDDs
- powershell - 是否可以过滤结果并分配给变量?
- mysql - MySQL 将 1 列 VARCHAR 分成 2 列 INT 类型。我有错误 1292 截断不正确的 DOUBLE 值
- angular - Conditional input with name attribute result to undefined