如何使用VBA在EXCEL中批量删除整列数据并调整列的顺序？

Question

现在有一个报表大概有100+列和20000+行，

每列都有一个唯一的标题，但是其中有80列所有的数据没有用处需要删掉，但是列的相对位置并不固定，不能录制宏说要删除AFGLM列之类的。
如何写VBA让程序自动删除标题为制定内容的列？ 然后把剩下的20列按照制定顺序排列？
要删除的标题和排序的位置可以放在另一个excel文件里否

Answer 1

我的思路不一样，但结果应该是一样的
我是把要保留的列，放到新表（sheet2）里面且排序了
首先，需要将排序的位置放在sheet2的A列中，然后执行代码
Sub m()
Set dicb = CreateObject("scripting.dictionary")
For i = 1 To Sheet2.Range("A65536").End(xlUp).Row
If dicb.exists(Sheet2.Cells(i, 1).Value) = False Then
k = k + 1
dicb(Sheet2.Cells(i, 1).Value) = k + 1
End If
Next i
For i = 1 To Range("A1").End(xlToRight).Column
If dicb.exists(Cells(1, i).Value) = True Then
Columns(i).Copy Sheet2.Columns(dicb(Cells(1, i).Value))
End If
Next i
End Sub

追问

下面语句报错Run-time error ‘1004'
Columns(i).Copy Sheet2.Columns(dicb(Cells(1, i).Value))

思路很好啊，把新的表头放在了Sheet2。不知道代码性能怎么样？原始表有80M的纯数据，83列和9万3千多行，不知能几分钟处理完么？

Answer 2

删除列：

可以参考

Sub Macro1()
a = ActiveSheet.[IV1].End(xlToLeft).Column
For i = 1 To a
If Cells(1, i).Value = "删除" Then
Columns(i).Delete
End If
Next
End Sub

排序：

Sub 按【行】值_列排序()
[j1:it65536].SelectSelection.Sort Key1:=Range("J1"), _
Order1:=xlDescending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=2, _
SortMethod:=xlPinYin, _
DataOption1:=xlSortNormal
End Sub

追问

删除列的代码里面
If Cells(1, i).Value = "删除" Then
可否是另一个表中的第一列全部数据？ 符合其中任何一个即删除。

排序的代码没看懂，是否可以逐条解释下？
希望达成的目的是按照另一个表中的标题行，移动整列数据进行排序。

追答

If Cells(1, i).Value = "删除" Then
这个是判断每列的第一行的值是否是“删除”，符合就删除整一列。

列排序其实是一个宏的录制
http://club.excelhome.net/thread-597625-1-1.html
可以参考这个