标签:就会 网上 编辑器 需求 一个 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
标签:就会 网上 编辑器 需求 一个 column array 转换 get
原文地址:https://www.cnblogs.com/z12568/p/12131438.html