- ベストアンサー
エクセル2002で同じ文字を検索し、関連セルのデータを表示させる方法とは？
- エクセル2002を使用している場合、同じ文字を検索し、関連セルのデータを表示させる方法を知りたいです。
- 特定のセルに入力された名前に基づいて、関連セルからデータを抽出して表示させる方法について教えてください。
- また、複数の名前に対応するために、複数の表を作成し、それぞれのセルに値を表示させたいです。
- gekikaraou
- お礼率41% (282/678)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
実際の状況に合わせてご質問をしていただければ１回で解決しますし、こちらも多くの時間をかける必要もなくなります。これからはそのようにお願いします。 作業列を作って対応することです。 CD2セルには次の式を入力して下方にドラッグコピーします。 =IF(CG2="","",CG2&COUNTIF(CG$2:CG2,CG2)) そこで例えばD２セルには木村と入力します。 B６セルには次の式を入力して右横方向にドラッグコピーしたのちに下方にもドラッグコピーします。 =IF(MOD(COLUMN(A1),10)=0,"",IF(COUNTIF($CD:$CD,INDEX($B$2:$CB$2,ROUNDDOWN(COLUMN(A1)/10,0)*10+3)&ROUNDUP(ROW(A1)/8,0))=0,"",INDEX($CE$2:$CM$1000,FLOOR(MATCH(INDEX($B$2:$CB$2,ROUNDDOWN(COLUMN(A1)/10,0)*10+3)&ROUNDUP(ROW(A1)/8,0),$CD:$CD,0),8)+MOD(ROW(A1)-1,8)+1,MOD(COLUMN(A1)-1,10)+1)))
その他の回答 (1)
- tom04
- ベストアンサー率49% (2537/5117)
こんにちは！ 今回も前回同様VBAになってしまいますが・・・ 画像でみるとCE列以降のデータは2行目からあるように見えますので、 そのように判断しています。 画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に ↓のコードをコピー＆ペーストしてみてください。 Private Sub Worksheet_Change(ByVal Target As Range) 'この行から Dim i As Long, j As Long, k As Long, cnt As Long, c As Range, myArea As Range Application.ScreenUpdating = False On Error Resume Next With Target If .Count = 1 And .Row = 2 And .Column <= 74 And .Column Mod 10 = 4 Then j = .Column - 2 k = Cells(Rows.Count, j).End(xlUp).Row If k > 5 Then Range(Cells(6, j), Cells(k, j + 8)).ClearContents End If For i = 2 To Cells(Rows.Count, "CE").End(xlUp).Row Step 8 Set myArea = Cells(i, "CG").Resize(8, 1) Set c = myArea.Find(what:=.Value, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then cnt = cnt + 1 If cnt <= 10 Then Cells(i, "CE").Resize(8, 9).Copy Cells((cnt - 1) * 8 + 6, j) End If End If Next i End If End With Application.ScreenUpdating = True End Sub 'この行まで これで2行目セルに名前を入力してみてください。 ※ 今回は手動でマクロを実行するのではなく 2行目の検索データが変更されるたびにマクロが実行されるようにしています。m(_ _)m
お礼
回答ありがとうございます。 VBA便利ですね！ マクロで一発回答、お見事です。 ありがとうございます！
お礼
ご回答ありがとうございます。 前回の質問は、出来るかどうかの質問だったのですが、回答まで頂きありがとうございました。 今回も端的な数式のみで求める結果が導けました。 ありがとうございました！