戻る  □VBAのサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
半角スペース、ピリオド削除で並べるには

    [134840] 半角スペース、ピリオド削除で並べるには-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ 正武 -(2024/12/03(12:30))
    □U R L/
      教えて下さい。
      
      下記の様な一つのセルに1月から12月にランダムな数字が入っています。
      数字は、1〜16です、また月の後ろに半角スペース、数字と数字の間にピリオドが入ってます。
      やりたい事は、スペース、ピリオドを除いてA20に月、B20:H20迄各数字を並べたい。
      数字は7桁迄、それ以上は必要無いので使いません、1月〜12月迄並べたい。
      
      
      	A	B	C	D	E	F	G	H	I
      1	1月 5.2.4.10.8.1.3.6.9.7								
      2	2月 13.7.6.9.10.4.8.2.14.12.5.1.3.11								
      3	3月 12.2.3.4.1.11.10.9.7.8.6.5.13 .								
      4	4月 13.4.14.2.12.3.6.8.10.1.5.9.11.7								
      5	5月 8.13.6.3.12.4.10.14.9.1.7.11.5.2								
      6	6月 9.1.11.10.4.7.2.5.6.3.8 .								
      7	7月 1.2.3.6.7.4.5.10.9.8								
      8	8月 7.4.2.9.14.1.10.11.3.5.6.13.12.8								
      9	9月 7.11.6.2.8.10.1.3.4.5.9 .								
      10	10月 14.11.2.7.13.9.15.3.10.6.1.12.5.4.8.								
      11	11月 8.16.5.10.7.6.11.15.2.12.4.1.3.9.13.14								
      12	12月 9.13.5.6.3.2.11.1.12.8.4.16.15.14.7.10					
      ・
      ・
      ・									
          A	B	C	D	E	F	G	H	I
      		1	2	3	4	5	6	7	
      20	1月	5	2	4	10	8	1	3	
      21	2月	13	7	6	9	10	4	8	
      22	3月	12	2	3	4	1	11	10	
      23	4月	13	4	14	2	12	3	6	
      24	5月	8	13	6	3	12	4	10	
      25	6月	9	1	11	10	4	7	2	
      26	7月	1	2	3	6	7	4	5	
      27	8月	7	4	2	9	14	1	10	
      28	9月	7	11	6	2	8	10	1	
      29	10月	14	11	2	7	13	9	15	
      30	11月	8	16	5	10	7	6	11	
      31	12月	9	13	5	6	3	2	11	
      
      宜しくお願いします。
      
      



      ++++++++++++++++++++
      OS      ⇒Windows 10
      Version⇒Excel 2021
      ++++++++++++++++++++




    [134842] Re[1]: 半角スペース、ピリオド削除で並べるには-

    記事引用/メール受信=OFF■

    □投稿者/ らたたたた -(2024/12/03(15:22))
    □U R L/

      まずA列を半角スペースで区切る
      データ→区切り位置 でできます
      A,B列に別れたら、今度はB列を.(コンマ)で区切る
      終わり




    [134846] Re[2]: 半角スペース、ピリオド削除で並べるには-

    記事引用/メール受信=OFF■

    □投稿者/ 正武 -(2024/12/03(20:20))
    □U R L/

      出来れば、数式で出来ないですか?




    [134847] Re[3]: 半角スペース、ピリオド削除で並べるには-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2024/12/04(09:45))
    □U R L/
      A20セル =TRIM(LEFT(A1:A12,3))
      
      B20セル =INDEX(FILTERXML("<c>"&TRIM(SUBSTITUTE(RIGHT(A1,LEN(A1)-3),".","</c><c>")&"</c>"),"//c"),SEQUENCE(1,7),1)
      この数式をB31までコピー
      




    [134848] (削除)-

    記事引用/メール受信=OFF■

    □投稿者/ / -(2024/12/05(06:48))
    □U R L/

      この記事は削除されました




    [134849] Re[5]: 修正-

    記事引用/メール受信=OFF■

    □投稿者/ んなっと -(2024/12/05(06:50))
    □U R L/

      半平太さん、こんにちは。いつも勉強させていただいています。
      2番目の式ですが、<b></b>は「太字指定」に解釈されてしまってテキストとしては表示されません。
      <x></x>に置き換えておきます。
      =INDEX(FILTERXML("<x><c>"&TRIM(SUBSTITUTE(RIGHT(A1,LEN(A1)-3),".","</c><c>")&"</c></x>"),"//c"),SEQUENCE(1,7),1)




    [134850] Re[6]: 修正-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2024/12/05(08:02))
    □U R L/
      んなっと さん 
      
      ご指摘ありがとうござます。
      以前、貴兄がChiqulinさんだったかに、
      <a>がマズいと言う趣旨のアドバイスをされていたので
      神経を使ったつもりが、同じ穴に入ってしまいました。
      
      正武 さん
      
      私の書き込みはスルー願います。
      




    [134851] Re[7]: 修正-

    記事引用/メール受信=OFF■

    □投稿者/ Chiquilin -(2024/12/05(10:09))
    □U R L/

      失礼します。

      > <a>がマズいと言う趣旨のアドバイスをされていたので
      すみません、問題ないのでこれは無視してください。




    [134852] Re[8]: 修正-

    記事引用/メール受信=OFF■

    □投稿者/ んなっと -(2024/12/05(10:39))
    □U R L/

      <a>アンカータグも問題ありです。
      <a>ああ</a> <a href>いい</a> を全て半角にして表示させると、以下のようになります。

      ああ いい




    [134853] 半角スペース、ピリオド削除で並べるには-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ 正武 -(2024/12/05(11:52))
    □U R L/

      2人の方お世話になります。

      何時も的確な回答有難う御座います。

      解決出来ました。

      またお世話になります。




このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G