先看示例数据：

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

第一重拆解：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