Excel VBA質問箱 IV

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

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


63433 / 76732 ←次へ | 前へ→

【17895】Re:1つのセルの文字列の分割について
回答  IROC  - 04/9/9(木) 17:39 -

引用なし
パスワード
   うまくいくかわかりませんが・・・

Sub Sample()
Dim i As Long, s As Long
Dim ret As Long
Dim myKey() As Variant
  
  myKey() = Array("県", "道", "都", "府")

  For i = 1 To Range("A65536").End(xlUp).Row
    
    For s = 0 To 3
      ret = InStr(Cells(i, 1).Value, myKey(s))
      
      If ret > 0 And ret <= 4 Then
        Cells(i, 2).Value = Left(Cells(i, 1).Value, ret)
      End If
    Next s
    
  Next i

End Sub

1 hits

【17889】1つのセルの文字列の分割について 勉強したい 04/9/9(木) 17:07 質問
【17891】Re:1つのセルの文字列の分割について IROC 04/9/9(木) 17:11 回答
【17892】Re:1つのセルの文字列の分割について 勉強したい 04/9/9(木) 17:14 発言
【17893】Re:1つのセルの文字列の分割について Jaka 04/9/9(木) 17:32 回答
【17894】Re:1つのセルの文字列の分割について 勉強したい 04/9/9(木) 17:35 質問
【17895】Re:1つのセルの文字列の分割について IROC 04/9/9(木) 17:39 回答
【17896】Re:1つのセルの文字列の分割について 勉強したい 04/9/9(木) 17:46 お礼
【17897】Re:1つのセルの文字列の分割について Jaka 04/9/9(木) 17:54 回答
【17898】Re:1つのセルの文字列の分割について 勉強したい 04/9/9(木) 18:30 お礼
【17901】Re:1つのセルの文字列の分割について Kein 04/9/9(木) 20:31 回答

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