EXCELで複数列改行しているセルを行ごと分割したいです。

画像

Excel | Visual Basic61閲覧xmlns="http://www.w3.org/2000/svg">500

1人が共感しています

ベストアンサー

2

2人がナイス!しています

ThanksImg質問者からのお礼コメント

こちらの投稿をベストアンサーに選ばせて頂きます。

お礼日時:5/8 18:38

その他の回答(1件)

1

マクロ作るの面倒だな 1列目 =TEXT(FILTERXML("<a><b>"&SUBSTITUTE(TRIM(TEXTJOIN(" ",,REPT(A2:A4&" ",1+LEN(D2:D4)-LEN(SUBSTITUTE(D2:D4,CHAR(10),"")))))," ","</b><b>")&"</b></a>","//b"),"00000") 2列目 =FILTERXML("<a><b>"&SUBSTITUTE(TRIM(TEXTJOIN(" ",,REPT(B2:B4&" ",1+LEN(E2:E4)-LEN(SUBSTITUTE(E2:E4,CHAR(10),"")))))," ","</b><b>")&"</b></a>","//b") 3列目 =FILTERXML("<a><b>"&SUBSTITUTE(TRIM(TEXTJOIN(" ",,REPT(C2:C4&" ",1+LEN(F2:F4)-LEN(SUBSTITUTE(F2:F4,CHAR(10),"")))))," ","</b><b>")&"</b></a>","//b") 4列目 =FILTERXML("<a><b>"&SUBSTITUTE(TEXTJOIN("</b><b>",,D2:D4),CHAR(10),"</b><b>")&"</b></a>","//b") 5列目 =FILTERXML("<a><b>"&SUBSTITUTE(TEXTJOIN("</b><b>",,E2:E4),CHAR(10),"</b><b>")&"</b></a>","//b") 6列目 =TEXT(FILTERXML("<a><b>"&SUBSTITUTE(TEXTJOIN("</b><b>",,F2:F4),CHAR(10),"</b><b>")&"</b></a>","//b"),"yyyy/m/d") 7列目 =FILTERXML("<a><b>"&SUBSTITUTE(TEXTJOIN("</b><b>",,G2:G4),CHAR(10),"</b><b>")&"</b></a>","//b") スピル場合はそのままで。それ以外は範囲選択して配列数式で

1人がナイス!しています