Excel VBA質問箱 IV

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

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


4090 / 76734 ←次へ | 前へ→

【78271】Re:飛び飛びのセルに一次元配列を配列で代入する方法
質問  himuro  - 16/6/15(水) 16:27 -

引用なし
パスワード
   ▼β さん:
>▼himuro さん:
>
>もう1つ申し上げておきます。
>転記元がどうなっているのかにもよりますが、効率アップは、転記時の話です。
>
>転記元セル領域 --> いったん配列に納めて --> 転記先セル領域に書き込み
>
>これでは、かえって(微々たるものですが)処理時間が増えます。
>こういう場合なら 転記元セル領域から転記先セル領域に書きこむべきですよ。

なるほど、具体的にはこのような感じになります。

'wordは可変。1つだったり20個だったりする。
dim word: word = "a, b, c, d, e, f, g, h, i, j, k, l, m, n, o"

dim arr1: arr1 = split(word, ",")

dim i, max: max = UBound(arr1)

dim a as range

'alphaはrange("A1:A10, C1:C10, E1:E10")の名前付きセル
for each a in alpha
a = arr1(i)
i = i + 1
if i > max then exit for
next a

このようなコードを、配列を使うことにより効率化できるでしょうか。

5 hits

【78267】飛び飛びのセルに一次元配列を配列で代入する方法 himuro 16/6/15(水) 14:13 質問[未読]
【78269】Re:飛び飛びのセルに一次元配列を配列で代... β 16/6/15(水) 16:01 発言[未読]
【78270】Re:飛び飛びのセルに一次元配列を配列で代... β 16/6/15(水) 16:05 発言[未読]
【78271】Re:飛び飛びのセルに一次元配列を配列で代... himuro 16/6/15(水) 16:27 質問[未読]
【78274】Re:飛び飛びのセルに一次元配列を配列で代... β 16/6/15(水) 17:08 発言[未読]
【78281】Re:飛び飛びのセルに一次元配列を配列で代... himuro 16/6/16(木) 3:05 お礼[未読]
【78275】Re:飛び飛びのセルに一次元配列を配列で代... β 16/6/15(水) 17:17 発言[未読]
【78277】Re:飛び飛びのセルに一次元配列を配列で代... 亀マスター 16/6/15(水) 19:13 発言[未読]
【78282】Re:飛び飛びのセルに一次元配列を配列で代... himuro 16/6/16(木) 3:20 お礼[未読]

4090 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free