替换列标题并从左到右对其进行排序

cplus

我有以下标题和列:

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] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

如何从左到右对列进行排序?

在Google表格中从左到右对列进行排序

按标题名称对列进行排序

按列标题对SQL结果进行排序?

MySQL如何从左到右对行进行排序

DataTable通过在列中从左到右读取来对数字进行排序

在列中找到唯一值,然后对其进行排序

如何按列值的计数分组并对其进行排序?

熊猫在列中合并字符串并对其进行排序

ag-grid:获取对其进行排序的列的列表

如何根据其列内容对DataGridView进行排序?

取出多维数组的一列并对其进行排序?

根据 perl 中的标题对 CSV 列值进行排序

QML如何仅通过单击列标题对tableView进行排序

对列进行排序并在排序后对其进行自定义

按高度从左到右对分组 geom_bar 进行排序

替换列标题

如何将列表与数据框列标题进行比较并替换标题的名称?

如何使用所有可用标题的列表根据标题对列进行排序?

WPF DataGrid列标题排序箭头在更改其视图集合源后消失

如何从2个不同的表中进行选择并按一列对其进行排序?

在“设计”中添加“时间”列,并从Rails 4中的控制器手动对其进行更新

MySQL似乎在if语句更改列的值之前对行进行排序,我需要在值更改后对其进行排序

DataGrid-根据其自身的值对列进行排序,其次基于其他列的值?

如何在 Ext Js 6.5.2 的网格标题列菜单中对“列”进行排序

通过单击带有自动生成的列和IEnumerable ItemsSource的列标题DataGrid对行进行排序

按标题名称对列进行排序,但如果标题名称不存在,则按其他标题名称排序

对行进行排序,并以相同的排序顺序对其进行分组

首先用元音按其单个字符名称对列进行排序