Question

您好，我正在尝试创建一个宏，以便更轻松地对从机器人导出的数据进行排序

麻烦的是，由于机器人进行测试的方式，列可能会更改位置

许多列都是无用的，所以我做了一个宏来隐藏未使用的列，现在我想添加一个宏，该宏按升序对其余的4列进行排序，但我无法破解

到目前为止我有

Dim c As Range

For Each c In Range("A1:BR1").Cells
    If c.Value = "Plate Name (barcode)" Or c.Value = "Measurement Date" Or c.Value = "Measurement profile" Or c.Value = "pH" Or c.Value = "Count" Or c.Value <= 30 Then
    c.EntireColumn.Hidden = False
    Else: c.EntireColumn.Hidden = True
    End If
    Next c
End Sub

除了已命名的列之外，哪一列都隐藏了，但此后我无法对数据进行排序

我尝试过查找列/选择列并进行排序，但是由于某种原因，宏似乎在运行而不是实际排序

也尝试记录宏，但是随着列的移动，代码会不断定义要排序的列，例如“ D：D”或“ AB：AB”，但是它可能并不总是出现在这些列中，因此我需要搜索标题然后进行排序

任何帮助将不胜感激！

Answer 1

看看这样的事情是否对您有用...

代码假定数据集之间没有空白列。

Sub SortColumns()
Dim i As Long, j As Long, lc As Long
Dim vKeys()
lc = ActiveSheet.UsedRange.Columns.Count
For i = lc To 1 Step -1
    If Columns(i).Hidden = False Then
        j = j + 1
        ReDim Preserve vKeys(1 To j)
        vKeys(j) = Cells(2, i).Address
    End If
Next i
'vKeys(4) --> First visible column from left
'vKeys(3) --> Second visible column from left
'vKeys(2) --> Third visible column from left
'vKeys(1) --> Fourth visible column from left
Range("A1").CurrentRegion.Sort key1:=Range(vKeys(4)), order1:=xlAscending, key2:=Range(vKeys(3)), order2:=xlAscending, key3:=Range(vKeys(2)), order3:=xlAscending, Header:=xlYes
Range("A1").CurrentRegion.Sort key1:=Range(vKeys(1)), order1:=xlAscending, Header:=xlYes
End Sub

在VBA中查找列并进行排序

1 个答案: