□ 戻る □VBAのサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 数字を各セルに、行を4行開ける続き | |
|---|---|
[135054] 数字を各セルに、行を4行開ける続き- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ マスオさん -(2025/05/02(06:52)) □U R L/ >[135050] 数字を各セルに、行を4行開ける 書込みが悪かった見たいで >２．数字の後ろのドット、７個以上数字削除。 月は、含まず月以降７個の数字なんですが説明が悪く申し訳ありません。 宜しくお願いします。 | |
[135056] Re[1]: 数字を各セルに、行を4行開ける続き- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/05/02(09:16)) □U R L/ ＞月は、含まず月以降７個の数字なんですが説明が悪く申し訳ありません。 ちょっと分からないです。 具体的にどうなればいいんですか？ ＞ 上記を下記の様に ＞ ＞ 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 ＞ ： ： ： | |
[135057] Re[2]: 数字を各セルに、行を4行開ける続き- ■記事引用/メール受信=OFF■ □投稿者/ マスオさん -(2025/05/02(19:30)) □U R L/ 月を除いた次の数字からB1:H1まで７個になります． 宜しくお願いします。 | |
[135058] Re[3]: 数字を各セルに、行を4行開ける続き- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/05/02(21:13)) □U R L/ 2000行以上と言うことなので、数式を下にコピーする方式は止めます。
１．事前準備
B:Hの列を全部クリアしてください。
２．B1セルに下式を入力（下へのコピーは不要）
=LET(r,(SEQUENCE(XMATCH("*",A:A,2,-1)*5)+4),IF(MOD(r,5)=0,IFERROR(FILTERXML(SUBSTITUTE("<r><n>"&MID(INDEX(A:A,r/5),5,200)&"</n></r>",".","</n><n>"),"//n["&SEQUENCE(1,7)&"]"),""),""))
３．B:Hの列をコピーして、同じ場所に「値の貼り付け」
<結果図>
行 ___________A___________ _B_ _C_ _D_ _E_ _F_ _G_ _H_
1 01月 1.8.4.2.7.3.9.5.6 1 8 4 2 7 3 9
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 9 6 3 1 4 7 2
7 07月 6.9.7.3.2.10.11
なお、空白に見えるセルには「空白文字」が入っています。つまり「未入力セル」とは違う状態です。
| |
[135059] Re[4]: 数字を各セルに、行を4行開ける続き- ■  / 記事引用/メール受信=OFF■
□投稿者/ マスオさん -(2025/05/03(09:35)) □U R L/ 有難うございます。 何度もお手数かけまして、すみませんでした。 解決です。 有難うございました。 | |