答:我用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
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/5bafa40f4bfbfbedabede43774f0f736aec31fc5?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)