Excel使用列表对列进行重新排序

玛丽

我想使用在M1到M10中的值的列表对excel中的某些列进行重新排序,这些值具有标题的名称和应对其进行排序的顺序。

我有使用以下脚本的脚本:

v = Array("First Name", "Middle Name", "Last Name", "Date of Birth", "Phone Number", "Address", "City", "State", "Postal (ZIP) Code", "Country")

但是当我更改为

v = Range("m1:m10").Value

它不起作用,给出以下消息:

下标超出范围。

这是完整的代码:

Sub Reorganize_columns()
' Reorganize Columns Macro
'
' Developer: If you want to know, please contact Winko Erades van den Berg
' E-mail : winko at winko-erades.nl
' Developed: 11-11-2013
' Modified: 11-11-2013
' Version: 1.0
''v = Array("First Name", "Middle Name", "Last Name", "Date of Birth", "Phone Number", "Address", "City", "State", "Postal (ZIP) Code", "Country")
' Description: Reorganize columns in Excel based on column header

Dim v As Variant, x As Variant, findfield As Variant
Dim oCell As Range
Dim iNum As Long


v = Range("m1:m10").Value
For x = LBound(v) To UBound(v)
findfield = v(x)
iNum = iNum + 1
Set oCell = ActiveSheet.Rows(1).Find(What:=findfield, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Not oCell.Column = iNum Then
Columns(oCell.Column).Cut
Columns(iNum).Insert Shift:=xlToRight
End If
Next x
End Sub
SJR

您需要findfield = v(x,1)将范围内的数组自动设为2D。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

使用Excel公式对列进行排序和重新排序

如何使用C#互操作对Excel中的列进行重新排序

如何使用Powershell对Excel列进行排序

Python在排序后对列表列表进行重新排序

如何对下拉列表进行重新排序(jquery)

按列对列表进行排序

在Excel中对列进行排序

在列表列表中对列表元素进行重新排序

使用给定的输入列表对DataFrame列进行排序

仅使用一列对嵌套列表进行排序

使用列值python对excel文件进行排序

Pandas df根据整数索引列表对行和列进行重新排序

在C#中交替对列表进行排序或重新排序

Python:对csv文件的列进行重新排序

重新对各行的Bootstrap 3列进行排序

以随机顺序对列进行重新排序

使用隔离对列表进行排序

使用python对列表进行排序

如何使用选择框和敲除对可观察数组进行排序并重新绑定到列表

通过提取类别名称使用jQuery对列表项进行重新排序

使用do.call和gridExtra对ggplots列表进行重新排序

使用由两个列表排序产生的排序来对第三列表进行排序?

使用分段控件对表进行重新排序

如何在pentaho中使用csv输入固定列对列进行重新排序

在DataGridView中对列进行重新排序,然后使用隐藏列读取DisplayIndex

如何使用jQuery重新排序列表

使用 Excel 2016 按第三个类别列表对两个费用列表进行排序和排序

Excel自定义列表对数据透视表的数据透视字段(列)进行排序

如何防止Angular在编辑时对列表进行重新排序?