我有以下标题和列:
A B C D
H1 H2 H3 H4
a2 b2 c2 d2
a3 b3 c3 d3
a4 b4 c4 d4
a5 b5 c5 d5
a6 b6 c6 d6
a7 b7 c7 d7
首先,我想通过从另一张纸上进行复制/粘贴来替换标题:
替换A1:A4之后,将类似于以下内容:
A B C D
Table ID Order Price
a2 b2 c2 d2
a3 b3 c3 d3
a4 b4 c4 d4
a5 b5 c5 d5
a6 b6 c6 d6
a7 b7 c7 d7
现在,一旦完成替换,我将需要按字母顺序从左到右(A到Z)对列进行排序。结果是:
A B C D
ID Order Price Table
b2 c2 d2 a2
b3 c3 d3 a3
b4 c4 d4 a4
b5 c5 d5 a5
b6 c6 d6 a6
b7 c7 d7 a7
如何使用VBA代码实现这一目标?谢谢
您可以使用以下代码来完成此操作,假设其中有数据Sheet1
并且存储在中的新标题Sheet2
:
Sub replace_sort_headings()
Dim Sheet As Worksheet
Worksheets("Sheet2").Range("A1:D1").Copy
Worksheets("Sheet1").Range("A1:D1").PasteSpecial xlPasteValues
Worksheets("Sheet1").Range("A:D").Sort Key1:=Worksheets("Sheet1").Range("A1:D1"), Order1:=xlAscending, Orientation:=xlLeftToRight
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句