Set dicGrep = CreateObject("Scripting.Dictionary") dicGrep.Add "Sheet", ws.Name dicGrep.Add "Row", rng.Row dicGrep.Add "Text", rng.Text If pExtCol > 0 Then dicGrep.Add "ExtText", ws.Cells(rng.Row, pExtCol).Text ' コレクションに追加 colGrep.Add dicGrep End If Loop End If ...