ExcelVBA 連続した定数配列を… その他

質問

Excel2003VBAです。
幾つか解ってないことに気づきましたので、
ご教示頂ければ助かります。

一、
シート関数に頼らず、ループに頼らず、変数に頼らず、
｛1，2，3，4，…｝と、いった
指定する任意最大値の
連続した数列を取得する方法。

二、
配列数式的Replaceの使い方（一括して複数の単語を置換することは可能ですか?）

三、
シートのコピー

まず一、　連続した数値
2を指定した場合
{1,2}

7を指定した場合
{1，2，3，4，5，6，7}

・
・
・

シート関数だと、例えば
=row(a1:a5)
とかしますが
VBAではどうすれば出来ますか？

次に二、　一括して複数の単語を置換することは可能ですか?
Replace（range("A:A").value,array("リンゴ","メロン","洋ナシ"),array("リンゴ＿","メロン＿","洋ナシ＿")
今回はアレー関数を使い、示しましたが、これに限らず
一括して置換対象を指定することは可能ですか?

三、シートのコピ－
同様に、
Dim　S1　as　Variant,　S2　as　Variant
S1　=　Array("シート1","シート2","シート3")
S2　=　Array("しーと1","しーと2","しーと3")
sheets(S1).Copy　Sheets(S2)
的な、こんな雰囲気な事ってできるのですか?

宜しくお願いします。

回答No.1

ap_2 · ベストアンサー

VBAは配列処理が弱いため、基本はループ。処理速度が気になるなら、セルの読み書き頻度だけ気をつければ大丈夫です。
また、置換えやコピーは「関数の仕様」なので、教科書どーり使ってあげてください。

以下にざっくり。足りなければ補足質問でどーぞ。

一) VBAに定数配列はないです。
代入頻度を減らすならStatic変数を使うといいです。書き換えを嫌うなら関数化で。

二) １単語ずつ繰り返しです。

三) いずれも要ループです。
・三の一
WorksheetFunctionというのもありますが全関数を使えるワケではなく、.Rowはダメです。変に小技を使うよりループした方が安全で早いです。
・三の二
場合によっては、正規表現(RegExp)が使えます。
・三の三
Copyはできますが、個別にリネームが必要。
　sheets(S1).Copy before:=sheets(1)
　sheets(1).Name = "しーと1"
まぁ、手操作できるコト(記録可能)しか出来ない、くらいの認識でよいと思います。実際そんなもんなので。
詳しく知りきゃ、オブジェクトをおべんきょ。
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.sheets_members(v=office.11).aspx

お礼

有り難うございます。

毎度ですが、
Excelの折角の並列処理能力が
活かせないので残念です。