Excel VBA質問箱 IV

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

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


30177 / 76738 ←次へ | 前へ→

【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はQ列にそのまま入ってしまいます。

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 質問
【51751】Re:住所を分けたい ひげくま 07/10/3(水) 16:24 発言
【51752】Re:住所を分けたい りんご 07/10/3(水) 16:48 質問
【51754】Re:住所を分けたい ハチ 07/10/3(水) 17:22 発言
【51755】Re:住所を分けたい りんご 07/10/3(水) 18:15 質問
【51756】Re:住所を分けたい ハチ 07/10/3(水) 18:31 発言
【51770】Re:住所を分けたい ハチ 07/10/4(木) 10:06 発言
【51823】Re:住所を分けたい りんご 07/10/6(土) 14:43 質問
【51824】Re:住所を分けたい G-Luck 07/10/6(土) 15:13 回答
【51825】Re:住所を分けたい りんご 07/10/6(土) 16:17 質問
【51826】Re:住所を分けたい G-Luck 07/10/6(土) 16:25 発言
【51827】Re:住所を分けたい じゅんじゅん 07/10/6(土) 16:40 発言
【51830】Re:住所を分けたい りんご 07/10/6(土) 17:22 質問
【51831】Re:住所を分けたい じゅんじゅん 07/10/6(土) 17:58 発言
【51832】Re:住所を分けたい じゅんじゅん 07/10/6(土) 18:05 発言
【51904】Re:住所を分けたい りんご 07/10/10(水) 15:43 お礼

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