Excel VBA質問箱 IV

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

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


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

49530 / 76732

←次へ　｜　前へ→


	【32111】Re:８桁の文字を１個ずつ抽出

awu - 05/12/6(火) 15:56 -


	引用なし

	パスワード

ちょっと、やろうとしている全体が、いまいち見えませんが・・・・ > シート"名簿"の　４列目が　123-4567　という形の郵便番号となってます > この８桁の１文字ずつを、シート"はがき縦"の各セルに表示したいのですが・この内容からは、こんな感じのことと思うのですが、如何でしょうか。「名簿」シートのD列2行目から下にある郵便番号を1文字ずつ「はがき縦」シートの同行のE列から順に右へ書き出す　と解釈します。 Sub Div_PostNo() Dim Rng As Range Dim N As Integer Worksheets("名簿").Activate With Worksheets("はがき縦") 　　For Each Rng In Range("D2", Range("D65536").End(xlUp)) 　　　　For N = 1 To 8 　　　　　　.Cells(Rng.Row, Rng.Column + N).Value = _ 　　　　　　　　Mid(Trim(Rng.Value), N, 1) 　　　　Next N 　　Next Rng End With End Sub