Sub Macro1() Dim ArrF, ArrH, ArrBoth, ArrAnser(1 To 65535, 1 To 1), i%, j%, L% ArrF = [a1:a4] ArrH = [B1:B4] ArrBoth = [C1:C2] For i = 1 To UBound(ArrF)For j = 1 To UBound(ArrH) L = L + 1: ArrAnser(L, 1) = ArrF(i, 1) & ArrH(j, 1)Next j Next i For i = 1 To UBound(ArrF)For j = 1 To UBound(ArrBoth) L = L + 1: ArrAnser(L, ...
|