先看示例数据：

曾贤志

1月-优、2月-良、5月-优、9月-中

兰瑞媛

3月-中、5月-中、10月-良、11月-良

罗娟

2月-优、4月-优、8月-优、12月-中

要处理以上数据，必须先进行多重拆解。

第一重拆解：1月-优，要拆解成1 和优

 Sub 拆解(gg As String, ByRef a As String, ByRef b As String)        Dim gg2 = gg.Split("-")        If Len(gg2(0)) = 2 Then a = gg2(0).Substring(0, 1)        If Len(gg2(0)) = 3 Then a = gg2(0).Substring(0, 2)        b = gg2(1)    End Sub

本sub函数要把gg变量拆解成a和b两个字符串，使用了Byref传址方式。

Dim gg2 = gg.Split("-"),这句把gg"1月-优"通过"-"分割符拆解成数组gg

gg2(0)="1月",gg2(1)="优"

If Len(gg2(0)) = 2 Then a = gg2(0).Substring(0, 1)If Len(gg2(0)) = 3 Then a = gg2(0).Substring(0, 2)

这两句通过1月的长度来检测，如果是2表示月份只1位，那么a=gg2(0).Substring(0, 1)

Substring(0, 1)表示从第0位取1位，也就是从“1月”中取得1，如果月分2位，就会取得10、11、12

Sub 拆解(gg As String, ByRef a As String, ByRef b As String)把gg拆成了a和b

第二重拆解：拆解“1月-优、2月-良、5月-优、9月-中”成12个月的字符串数组

    Sub 拆等级(grade As String, ByRef sz() As String)        Dim gg = grade.Split("、")        For i = 1 To 12            sz(i - 1) = "差"        Next        Dim a, b As String        For i = 0 To UBound(gg)            拆解(gg(i), a, b)            sz(CInt(a) - 1) = b        Next    End Sub

For i = 1 To 12            sz(i - 1) = "差"        Next  

以上代码中，先生成12个月，每月都是“差”，相当于预先把12个都补齐数据了

For i = 0 To UBound(gg)            拆解(gg(i), a, b)            sz(CInt(a) - 1) = b        Next

然后把其他优、良的月分对应装入就完成了。这个算法有个名称叫鸽巢算法。就是每个鸽子飞进各自巢穴，这样可以避免排序。

第三步：输出等级。

    Sub 输出等级(uname As String, grade As String, ws As Object, r As Int32, c As Int32)        Dim i As Integer        Dim sz(12) As String        拆等级(grade, sz)        For i = 0 To 11            ws.cells(r + i, c) = uname            ws.cells(r + i, c + 1) = CStr(i + 1) + "月-" + sz(i)        Next    End Sub

输出就简单了，就是把uname姓名和拆解后的grade，依次向ws表的r行c列写入，共12 行。

第四步：主控制程序：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click        Dim ws = (New excel).activesheet        Dim arr = ws.Getgrid("A2:B4")        Dim uname, grade As String        Dim k As Integer = 2        For i = 1 To UBound(arr)            uname = arr(i, 1)            grade = arr(i, 2)            输出等级(uname, grade, ws, k, 7)            k = k + 12        Next    End Sub

arr数组获取"A2:B4的数据，For i = 1 To UBound(arr)从第1行开始循环共3行

uname = arr(i, 1)获取姓名

grade = arr(i, 2)获得等级串

输出等级(uname, grade, ws, k, 7)，从k=2行7列开始输出等级，共12 行

k = k + 12，输出行向下移动12行，再输出下一人。

总结：

坚持自下而上的设计方式，先从细节做起，功能越做越大，越来越复杂。

每一个小功能小而精，我上面示例每个基本不超过10行，相比网上那些动辄一满屏幕的拖拉机代码，更清楚更好调试和后期修改维护，代码的重复利用率更高。

VBA代码比VBNET更繁琐，基本设计思路都可以用于VBA,VB6