Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2051 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【70280】VBA　Excel２００３　特定の文字でわける方法 やみ 11/10/27(木) 22:00 質問[未読]
【70281】Re:VBA　Excel２００３　特定の文字でわけ... UO3 11/10/27(木) 22:41 回答[未読]
【70289】Re:VBA　Excel２００３　特定の文字でわけ... やみ 11/10/30(日) 11:50 お礼[未読]
【70280】VBA　Excel２００３　特定の文字でわける...
質問  やみ  - 11/10/27(木) 22:00 -
引用なし
パスワード
   A列
ねこ・ねずみ・いぬ
さる
とり
わし・しか
↓
B列
ねこ
ねずみ
いぬ
さる
とり
わし
しか

にしたいです。

instrやsplritを使うのでしょうか？

split(cells(i,1).value,"・")

??

この辺が特に苦手です。
ご指導ください。
【70281】Re:VBA　Excel２００３　特定の文字でわ...
回答  UO3  - 11/10/27(木) 22:41 -
引用なし
パスワード
   ▼やみ さん：

こんばんは

"・" は全角ですね。以下一例です。

Sub Sample()
　　Dim i As Long
　　Dim v As Variant
　　Dim c As Range
　　
　　i = 1
　　Columns("B").ClearContents
　　For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
　　　　v = Split(c.Value, "・")
　　　　Range("B" & i).Resize(UBound(v) + 1).Value = WorksheetFunction.Transpose(v)
　　　　i = i + UBound(v) + 1
　　Next
　　
End Sub
【70289】Re:VBA　Excel２００３　特定の文字でわ...
お礼  やみ  - 11/10/30(日) 11:50 -
引用なし
パスワード
   ▼UO3 さん：
こんにちは！
ありがとうございます。
こうやってシンプルに書けるようになりたいです。
尊敬します。
頂いたコードで勉強します。
本当にありがとうございました。


>▼やみ さん：
>
>こんばんは
>
>"・" は全角ですね。以下一例です。
>
>Sub Sample()
>　　Dim i As Long
>　　Dim v As Variant
>　　Dim c As Range
>　　
>　　i = 1
>　　Columns("B").ClearContents
>　　For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
>　　　　v = Split(c.Value, "・")
>　　　　Range("B" & i).Resize(UBound(v) + 1).Value = WorksheetFunction.Transpose(v)
>　　　　i = i + UBound(v) + 1
>　　Next
>　　
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2051 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free