Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30171 / 76732

←次へ　｜　前へ→


	【51830】Re:住所を分けたい

りんご - 07/10/6(土) 17:22 -


	引用なし

	パスワード

＞じゅんじゅんさん
すいません、せっかく教えていただいたんですが、ここでエラーが・・・・
Range("P" & i).Value = Left(st, Len(st) - Len(st1))
内容もちょっと理解できなくて。VBA初心者ですいません((+_+))

＞G-Luckさん
いただいたものをそのまま使った物です。
結果は
L：登別市登別町1−1−1　（実際の番地ではありません）
P：登別市登別町
Q：1-1-1
また　虻田郡虻田町虻田町111はＱ列にそのまま入ってしまいます。

Public Sub jyuusyo01()
　　Dim i As Long
　　Dim j As Long
　　Dim n As Long
　　Dim buf As Variant
　　Dim s As String
　　Dim flg As Integer
　
　　For i = 1 To 1000
　　　　s = Cells(i, "l")
　　　　n = InStrRev(s, "-")
　　　　For j = 1 To 100
　　　　　　buf = Mid(s, n + j, 1)
　　　　　　If Not (IsNumeric(buf)) Then
　　　　　　　　Cells(i, "p") = Mid(s, 1, n + j - 1)
　　　　　　　　Cells(i, "q") = Mid(s, n + j)
　　　　　　　　GoTo p01
　　　　　　End If
　　　　Next j
p01:
　　Next i
End Sub

0 hits

▼

【51750】住所を分けたい りんご 07/10/3(水) 15:26