Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59278 / 76732 ←次へ | 前へ→

【22160】セル内の指定した文字以降を削除
質問  Avene  - 05/2/10(木) 10:41 -

引用なし
パスワード
   おはようございます。
VBA初心者です。

セル内の指定した文字列以外を削除するマクロを作成しようとしています。
例「あいうえおあいうえお\aiueo\ABC(スペース)name(XXXX)YYY 」
のABC以外を削除したいのですが、下記のマクロでABC以前までは削除できるのですが
name以降を削除する方法がわかりません。
どなたかご教授いただけるようお願いいたします。


++++++++++++++++++++++++++++++++++++++

Sub test()

Dim D As Range


  For Each D In Range("A1", Range("A65536").End(xlUp))
   D.Value = Mid(D.Value, InStrRev(D.Value, "\") + 1)  
  Next


End Sub
++++++++++++++++++++++++++++++++++++++
1 hits

【22160】セル内の指定した文字以降を削除 Avene 05/2/10(木) 10:41 質問
【22161】Re:セル内の指定した文字以降を削除 IROC 05/2/10(木) 10:47 回答
【22162】Re:セル内の指定した文字以降を削除 Avene 05/2/10(木) 11:01 質問
【22166】Re:セル内の指定した文字以降を削除 IROC 05/2/10(木) 12:58 回答
【22167】Re:セル内の指定した文字以降を削除 Avene 05/2/10(木) 13:01 質問
【22168】Re:セル内の指定した文字以降を削除 IROC 05/2/10(木) 13:28 回答
【22169】Re:セル内の指定した文字以降を削除 Avene 05/2/10(木) 13:53 質問
【22171】Re:セル内の指定した文字以降を削除 IROC 05/2/10(木) 14:12 回答
【22172】Re:セル内の指定した文字以降を削除 sa 05/2/10(木) 14:36 発言
【22173】Re:セル内の指定した文字以降を削除 Avene 05/2/10(木) 15:02 お礼
【22175】Re:セル内の指定した文字以降を削除 sa 05/2/10(木) 15:25 発言
【22199】Re:セル内の指定した文字以降を削除 Avene 05/2/10(木) 20:04 お礼
【22209】Re:セル内の指定した文字以降を削除 sa 05/2/11(金) 16:21 発言

59278 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free