Excel VBA質問箱 IV

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

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


4167 / 13644 ツリー ←次へ | 前へ→

【58077】A列を走査し、特定文字以下をdeleteしたい 初心者 08/10/1(水) 15:05 質問[未読]
【58078】Re:A列を走査し、特定文字以下をdeleteした... マクロマン 08/10/1(水) 15:07 発言[未読]
【58079】Re:A列を走査し、特定文字以下をdeleteした... マクロマン 08/10/1(水) 15:25 発言[未読]
【58084】Re:A列を走査し、特定文字以下をdeleteした... Abebobo 08/10/1(水) 16:37 発言[未読]

【58077】A列を走査し、特定文字以下をdeleteしたい
質問  初心者  - 08/10/1(水) 15:05 -

引用なし
パスワード
   A列のどこかに検証からはじまる文字列があります。

A列を上から走査し、検証を含む文字列を発見した場合、そこから下(検証含む)を全てをdeleteしたいのです。

できますでしょうか?

ご教示の程宜しくお願い致します。

【58078】Re:A列を走査し、特定文字以下をdeleteし...
発言  マクロマン  - 08/10/1(水) 15:07 -

引用なし
パスワード
   セル範囲をループで見ていく方法もありますが、
今回のような場合は、
Findメソッド
がいいかもしれません。

【58079】Re:A列を走査し、特定文字以下をdeleteし...
発言  マクロマン  - 08/10/1(水) 15:25 -

引用なし
パスワード
   取得したセルから最終行までのセルの取得に関しては、↓が参考になると思います。

tp://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_070_10.html
tp://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_100.html

【58084】Re:A列を走査し、特定文字以下をdeleteし...
発言  Abebobo  - 08/10/1(水) 16:37 -

引用なし
パスワード
   マクロマン さんから Find の提案がありましたので
その次の段階です。

Sub t()
 Dim Tr As Range  '実際は Find で見つかったRangeです
 Set Tr = ActiveCell
 Tr.Value = Left(Tr.Value, InStr(Tr.Value, "検証") - 1)
End Sub

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