Excel VBA質問箱 IV

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

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


13608 / 13646 ツリー ←次へ | 前へ→

【4654】文字列検索 vb初心者 03/4/1(火) 13:02 質問
【4655】Re:文字列検索 つん 03/4/1(火) 13:10 回答
【4656】Re:文字列検索 vb初心者 03/4/1(火) 13:19 お礼

【4654】文字列検索
質問  vb初心者  - 03/4/1(火) 13:02 -

引用なし
パスワード
   下記のように文字列にセンターと入っている時にB列に1を立てたいのですが
やり方がわかりません分かる方教えて下さいお願いします

   A    B
1 トウキョウ  
2 サガセンター  1
3 オオサカセンター  1

【4655】Re:文字列検索
回答  つん E-MAIL  - 03/4/1(火) 13:10 -

引用なし
パスワード
   vb初心者 さん、こんにちは

>下記のように文字列にセンターと入っている時にB列に1を立てたいのですが
>やり方がわかりません分かる方教えて下さいお願いします
>
>   A    B
>1 トウキョウ  
>2 サガセンター  1
>3 オオサカセンター  1

こんな感じかな?

Sub test()

  Dim i As Long
  
  For i = 1 To Range("a65536").End(xlUp).Row
    If Cells(i, 1).Value Like "*センター*" = True Then
      Cells(i, 2).Value = 1
    End If
  Next i

End Sub

Like演算子とかは、ヘルプを読んでみてちょ。

【4656】Re:文字列検索
お礼  vb初心者  - 03/4/1(火) 13:19 -

引用なし
パスワード
   つんさん

 ありがとうございました。

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