摘要： 我从数据库中导入数据到工作表，本来数据库中的数据顺序是排好了的，然而导入工作表中后数据顺序变乱了。如果在工作表中使用复制粘贴来重新恢复固定的顺序，将会花费大量的时间，能否使用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(“整理后”)
如何将一个文本文件中满足指定条件的内容筛选到另一个文本文件中？
Q：如下图1所示，一个名为“InputFile.csv”文件，每行有6个数字，每个数字使用空格分隔开。 图1 现在，我要将以60至69开头的行放置到另一个名为“OutputFile.csv”的文件中。图1中只是给出了少量的示例数据，我的数据有几千行，如何快速对这些数据进行查找并将满足条件的行复制到新文件中？
‘获取数据区域所在的最后一列
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所示：
excel图表绘制双层面板折线图
介绍过几个绘制面板图的示例。这里，再来学习一下绘制面板图的基本技巧 示例使用的数据如下图1所示。 图1 选择数据区域A1:C7，绘制折线图如下图2所示。 图2 选择“次坐标轴”数据系列中，单击右键，在快捷菜单中选取命令“设置数据系列格式”命令，如下图3所示。 图3 选择将数据系列绘制在“次坐标
