Excel VBA質問箱 IV

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

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


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

20420 / 76732

←次へ　｜　前へ→


	【61732】Re:指定文字の前までをコピーする

かみちゃん - 09/5/30(土) 10:29 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>イメージ的には下記の様な感じです。
>
>　　　A　　　　 B　　　　 C
>1　KL123-86　　KL123　　　86　
>2　HT6547-95　 HT6547　　 95
>3　DS56J-4H　　DS56J　　　4H
>4
>A列が機種-型式、Bが機種のみ、Cが型式のみといった感じです。

ゆみこんさんも提示されていますが、以下のような感じのコードでできると思います。

Sub Sample()
　Dim v As Variant
　Dim c As Range
　Dim rngLast As Range
　
　Set rngLast = Range("A" & Rows.Count).End(xlUp)
　For Each c In Range("A1", rngLast)
　　v = Split(c.Value, "-")
　　c.Offset(, 1).Resize(, UBound(v) + 1).Value = v
　Next
　MsgBox "処理を終了しました"
End Sub

0 hits

▼

【61725】指定文字の前までをコピーする まっちゃん 09/5/30(土) 9:06