|
▼β さん:
>▼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
このようなコードを、配列を使うことにより効率化できるでしょうか。
|
|