Excel VBA質問箱 IV

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

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


63432 / 76732 ←次へ | 前へ→

【17896】Re:1つのセルの文字列の分割について
お礼  勉強したい  - 04/9/9(木) 17:46 -

引用なし
パスワード
   ▼IROC さん:
>うまくいくかわかりませんが・・・
>
>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

ありがとうございました!万事解決いたしました!!!!
本当に助かりましたありがとうございました!!!!
4 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 回答

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