level 9
实际上，黄圈中的数据不止是三行三列，
2022年04月05日 13点04分
level 11
'凑了一个看上去长得应该差不多'行列可以不限，当前数对它右侧所有的数进行组合（组合2）
Option Explicit
Sub abc()
Dim a, i, j, k, kk, n
a = [r1].CurrentRegion.Value
ReDim b(1 To UBound(a) ^ 2, 1 To WorksheetFunction.Combin(UBound(a, 2), 2))
For j = 1 To UBound(a, 2) - 1
n = n + UBound(a, 2) - j
For i = 1 To UBound(a)
For k = 1 To UBound(a)
For kk = j + 1 To UBound(a, 2)
b((i - 1) * UBound(a) + k, kk + n - UBound(a, 2)) = a(i, j) & a(k, kk)
Next kk, k, i, j
[r1].Offset(, UBound(a, 2) + 1).Resize(UBound(b), UBound(b, 2)) = b
End Sub
level 11
'当前工作表selectionchange事件Option Explicit
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If target.Columns.Count < 2 Or target.Columns.Count > 20 Then Exit Sub '190 column
If target.Rows.Count > 200 Then Exit Sub '4*10^4 row
Call abc(target)
End Sub
Sub abc(target As Range)
Dim a, i, j, k, kk, n
a = target.Value
ReDim b(1 To UBound(a) ^ 2, 1 To WorksheetFunction.Combin(UBound(a, 2), 2))
For j = 1 To UBound(a, 2) - 1
n = n + UBound(a, 2) - j
For i = 1 To UBound(a)
For k = 1 To UBound(a)
For kk = j + 1 To UBound(a, 2)
b((i - 1) * UBound(a) + k, kk + n - UBound(a, 2)) = a(i, j) & a(k, kk)
Next kk, k, i, j
target.Offset(, UBound(a, 2) + 1).Resize(UBound(b), UBound(b, 2)) = b
End Sub
level 13
