依照第1行标题进行顺序排列

cmo9020

请教导师一下，标题是以第1行项目1为主
在执行numerical代码之前需要先进行顺序排列,
第5行 [项目2] 标题參加第1行 [項目1] 做排序
下面整列數值都需要跟著移動
代码需要怎么修改?

数据有5千笔左右，标题大约是A~Z列
现在只弄到标题排列....下面数据不知道要怎么用
希望有数值地方都能转换速度快一些

正确答案再Sheet2，谢谢....请各位导师帮忙
Test.rar (17.34 KB, 下载次数: 6)

2024-1-24 21:10 上传

点击文件名下载附件

Sub test1()
    Dim ws As Worksheet
    Dim mainTitleRange As Range
    Dim subTitleRange As Range
    Dim mainTitleArray As Variant
    Dim subTitleArray As Variant
    Dim i As Integer

    Set ws = ActiveSheet
    Set mainTitleRange = ws.Range("B1:Z1")
    Set subTitleRange = ws.Range("B5:Z5")

    mainTitleArray = mainTitleRange.Value
    subTitleArray = subTitleRange.Value

    For i = 1 To UBound(mainTitleArray, 2)
        subTitleArray(1, i) = mainTitleArray(1, i)
    Next i

    subTitleRange.Value = subTitleArray
End Sub

清风竹-

请看附件。

蓝桥玄霜

排列的例子：

cmo9020

蓝桥玄霜 发表于 2024-1-25 10:22
排列的例子：

在请教蓝教导师一下
如果第5行和第1行的单元格内容是对应不起来的话
它会显示出错数组超出索引范围

要将第1行或第5行没有相互对应的数据移动到最后面
请问这该如何修正?

答案在sheet2，谢谢您！

Test.rar (17.53 KB, 下载次数: 4)

2024-1-25 20:10 上传

点击文件名下载附件