|
現在使用しているマクロでは下のようなにある特定の行を行列変換させているのですが、回数がもの凄く多いので、処理に時間がかかってしまいます。そこで、これをB1〜B5までのデータを行列変換を使わずに、変数に収めてから違うシートに値としていれようと考えています。
この場合、行数が100行ほどあるので、変数は100個も宣言しなければならないのでしょうか?また、この方法は実際にコピーをしてから行列変換をするより早くなるのでしょうか?
A1B1C1
A2B2C2
A3B3C3
A4B4C4
A5B5C5
↓
(A列,B列消去)
↓(行列変換)
B1B2B3B4B5
(今使っているマクロ)
Sheets("作業領域").Activate
Columns("A").Delete SHIFT:=xlToLeft
Columns("B").Delete SHIFT:=xlToLeft
Sheets("作業領域").Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("結果").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,_
SkipBlanks:=False, Transpose:=True
|
|