このトピックに書きこむ |
---|
Re[1]: フィルターかけたセルのコピー | |
---|---|
[196170] Re[1]: フィルターかけたセルのコピー- ■記事引用/メール受信=OFF■ □投稿者/ マルチポスト -(2024/04/25(09:07)) □U R L/ この掲示板の注意書きより。 >マルチポストはご遠慮ください。 >同じ内容の質問を、同時に複数の掲示板に投稿 する行為をマルチポストと言います。 >善意で回答してくれる方々や、ほかで質問した掲示板に迷惑がかかる恐れがあります。 >(先に質問した掲示板でどうしてもレスがつかなくて、ほかで質問したい場合は、その掲示板に解決マークをつけるか、削除するなどして、次の掲示板で質問すればこれに該当しません) |
[196169] フィルターかけたセルのコピー- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ Yoshi -(2024/04/25(00:27)) □U R L/ 以下は、フィルターかけたコピー元のエクセルファイル(sheet1)です。フィルターの項目は、県、市、名前・・・食べ物です。フィルターの条件 で、左の行番号が、その都度かわります。 A B C D E 2 番号1 番号2 名前 会社 食べ物 16 5 6 花子 あ リンゴ1バナナ1 22 8 9 一郎 い メロン1 34 19 11 拓哉 う バナナ2 上記のエクセルファイルから、マクロファイルをテンプレートして、別のエクセルファイルに下記のようにコピーする。 C D E F G 5 5 6 花子 1リンゴ マクロファイルのsheet1のA1セル 6 5 6 花子 2バナナ マクロファイルのsheet1のA2セル 7 8 9 一郎 1メロン マクロファイルのsheet2のA3セル 8 19 11 拓哉 1バナナ マクロファイルのsheet2のA2セル 9 19 11 拓哉 2バナナ マクロファイルのsheet2のA2セル コピーの条件 1 コピー元のデータの食べ物の点数で、コピー条件が変わる 例 リンゴ1バナナ1ならば 1リンゴ 2バナナ 例 バナナ2ならば、 1バナナ 2バナナ 例 リンゴ1バナナ2ならば 1リンゴ 2バナナ 3バナナ となり、頭に順番に数字をつける 上記のVBAを教えてください。よろしくお願いします。 |