Excelで全シートから検索し列で抽出する方法＞検索でヒットしたセルの列全てを抽出（複数ある場合は複数の列が抽出される）。 言わずもがなですが、「列」と「行」を言い間違えてはいませんね？ 各シートごとに、検索とヒットしたセルをまとめて確保、一気にコピーする事でダブりを防止します。 private sub CommandButton1_Click() dim i as long dim h as range dim res as range dim target as range dim c0 as string ’１枚目シートの事前掃除 with worksheets(1) .range(.range("C1"), .cells(1, .columns.count)).entirecolumn.delete shift:=xlshifttoleft end with activeworkbook.save set target = w
