WPS中VB編輯器的安裝

本來是因為要轉換很多個文件的列的位置，他們格式一樣，位置也一樣，就是需要轉換每個文件中列的位置，一個個操作又很麻煩，因此我在百度中發現了可以使用VBA進行操作，又由於excel里好像有VB編輯器，WPS中沒有，因此我需要自己下載

下載鏈接如下：

https://www.newasp.net/soft/456427.html

下載好一路next就行，然后重啟WPS，就會發現開發工具那里不是灰色的了

 

就說明已經安裝成功了

然后按照自己的需求，轉換列的位置，參考了百度的方法，問題示例及代碼如下：

 

 

Sub test()
Dim arr, i&
arr = Array("備注", "產品", "地址", "電話", "姓名")
Application.ScreenUpdating = False
For i = 0 To UBound(arr)
  Rows(1).Find(arr(i), lookat:=xlWhole).EntireColumn.Cut
   Columns(1).Insert Shift:=xlToRight
Next i
Application.ScreenUpdating = True
End Sub

示例和代碼主要參考網上的，鏈接注明：http://club.excelhome.net/forum.php?mod=viewthread&tid=1489014

安裝VB參考鏈接：https://blog.csdn.net/weixin_38211198/article/details/90301647