excel如何不重复分组
发布网友
发布时间:2022-05-09 17:04
我来回答
共3个回答
热心网友
时间:2023-10-09 20:34
对地区这列排序,c2
=countif(b$2:b2,b2)
下拉复制公式,选择c列复制,在原位选择性粘贴,选数值删除公式,对列排序。对表格下部略作调整,由于地区公司不一样多。
或者将c2公式改为,
=countif(b:b,b2),再选择性粘贴转换为值,再对c列降序排序,根据公司总数,按5个一组可以分多少个组。假如是16个组,在d2开始输入序列1至16,选择这一序列,再下拉复制序列,再对d列升序排列即可。
热心网友
时间:2023-10-09 20:34
Sub LKJLK()
Set d = CreateObject("scripting.dictionary")
xr = [b65536].End(3).Row
For i = 2 To xr
If d.Count = 5 Then
d.RemoveAll
Rows(i & ":" & i).Insert
i = i + 1
ss = ss + 1
End If
aa = Cells(i, 2)
If d.Exists(aa) Then
bb = Application.RandBetween(i + 1, xr + ss)
Rows(i & ":" & i).Cut
Rows(bb & ":" & bb).Select
Selection.Insert Shift:=xlDown
i = i - 1
Else
d(aa) = ""
End If
Next
End Sub
热心网友
时间:2023-10-09 20:34
使用辅助列,符合的输1\2\3\4\5,排序,这样得到一组符合的。
后面输入公式=IF(COUNTIF(B3:B7,B7)>1,ROW()+2,ROW())下拉到底,多次排序。