经验直达：
- B列和C列自动排列组合
- wps工作表排列组合求重叠单元格
一、B列和C列自动排列组合
答：我用VBA写了一小段代码实现了上述功能 。要运行宏，可参阅WPS运行宏的方法 。
Sub Demo()
Dim FirstRow As Long, LastRow As Long, i As Integer, j As Integer
Dim Cell As Range, DesRng As Range
Set DesRng = Range("D2")
For Each Cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23)
FirstRow = Cell.Row
LastRow = Cell.End(xlDown).Row - 1
If Cell.End(xlDown).Row = Cells.Rows.Count Then
LastRow = Application.Max(Cells(Rows.Count, "B").End(xlUp).Row, Cells(Rows.Count, "C").End(xlUp).Row)
End If
For i = FirstRow To LastRow
If Not IsEmpty(Cells(i, "B")) Then
For j = FirstRow To LastRow
If Not IsEmpty(Cells(j, "C")) Then
DesRng = Cell & " " & Cells(i, "B") & " " & Cells(j, "C")
Set DesRng = DesRng.Offset(1, 0)
End If
Next j
End If
Next i
Next
MsgBox "转换完成", vbInformation, "提示"
End Sub
【wps工作表排列组合求重叠单元格 B列和C列自动排列组合】
二、wps工作表排列组合求重叠单元格
正确答案如下，我编程得到的 。
Sub a()
For i = 1 To 10
For j = 1 To 10
If i <> j Then
s = 0
For k = 2 To 11
If Cells(j, k) <> "" And WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 11)), Cells(j, k)) > 0 Then
s = s1
If s > 3 Then Exit For
End If
Next k
If s = 2 Then
Cells(2, i13) = Cells(2, i13) & Cells(j, 1)
ElseIf s = 3 Then
Cells(3, i13) = Cells(3, i13) & Cells(j, 1)
End If
End If
Next j
Next i
End Sub