共通の値を持つ座標の組み合わせについて

質問

• 共通の値を持つ座標の組み合わせを表示するVBAの作成方法について考えています。
• 表の特定の座標に共通の値を持つ組み合わせを表示するVBAを作成したいです。
• VBAに詳しい方からのアドバイスを頂けると助かります。

回答No.2

tom04

No.1です。
お礼欄を読みました。

左の表から右の表のようなデータを引き出したい！というコトですが・・・
いくら画像とにらめっこしても
左の表から右の表への規則性が判りません。

当方の解釈では↓の画像のような感じの規則性しか見当たらないのですが、
とりあえずコードを載せてみます。
今回もSheet1のSheetマクロです。

Sub test2()
Dim i As Long, j As Long, k As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
ws.Cells.ClearContents
For i = 2 To 11
If WorksheetFunction.Count(Rows(i)) > 1 Then
ws.Cells(Rows.Count, 2).End(xlUp).Offset(1) = Cells(i, 1)
End If
For j = 2 To 11
If Cells(i, j) = 1 Then
k = ws.Cells(Rows.Count, 2).End(xlUp).Row
ws.Cells(k, Columns.Count).End(xlToLeft).Offset(, 1) = Cells(1, j)
End If
Next j
Next i
ws.Activate
End Sub

※　今回も外していたらごめんなさいね。m（_ _）m

お礼

再度のアドバイスありがとうございます。
Sheet2の２行目の場合は、1 2 5 7 8 と表示されているため、Sheet1の表の
（１行，２列）、（１行，５列）、（１行，７列）、（１行，８列）、（２行，５列）、（２行，７列）、（２行，８列）、（５行，７列）、（５行，８列）、（７行，８列）の所に全て１の値が入力されているということなのですが、（２行，８列）のところに１がないために、Sheet2の２行目の場合は、８を除いた1 2 5 7が表示されるというわけです。

Sheet2の6行目は5 7 8 10とありますが（７行，１０列）のところに１がないために、Sheet2の２行目の場合は、10を除いた5 7 8が表示されるというわけです。

Sheet2の8行目は8 9 10とありますが（９行，１０列）のところに１がないために、Sheet2の２行目の場合は、10を除いた8 9が表示されるというわけです。

ご理解いただき、改めてアドバイスいただけますと幸いです。よろしくお願いします。