如何用VBA移动调整列的位置

ludexin

有多列，初始时列的排序不固定，如何有序的把列逐一移动调整。
如何移动列.zip (6.4 KB, 下载次数: 45)

2019-7-17 16:28 上传

点击文件名下载附件

740688321

SQL最方便，去找资料看吧

w609053988

用字典吧，姓名、电话、地址、产品、备注装到keys，对应的值整个装到对应的items，再按照顺序取到另一个表中吧

大灰狼1976

1. Sub test()
   
2. Dim arr, i&
   
3. arr = Array("备注", "产品", "地址", "电话", "姓名")
   
4. Application.ScreenUpdating = False
   
5. For i = 0 To UBound(arr)
   
6.   Rows(1).Find(arr(i), lookat:=xlWhole).EntireColumn.Cut
   
7.    Columns(1).Insert Shift:=xlToRight
   
8. Next i
   
9. Application.ScreenUpdating = True
   
10. End Sub

复制代码

ludexin

大灰狼1976 发表于 2019-7-17 21:28

非常感谢！

Proteous

大灰狼1976 发表于 2019-7-17 21:28

这段运行的时候会出现 “运行时错误91  对象变量或With块变量未设置”
请问怎么回事？