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