码迷,mamicode.com
首页 > 其他好文 > 详细

WPS中VB编辑器的安装

时间:2020-01-02 09:30:57      阅读:490      评论:0      收藏:0      [点我收藏+]

标签:就会   网上   编辑器   需求   一个   column   array   转换   get   

本来是因为要转换很多个文件的列的位置,他们格式一样,位置也一样,就是需要转换每个文件中列的位置,一个个操作又很麻烦,因此我在百度中发现了可以使用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

WPS中VB编辑器的安装

标签:就会   网上   编辑器   需求   一个   column   array   转换   get   

原文地址:https://www.cnblogs.com/z12568/p/12131438.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!