戻る  □VBAのサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
数字の間の中点削除、各セルに1,2桁で並べる

    [134667] 数字の間の中点削除、各セルに1,2桁で並べる-

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

    □投稿者/ 黒子 -(2024/09/02(10:37))
    □U R L/
      教えて下さい。
      
      下記の様にB3に中点が入っている20個の数字をB5に1桁は1桁、2桁は2桁で20の列(B5〜U5)に並べたいのですがどの様にすれば良いですか?
      ご指導お願いします。
         B
      3  12・43・1・56・2・34・23・5・11・32・6・17・30・56・8・61・55・48・15・38 
      
            B     C      D      E     F      G     H      I      J        K     L     M      N      O     P    Q      R        S      T      U 
      5   12    43 1 56 2 34 23 5 11 32 6 17 30 56 8 61 55 48 15 38 
      
      Win10       Excel2021
      




    [134668] Re[1]: 数字の間の中点削除、各セルに1,2桁で並べる-

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

    □投稿者/ メジロ -(2024/09/02(10:59))
    □U R L/

      関数でもできますが機能が準備されています。
      セルB3を選んでから「データ→区切り位置」と選択して
      〇カンマやタブなど・・・・・・を選択
        ↓
      区切り文字でその他をえらび「・」と指定
        ↓
      「次へ」ボタンを選択
        ↓
      表示先で「$B$5」指定で数列が分割されます。





    [134669] Re[2]: 数字の間の中点削除、各セルに1,2桁で並べる-

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

    □投稿者/ 黒子 -(2024/09/02(11:08))
    □U R L/

      有難う御座います。

      >関数でもできますが機能が準備されています。

      余り余白を使いたくないので関数でと考えているのですが。

      宜しくお願いします。




    [134671] Re[3]: 数字の間の中点削除、各セルに1,2桁で並べる-

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

    □投稿者/ メジロ -(2024/09/02(13:42))
    □U R L/

      関数案です。

      B5: =SUBSTITUTE(LEFT(B3,2),"・","")

      C5: =IFERROR(SUBSTITUTE(MID($B$3,FIND("\",SUBSTITUTE($B$3,"・","\",COLUMN(A1)))+1,2),"・",""),"")

      右にコピーします。
      数字の個数が固定のようですので「IFERROR」関数は不要ですね。






    [134672] Re[4]: 数字の間の中点削除、各セルに1,2桁で並べる-

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

    □投稿者/ 黒子 -(2024/09/02(20:36))
    □U R L/

      お世話になります。

      >B5: =SUBSTITUTE(LEFT(B3,2),"・","")

      上記は、OKでした。


      >C5: =IFERROR(SUBSTITUTE(MID($B$3,FIND("\",SUBSTITUTE($B$3,"・","\",COLUMN(A1)))+1,2),"・",""),"")

      上記は、何も表示しませんでした。C5をB5にしても何も表示しません。

      最初のでOKなのでこれで行きます。


      有難う御座いました。















    [134674] Re[5]: 数字の間の中点削除、各セルに1,2桁で並べる-

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

    □投稿者/ メジロ -(2024/09/03(13:04))
    □U R L/

      >>C5: =IFERROR(SUBSTITUTE(MID($B$3,FIND("\",SUBSTITUTE($B$3,"・","\",COLUMN(A1)))+1,2),"・",""),"")

      >上記は、何も表示しませんでした。C5をB5にしても何も表示しません。

      失礼しました。数字の区切り記号が「全角と半角」の違いがありました。
      これが原因で「何も表示しません」となったのだと思います。
      同じ表形式で、結果は確認してあります。




    [134675] Re[6]: 数字の間の中点削除、各セルに1,2桁で並べる-

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

    □投稿者/ 黒子 -(2024/09/04(11:08))
    □U R L/

      メジロさん、お世話になります。

      再度お願いします。

      最初、

      >B5: =SUBSTITUTE(LEFT(B3,2),"・","")

      でOKとなったのですが今回NGになってしまいました。

      原因不明です。

      次の

      >C5:

      =IFERROR(SUBSTITUTE(MID($B$3,FIND("\",SUBSTITUTE($B$3,"・","\",COLUMN(A1)))+1,2),"・",""),"")

      で試しましたがB3の先頭の12で無く次の43から始まります、それ以降は問題無いのですが。

      何が悪いのか分から無いので再度お願いします。

      >数字の区切り記号が「全角と半角」の違いがありました。

      全角に直して確かめて見ましたが何度試みても駄目でした。

      宜しくお願いします。







    [134678] Re[7]: 数字の間の中点削除、各セルに1,2桁で並べる-

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

    □投稿者/ メジロ -(2024/09/04(14:19))
    □U R L/

      >OKとなったのですが今回NGになってしまいました。
      >全角に直して確かめて見ましたが何度試みても駄目でした。

      提示しました式では「区切り記号」の相違以外はエラーになる
      原因がかんがえられません。

      もう一度提示しました式と入力された式を確認してください。
      これ以上はわかりませんので撤退します。



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

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

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


- Child Forum -
Edit:ゆう-G