BigBeachBananas
Active Member
- Joined
- Jul 13, 2021
- Messages
- 450
- Office Version
- 365
- Platform
- Windows
- MacOS
Hi,
I have the following VBA code from @Peter_SSs from another thread that generates unique combinations. However, the VBA omits combinations with repeated elements. For example, if I have elements A, B, and C then AA, BB, CC are omitted. I'm looking for some help modifying the VBA such that it retains the combinations with repeated elements. Thanks!
I have the following VBA code from @Peter_SSs from another thread that generates unique combinations. However, the VBA omits combinations with repeated elements. For example, if I have elements A, B, and C then AA, BB, CC are omitted. I'm looking for some help modifying the VBA such that it retains the combinations with repeated elements. Thanks!
VBA Code:
Sub All2Combos()
Dim a As Variant, b As Variant
Dim i As Long, j As Long, x As Long, y As Long
a = Range("A2", Range("A" & Rows.Count).End(xlUp)).Value
ReDim b(1 To UBound(a))
For i = 1 To UBound(a)
If Len(a(i, 1)) > 0 Then
x = x + 1: b(x) = a(i, 1)
End If
Next i
ReDim a(1 To WorksheetFunction.Combin(x, 2), 1 To 1)
For i = 1 To x - 1
For j = i + 1 To x
y = y + 1: a(y, 1) = b(i) & b(j)
Next j
Next i
Range("C2").Resize(y).Value = a
End Sub