🖐 Excelでの全通りの組み合わせ出力方法（文字列） -Excelについて全くの- Excel（エクセル） | 教えて!goo

Cells table. Count, table. Count, matrix. Value End If Next On Error GoTo 0 End If End Sub 【使い方】.{/INSERTKEYS}{/PARAGRAPH} Value Dim srcLine As Range For Each srcLine In srcMatrix. {PARAGRAPH}{INSERTKEYS}また、基準セルは１セルだけではなく、特定の領域をセル範囲で指定することもできます。 たとえば集計行を除外したい場合など、特定のセル範囲を明示的にデータ領域としたい場合は、その範囲を選択後（見出しは含めない）、このマクロを実行します。 Option Explicit Sub マトリクスをリストに変換する Dim table As Range Dim matrix As Range Dim target As Range If Selection. Offset -colHSize, 0. Column - srcTable. Offset 0, 0. SpecialCells xlCellTypeBlanks. Rows dstKey1. Offset -1, 0 End Sub Private Sub fillDownBlanks rng As Range Dim blanks As Range If rng. Offset 0, rowHSize. Cells matrix. Column Then Beep Exit Sub End If Application. Offset 1, 0 Next fillDownBlanks Range dstList. Value dstKey2. Count matrix. Select End If If table. Row - srcTable. Offset -1, 0. Areas If blanks. Offset 0, -rowHSize. Resize colHSize End With Dim dstKey1 As Range Dim dstKey2 As Range Dim dstVals As Range With dstList. Rows 1. Transpose srcColHeader. Row Or table. Range "A1" matrixToList table, matrix, target Application. Cells 1, 1 , matrix. Cells 1, 1 , dstKey2. Transpose srcLine.