vb.net多重拆解excel数据示例

咔片PPT · AI自动生成演示文稿，模板丰富、排版精美讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

先看示例数据：

曾贤志	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行，再输出下一人。