回答編集履歴

2 デバッグの参考先追加

rrryutaro

rrryutaro score 144

2017/01/16 17:35  投稿

marutokiさん! `split`の指定が`myRng`になっていますよ!
`r`でなくてはなりません。
また結果の受け取りは別途`Variant`型の変数を用意してください。
念のため簡単に解説します。
例えば、F列が次のようになっていた場合
```
- F列
2 1x2x3
3 2x3
4 3x4x5
```
`myRng`は次のような配列になっています。
`F2のセル, F3のセル, F4のセル`
`For Each r In myRng`はmyRngの配列を1つずつ取り出して、`r`に格納します。
次のようにする必要があります。
```
Dim v As Variant
 :
v = Split(r, "x")
```
```
ちなみに、デバッグ機能は利用されていますでしょうか?
別件での回答になりますが、次の質問での回答でデバッグの使い方を少し説明してますので参考にしていただければと思います。
[VBA - VBA 配列(62043)|teratail](https://teratail.com/questions/62043)
1 変数の設定について書き忘れ

rrryutaro

rrryutaro score 144

2017/01/16 17:31  投稿

marutokiさん! `split`の指定が`myRng`になっていますよ!
`r`でなくてはなりません。
また結果の受け取りは別途`Variant`型の変数を用意してください。
念のため簡単に解説します。
例えば、F列が次のようになっていた場合
```
- F列
2 1x2x3
3 2x3
4 3x4x5
```
`myRng`は次のような配列になっています。
`F2のセル, F3のセル, F4のセル`
`For Each r In myRng`はmyRngの配列を1つずつ取り出して、`r`に格納します。
`For Each r In myRng`はmyRngの配列を1つずつ取り出して、`r`に格納します。
次のようにする必要があります。
```
Dim v As Variant
 :
v = Split(r, "x")
```

思考するエンジニアのためのQ&Aサイト「teratail」について詳しく知る