戻る  □VBAのサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
同じ文字が複数あるときの消去方法

    [133097] 同じ文字が複数あるときの消去方法-

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

    □投稿者/ まっちゃん -(2022/04/30(12:46))
    □U R L/

      一セルに、A。B。C。などの文字があるとき、
      何番目かの「。」を指定してその「。」を含み左すべてとか、
      その「。」含まず右すべてを消去するには
      どんな式にすればいいのでしょうか。

      「。」が一つだけなら「Ctrl+H」で「*」を利用して
      前後を分割して単独セルにしているのですが、
      複数のものを分割に、「データの区切り位置」を使うには
      「複数文字列セル」の右列にもデータがあるので
      ちょっと扱いにくいので困っています。

      単独にするためには、複数行をコピーして
      数回の作業をするようになるとは思いますが…。

      よろしくお願いします。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [133100] Re[1]: 同じ文字が複数あるときの消去方法-

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

    □投稿者/ 半平太 -(2022/04/30(14:07))
    □U R L/
      C2セル =LEFT(A2,FIND("♪",SUBSTITUTE(A2&REPT("♪",9),"。","♪",B2)))
      D2セル =REPLACE(A2,1,LEN(C2),"")
      
      <結果図>
      行  ________A________  ____B____  ________C________  _____D_____
       1  文字               指定番目   左                 右         
       2  Aeee。Bfff。Cg。       1      Aeee。             Bfff。Cg。 
       3  Aeee。Bfff。Cg。       2      Aeee。Bfff。       Cg。       
       4  Aeee。Bfff。Cg。       3      Aeee。Bfff。Cg。              
       5  Aeee。Bfff。Cg。       4      Aeee。Bfff。Cg。              
      
      必要に応じて、コピー → 値の貼付け → 列削除を行う
      




    [133101] Re[2]: 同じ文字が複数あるときの消去方法-

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

    □投稿者/ まっちゃん -(2022/04/30(14:42))
    □U R L/

      半平太様、

      すみません。ご解答で、♪は「。」を意味しているのでしょうか

      質問は、例示していただいている、A1noAeee。Bfff。Cg。 の
      2番目の「。」を探し、その左を消すにはどうすれば、というぐらいの
      意味合いなのですが…。




    [133102] Re[3]: 同じ文字が複数あるときの消去方法-

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

    □投稿者/ 半平太 -(2022/04/30(15:21))
    □U R L/
      >♪は「。」を意味しているのでしょうか
      x個目の「。」が、どの位置にあるか直接分からないので、
      取り敢えず、Substitute関数で、そのx番目の「。」を「♪」に置換えただけです。
      
      そうしておけば「♪」は一つしかないので、Find関数で「♪」が何文字目か調べられるので。
      
      >何番目かの「。」を指定してその「。」を含み左すべてとか、
      「何番目か」であって、2番目とは決まってないんですよね?
       なので、何番目が指定されてもいいように、1〜4のバリエーションを例示しました。
      
      2番目と決まっているなら、B列に全て2と入れるか、数式に直接2を入れるかです。
                                      ↓ 
      C2セル =LEFT(A2,FIND("♪",SUBSTITUTE(A2&REPT("♪",9),"。","♪",2)))
      D2セル =REPLACE(A2,1,LEN(C2),"")
      




    [133103] Re[4]: 同じ文字が複数あるときの消去方法-

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

    □投稿者/ まっちゃん -(2022/04/30(16:09))
    □U R L/

      半平太さま

      ご丁寧にありがとうございました。
      待ち時間の間に、先日お答えいただいた、同一文字の複数変換を利用して
      複数回のコピーをしながら、確実に分割でました。

      なかなか、関数への回路が頭の中でつながらず、ご迷惑をおかけしますが
      今後ともよろしくお願いいたします。



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

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

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


- Child Forum -
Edit:ゆう-G