|
卡,就别用了,麻烦得很嘞,用代码,- Sub s() '書生答题专用
- Set d = CreateObject("scripting.dictionary")
- ar = Application.InputBox("请选择数据区域:", "小書生提:", "框选数据区域", , , , , 8)
- Set dr = Application.InputBox("请选择数据输出首个单元格:", "小書生提:", "首个单元格", , , , , 8)
- For Each r In ar
- If r <> "" Then
- d(r) = d(r) + 1
- End If
- Next
- br = Application.Transpose(Array(d.keys, d.items))
- For i = UBound(br) To 1 Step -1
- For j = 1 To i - 1
- If br(j, 2) < br(j + 1, 2) Then
- m1 = br(j, 1): m2 = br(j, 2)
- br(j, 1) = br(j + 1, 1)
- br(j, 2) = br(j + 1, 2)
- br(j + 1, 1) = m1
- br(j + 1, 2) = m2
- End If
- Next
- Next
- dr.Resize(1, UBound(br)) = Application.Transpose(br)
- End Sub
- '-----不管售后的書生
复制代码
|
评分
-
1
查看全部评分
-
|