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 質問
【61726】Re:指定文字の前までをコピーする かみちゃん 09/5/30(土) 9:15 発言
【61728】Re:指定文字の前までをコピーする まっちゃん 09/5/30(土) 9:43 回答
【61730】Re:指定文字の前までをコピーする kanabun 09/5/30(土) 9:52 発言
【61732】Re:指定文字の前までをコピーする かみちゃん 09/5/30(土) 10:29 発言≪
【61727】Re:指定文字の前までをコピーする ゆみこん 09/5/30(土) 9:41 発言
【61729】Re:指定文字の前までをコピーする まっちゃん 09/5/30(土) 9:51 回答
【61731】Re:指定文字の前までをコピーする ゆみこん 09/5/30(土) 10:03 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
20420 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free