在编程语言长长的鄙视链中，甚至找不到vba的影子，大概是只能处理微软旗下软件的嵌入式开发环境导致。
但它作为非程序员的工具，以及作为编程入门还是很不错的，尤其是与excel表格的衔接，让枯燥的数据工作增加了点想象力。
公司准备上erp系统，需要整理出一份材料编码，分给部门一部分任务，编程在处理大量重复性操作优势很明显，但是一些简单的数据还是复制粘贴方便，这个任务用手工操作大约半个小时可以完成，但我有点时间，就花了两个小时用vba做了出来。
大约八张表，将数据汇总到一张表格中，其中的名称与型号是在一个单元格中的，大部分名称与型号中间是"-"号，少部分是"/"号，还有没有型号的，估计还有别的，没兴趣细看了。
先说用手工操作的方法:
好吧，复制粘贴，复制粘贴，重复八次，注意表头，不注意也没关系，粘好后删了就是。
用excel自带的分列功能可以处理大部分，中间是-符号的分列，分好后，再处理/符号的分列，没多少需要处理的了，用眼睛过一遍，逐个调整，调整格式，完成。
用vba处理方法:
循环读取除了汇总表的所有表数据，将表的名称连同除了汇总表的的数据写入汇总表(不要表头)，用正则表达式拆分名称与型号，真正耗时间的地方就在这里，想了很久，用了两层正则表达式清洗数据(估计是正则没入门)，才解决问题。后续手工调整一下格式，完成。
手工与vba对比:
excel中的内置功能足够强大，虽然从事数据工作一段时间就能了解大部分功能，但深入下去总有种知道的只是冰山一角的感觉，比如数据透视表的sql语句，query等功能，想说会excel并不容易。所以即使不会vba，也有很多清洗数据的办法。
而编程毕竟擅长的是重复与批量性的操作任务，比如100张表的汇总，当然熟悉透视表也能完成，但只会复制粘贴，总有粘到想吐的感觉。
vba与python语言对比:
这方面确实没什么发言权，原因是水平吧，vba的水平大概在初级阶段，而python还在入门阶段挣扎，所以只是说说感觉。
vba中的类功能，虽然好像用处挺大的，但日常工作好像用不到这么高级的功能，对库的用法目前只用了字典，正则表达式，word库。
而python学习中，类是起点，各种包的调用，才能做出一点不那么有趣的实例，上限太高了，目前的目标是先学会简单的爬虫。
代码如下，没什么特别的都是中规中矩的用法。
Option Explicit
Sub 配件汇总()
Dim wk As Worksheet, rng As Range, cot%
[a1:f1] = Array("分类", "名称", "规格", "单位", "名称", "编码")
For Each wk In ThisWorkbook.Worksheets
If wk.Name <> Worksheets("汇总").Name Then
cot = Application.CountA(wk.Range("b:b"))
For Each rng In wk.Range("b2:b" & cot)
rng.Resize(1, 3).Copy Worksheets("汇总").[b63356].End(xlUp).Offset(1, 0)
[b63356].End(xlUp).Offset(0, -1) = wk.Name
Next
End If
Next
Call 名称编码整理
Call 名称编码整理2
End Sub
Sub 名称编码整理()
Dim reg As Object, rng As Range, n%, mat, m
Range("e2:f63356").ClearContents
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.ignorecase = True
.Pattern = "(-|/).+"
For Each rng In Range("b2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
n = n + 1
Cells(n + 1, 5) = .Replace(rng.Value, "")
Set mat = .Execute(rng)
For Each m In mat
Cells(n + 1, 6) = m
Next
Next
End With
End Sub
Sub 名称编码整理2()
Dim reg As Object, rng As Range, n%
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.ignorecase = True
.Pattern = "[-/]"
For Each rng In Range("f2:f" & Cells(Rows.Count, 1).End(xlUp).Row)
n = n + 1
Cells(n + 1, 7) = .Replace(rng.Value, "")
Next
End With
End Sub
网友评论