検索結果シートに下記Vba貼り付ける（オートフィルタ的使い方） ＜コード＞ 'データベースのシート：Sheets("基Data").Range("A1:Aj1000") '検索条件：CriteriaRange:=Range("A1:l2") 調べたい項目を任意に変更可 '検索結果シートの場所：CopyToRange:=Range…

エクセルシートの画像オブジェクトをちまちま選択削除ではなく、 一気に削除したい。。。 ＜コード＞ Sub アクティブシートの画像をすべて削除() Dim oj1 As Shape 'oj1=削除したい画像定義付け For Each oj1 In ActiveSheet.Shapes oj1.Delete Next oj1 End…