我的思路不一樣，但結果應該是一樣的

我是把要保留的列，放到新表（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