Option Explicit
Type cwType
xh As Integer
xz As String
cw As String
sl As Integer
End Type
Sub test()
Debug.Print GetChaoShiTable(ActiveSheet)
End Sub
Function GetChaoShiTable(sht)
Dim i, cwArr() As cwType, count, j, tableContent
count = 0
For i = 3 To sht.UsedRange.Rows.count
If InStr(sht.Cells(i, "A"), "汇总") = 0 And InStr(sht.Cells(i, "A"), "总计") = 0 And sht.Cells(i, "J") <> 0 Then
count = count + 1
ReDim Preserve cwArr(1 To count)
Dim tempcw As cwType
With tempcw
.xz = sht.Cells(i, "A")
.cw = sht.Cells(i, "B")
.sl = sht.Cells(i, "J")
End With
cwArr(count) = tempcw
End If
Next
'排序
For i = LBound(cwArr) To UBound(cwArr)
For j = i + 1 To UBound(cwArr)
If cwArr(i).sl < cwArr(j).sl Then
Dim temp As cwType
temp = cwArr(i)
cwArr(i) = cwArr(j)
cwArr(j) = temp
End If
cwArr(i).xh = i
Next
Next
'生成字符串
tableContent = ""
count = 0
For i = LBound(cwArr) To UBound(cwArr)
count = count + 1
If count > 10 Then Exit For
tableContent = tableContent & "<tr>" & vbCrLf
tableContent = tableContent & vbTab & "<td>" & cwArr(i).xh & "</td>" & vbCrLf
tableContent = tableContent & vbTab & "<td>" & cwArr(i).xz & "</td>" & vbCrLf
tableContent = tableContent & vbTab & "<td>" & cwArr(i).cw & "</td>" & vbCrLf
tableContent = tableContent & vbTab & "<td>" & cwArr(i).sl & "</td>" & vbCrLf
tableContent = tableContent & "<tr>"
Next
GetChaoShiTable = tableContent
End Function
