有点甜老师 按照一楼思路我没有得以解决 但是我又不想按照分组进行统计
现在改用了关联表来实现
实现效果如下
此主题相关图片如下：1.png
但是红色部分相同的又不合并了 求解哦！
按钮代码如下：
Dim Book As New XLS.Book(ProjectPath & "Attachments\考评表.xls")
Dim fl As String = ProjectPath & "Reports\考评表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成报表
sheet = book.sheets(0)
Dim c As Integer = 1
Dim r As Integer = 1
For i As Integer = 4 To sheet.Rows.count-1
If sheet(i, 1).text = "" AndAlso sheet(i,0).text > "" Then
c = 2
End If
If sheet(i, 0).text = sheet(i+1,0).text AndAlso sheet(i, 1).text = sheet(i+1,1).text Then
r += 1
Else
output.show(sheet(i, 0).text & r & " " & c)
If c = 2 Then
sheet.MergeCell(i-r+1, 0, r, c)
End If
c = 1
r = 1
End If
Next
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2017/8/1 12:31:09编辑过]
加好友 
发短信
Post By：2017/8/1 11:03:00 [显示全部帖子]
