Excel VBA質問箱 IV

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

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


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

30177 / 76732

←次へ　｜　前へ→


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

G-Luck - 07/10/6(土) 15:13 -


	引用なし

	パスワード

▼りんごさん：
はじめまして、G-Luckといいます。
下記のようなのでどうでしょうか？
仮定：マンション名に　"-"が使われていない。
　　　　　　　　「○○マンション-P1　105号室」は不可
　　　番地の最後は、-○○　となっている。
　　　　　　　　　○番地○丁目○番は不可

Option Explicit

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 100
　　　　s = Cells(i, "M")
　　　　n = InStrRev(s, "-")
　　　　For j = 1 To 100
　　　　　　buf = Mid(s, n + j, 1)
　　　　　　If Not (IsNumeric(buf)) Then
　　　　　　　　Cells(i, "O") = Mid(s, 1, n + j - 1)
　　　　　　　　Cells(i, "P") = Mid(s, n + j)
　　　　　　　　GoTo P01
　　　　　　End If
　　　　Next j
P01:
　　Next i
End Sub

0 hits

▼

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