□ 戻る □VBAのサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 数字を各セルに、行を4行開ける | |
|---|---|
[135050] 数字を各セルに、行を4行開ける- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ マスオさん -(2025/04/30(09:57)) □U R L/ A1からA12に下記の様な数字が有ります。 やりたい事 １．月、数字を別な各セルに並べ（数字の順番はそのまま） ２．数字の後ろのドット、７個以上数字削除。 ３．月毎の次の行を４行開る。 現在一項目毎してるので効率が悪いので何か一回で出来ないか分かる方の ご指導お願いします。 A 1 01月 1.8.4.2.7.3.9.5.6 2 02月 9.6.3.1.4.7.2.5.8 3 03月 3.11.8.5.10.4.9 4 04月 8.9.1.2.7.3.11 5 05月 5.1.6.7.8.9.11 6 06月 12.5.14.4.7.2 7 07月 6.9.7.3.2.10.11 8 08月 4.2.7.9.11.1.3 9 09月 6.3.5.10.8.1.2 10 10月 9.2.1.6.11.3.10 11 11月 13.8.12.1.11.9.3 12 12月 14.2.11.9.13.5.10 上記を下記の様に A B C D E F G H 1 01月 1 8 4 2 7 3 9 6 02月 9 6 3 1 4 7 2 11 03月 3 11 8 5 10 4 9 15 04月 8 9 1 2 7 3 11 19 05月 5 1 6 7 8 9 11 23 06月 12 5 14 4 7 2 11 27 07月 6 9 7 3 2 10 11 31 08月 4 2 7 9 11 1 3 35 09月 6 3 5 10 8 1 2 39 10月 9 2 1 6 11 3 10 43 11月 13 8 12 1 11 9 3 47 12月 14 2 11 9 13 5 10 宜しくお願いします。 ++++++++++++++++++++ OS ⇒Windows 10 Version⇒Excel 2021 ++++++++++++++++++++ | |
[135051] Re[1]: 数字を各セルに、行を4行開ける- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/04/30(17:28)) □U R L/ ＞何か一回で出来ないか
1回となると、VBAじゃないと無理でしょうね。
以下の手順だと、少しは楽かもです。
↓
１．B1セルに下式を入力
=IFERROR(FILTERXML(SUBSTITUTE("<r><n>"&SUBSTITUTE(INDEX(A:A,(ROW()+4)/5)," ",".")&"</n></r>",".","</n><n>"),"//n["&SEQUENCE(1,7)&"]"),"")
２．B1:B5を一括選択して、適宜の行番号まで下に「丸ごと」フィルコピー
３．B:H列を全体をコピーして、同じ場所に「値の貼付け」
４．A列を削除 | |
[135052] Re[2]: 数字を各セルに、行を4行開ける- ■記事引用/メール受信=OFF■ □投稿者/ 手間か？ -(2025/05/01(08:39)) □U R L/ Ａ列選択 区切り位置 スペースで区切る Ｂ列選択 区切り位置 .で区切る 2回やっても大した手間でもないだろうに・・・ | |
[135053] Re[3]: 数字を各セルに、行を4行開ける- ■  / 記事引用/メール受信=OFF■
□投稿者/ マスオさん -(2025/05/01(13:37)) □U R L/ 手間か？ ここに書いたのは一部で2000~5000行位有るのですよ。 手間がかかります。 半平太さんありがとうございました。 | |