![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
こんばんは!
COUNTIF関数とVLOOKUP関数などで対応できそうですが、
手っ取り早くVBAでの一例です。
標準モジュールにしてください。
Sub Sample1()
Dim myDic As Object
Dim myR, myAry
Dim i As Long, lastRow As Long
Dim myStr As String, wS As Worksheet
Set myDic = CreateObject("Scripting.Dictionary")
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
.Range("F:J").ClearContents
.Range("F1:J1").Value = wS.Range("A1:E1").Value
lastRow = wS.Cells(Rows.Count, "B").End(xlUp).Row
myR = Range(wS.Cells(2, "A"), wS.Cells(lastRow, "E"))
For i = 1 To UBound(myR, 1)
If Not myDic.exists(myR(i, 2)) Then
myDic.Add myR(i, 2), myR(i, 1) & "_" & myR(i, 3) & "_" & myR(i, 4) & "_" & myR(i, 5)
End If
Next i
lastRow = .Cells(Rows.Count, "B").End(xlUp).Row
myR = Range(.Cells(2, "B"), .Cells(lastRow, "J"))
For i = 1 To UBound(myR, 1)
If myDic.exists(myR(i, 1)) Then
myAry = Split(myDic(myR(i, 1)), "_")
myR(i, 5) = myAry(0)
myR(i, 6) = myR(i, 1)
myR(i, 7) = myAry(1)
myR(i, 8) = myAry(2)
myR(i, 9) = myAry(3)
End If
Next i
Range(.Cells(2, "B"), .Cells(lastRow, "J")) = myR
End With
Set myDic = Nothing
MsgBox "完了"
End Sub
※ 関数でないので、
データ変更があるたびにマクロを実行する必要があります。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Excel(エクセル) 【Excel質問】別シートにある複数の同型の表から、同じ行項目にある数字を集計する 4 2023/02/16 00:14
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) Excel 売上管理シートに入力した売上データを、日報に自動反映させたいと考えています。 売上管理シ 3 2023/04/29 18:08
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
- PHP PHPSpreadsheetによる書き出し時のページネーション方法について 1 2023/03/20 10:35
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) Excelで日報を自動で作成したい 売上管理シートに入力した売上データを、日報に自動反映させたいと考 1 2023/04/29 18:07
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
googleドライブ 共有フォルダ ...
-
アイテム の意味がわかりませ...
-
データコンバート(続編への引...
-
Google Playで予約購入した漫画...
-
好みの楕円形を描きたい時は、...
-
エホバやると何故キモくなった...
-
パラサイトイブのアイテム
-
FF11 ノートパソコンでバザ...
-
ニューマリ>ニューマリWii>ニュ...
-
ファイアーエムブレム聖戦の系...
-
送信済みメールが表示されない...
-
バンドリなんですけど、 このチ...
-
wedo。ウィーデューはどういう...
-
PS2 ドラクエ8 名もなき小島 ...
-
PSPで文字化け?
-
VBのPrintersコレクションにつ...
-
モンハン2ndG
-
FF10のミヘン街道・北側 ミヘ...
-
マジックポットの倒し方を教え...
-
ドラクエ8の練成について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アイテム の意味がわかりませ...
-
googleドライブ 共有フォルダ ...
-
Windows11で「フォト」の外部ア...
-
口臭ケアのおすすめのアイテム...
-
アプリゲーム内の課金について...
-
FF10のミヘン街道・北側 ミヘ...
-
PS2 ドラクエ8 名もなき小島 ...
-
Google Playで予約購入した漫画...
-
パラサイトイブのアイテム
-
マリオカートはアイテム次第で...
-
モンストの モンスポットのアイ...
-
ポケモンホワイト2
-
VBのPrintersコレクションにつ...
-
SFC版の「スーパーマリオカート...
-
FF4 アイテム管理
-
ドラゴンクエスト8で…
-
アンジェリークデュエットの攻略
-
mod入りマイクラ1.7.10でバグり...
-
データコンバート(続編への引...
-
FF7 クラウド 究極リミット技...
おすすめ情報