Excel VBA質問箱 IV

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

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


36996 / 76732 ←次へ | 前へ→

【44910】Re:住所の表示
回答  maverick  - 06/12/5(火) 23:57 -

引用なし
パスワード
   >住所は「東京都」からはじまり「様方」で終わります。
Sub test()
  Dim i As Long, txt As String
  For i = Range("C65536").End(xlUp).Row To 1 Step -1
    txt = Cells(i, 3).Value
    If txt Like "*東京都*様方*" Then
      Cells(i, 3).Value = Mid$(txt, InStr(1, txt, "東京都"), _
      InStr(1, txt, "様方") - InStr(1, txt, "東京都") + 2)
    Else
      Rows(i).Delete
    End If
  Next i
End Sub
1 hits

【44908】住所の表示 初診者 06/12/5(火) 23:37 質問
【44909】Re:住所の表示 かみちゃん 06/12/5(火) 23:45 発言
【44911】Re:住所の表示 かみちゃん 06/12/6(水) 0:08 回答
【44910】Re:住所の表示 maverick 06/12/5(火) 23:57 回答
【44930】Re:住所の表示 Tk 06/12/6(水) 21:28 質問
【44931】Re:住所の表示 かみちゃん 06/12/6(水) 22:00 発言
【44932】Re:住所の表示 maverick 06/12/7(木) 0:07 発言
【44912】Re:住所の表示 Kein 06/12/6(水) 0:23 回答
【44950】Re:住所の表示 初診者 06/12/7(木) 19:40 発言
【44952】Re:住所の表示 かみちゃん 06/12/7(木) 19:55 発言
【44982】Re:住所の表示 初診者 06/12/8(金) 18:45 発言
【45000】Re:住所の表示 Kein 06/12/9(土) 14:34 回答

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