按照指定工作表中的数据顺序对另一工作表中的数据排序
发布时间：2023-05-28 13:53:21
我从数据库中导入数据到工作表，本来数据库中的数据顺序是排好了的，然而导入工作表中后数据顺序变乱了。如果在工作表中使用复制粘贴来重新恢复固定的顺序，将会花费大量的时间，能否使用VBA快速完成排序，详情如下。
下图1中“固定顺序”工作表为数据本来应该的顺序：
图1
图2中“整理前”工作表为导入数据后的顺序：
图2
可以看出，“整理前”工作表中的列顺序被打乱了，我们需要根据“固定顺序”工作表中列的顺序将“整理前”工作表恢复排序。
实现上述目的的代码如下：
Sub OrderRange()
Dim wksYesOrder AsWorksheet
Dim wksNoOrder AsWorksheet
Dim wksNew As Worksheet
Dim lngLastFixed As Long
Dim lngLastVariable As Long
Dim lngNewCol As Long
Dim i As Long
Dim SearchHeader, rng
‘赋值工作表对象
Set wksYesOrder =Worksheets(“固定顺序”)
Set wksNoOrder =Worksheets(“整理前”)
Worksheets.Add Before:=wksNoOrder
ActiveSheet.Name = “整理后”
Set wksNew =Worksheets(“整理后”)
‘获取数据区域所在的最后一列
lngLastFixed =wksYesOrder.Range(“IV1”).End(xlToLeft).Column
lngLastVariable =wksNoOrder.Range(“IV1”).End(xlToLeft).Column
‘列计数变量
lngNewCol = 1
‘遍历”固定顺序”工作表列标题
For i = 1 To lngLastFixed
SearchHeader =wksYesOrder.Cells(1, i)
‘在”整理前”工作表中查找
With wksNoOrder
Set rng =.Range(.Cells(1, 1), .Cells(1, lngLastVariable)) _
.Find(SearchHeader, LookIn:=xlValues, LookAt:=xlWhole)
‘如果找到则将该列复制到”整理后”工作表
If (Not rng Is Nothing) Then
.Cells(1,rng.Column).EntireColumn.Copy _
wksNew.Cells(1, lngNewCol)
lngNewCol =lngNewCol + 1
End If
End With
Next i
End Sub
上述代码的图片版如下：
运行代码后的结果如下图3所示：
0
投稿猜你喜欢
最近有win7用户反映，win7系统在使用打印机设备提示缺少VSPRINT7.OCX，这种情况怎么办呢？本文将提供win7系统使用打印机设备- 最近有Win7用户反映，连接无线网络的时候提示网络受限制或无连接，导致连接失败，用户反复试了好几次结果都一样，本地网络也是正常的，就是不明白
- worktile怎么用？worktile个人版解决团队成员之间的协作互动，记录和协调工作任务，连接无缝的沟通和对话，持久保存文件文档，以及随
- 在excel表中，第一行一般是标志性的，当行数太多下拉的时候可能造成看不到第一行的情况， 今天，小编就教大家在Excel中2010版进行固定
- wps页面中的表格怎么设置居中？wps中插入的表格想要设置页面居中显示，该怎么设置呢？下面我们就来看看详细的教程，很简单，需要的朋友可以参考
- 电脑打开照片闪退怎么回事？windows系统自带的照片应用打不开，打开就闪退，该怎么办嗯？下面我们就来看看Win11照片应用闪退的解决办法近
- 鉴于不同的人的实际使用习惯，尤其是因为工作或者其他游戏中，都难免会出现需要使用功能左右键互换的功能，但是很多人都不太清楚如何去设置，下面就来
- 如何在wps ppt中去掉幻灯片中的背景音乐呢? 其实设置方法很简单，wps中有个插入工能，下面小编就为你介绍wpsppt如何去掉背景音乐的
- 许多小伙伴在使用电脑的时候都会使用到打印机，而不少用户几乎都是共享一台打印机，而不少用户在使用的时候却发现0x00000bcb错误，导致无法
- 高通近日正式发布骁龙850移动计算平台，并称骁龙850专为Windows 10 ARM笔记本打造，而这也并非高通第一次进军PC。四杀PC市场
- Win8.1使用拨号上网时提示以太网没有有效的ip配置，这可能是因为专用网络中不允许使用动态IP引起的，这个时候就需要给Win8.1配置静态
- excel vba 分列多用于一般常规的分列操作完成不了的情况。Excel内置的分列，仅用于有规律的数据进行分列。比如下面的截图，这样的数据
- 外媒Guru3D汇总了一圈消息发现，Z390主板的发布定在10月8日，而9代酷睿处理器则需要等到两周后，也就是19或者20号左右发售。据悉，
- 有的小伙伴在使用电脑的时候，会突然发现开机进入桌面后键盘无法使用失灵，尝试重启后还是一样。这里小编给大家分享一下当win7系统键盘失灵怎么修
- Win10无法卸载软媒魔方怎么办？一位用户反馈说，下载了IT之家制作的Win10镜像后，电脑出现了软媒魔方和旗鱼浏览器，用户不需要使用这两款
- 我们都知道在Windows系统中，系统中有着很多Win组合键，让我们可以方便的使用，可以快捷地打开许多系统功能，但是如果在游戏中不小心按到W
- 在编辑word表格时，有时或许需要进行一些简单的计算。这项工作，你可以使用“表格”菜单中的“公式”命令(Word2003)或者“表格工具”的
- 我们都知道Win7系统任务栏缩略图的预览窗口是一个非常独特的设置，它允许用户快速准确地打开所需的窗口，使用起来非常方便，但有些用户对此预览窗
- 方法 1：搜索原文档为此，请根据您所运行的 Microsoft Windows 版本执行下列步骤。Windows Vista单击“开始”收起
- 随着WINDOWS 8及相应平板的慢慢普及，很多网友可能会遇到安装应用出错的情况，尤其网络导致下载中断，而后点击重试怎么也无法成功安装了，错
