【Excel】VBAのサンプルを一部修正したいのですが…

質問

http://www.geocities.jp/ttak_ask/office_docu/ef6.html
こちらのサイトにサンプルが記載されています。
これを使いたいのですが、サンプルは統合するファイルの見出し行を1行としているのに対し、私は2行としたいのです。

書かれている内容を自分なりに解析し、あちこち色々変えてテストしてみたのですが、どうもうまくいきません。

詳しい方、どうかよろしくお願いします。

回答No.3

n-jun · ベストアンサー

＃１＆２です。

＞○　3行目以降からペーストしたい
やっぱ勘違いしちゃいました。

meMaxR = Myrec(c)
を
meMaxR = IIf(Myrec(c) = 1, 2, Myrec(c))
ですかね。

お礼

いえ、読み返してみると、こちらの書き方も非常にあいまいでした。
申し訳ございません。

それで、この方法でできました！
IIf関数なるものは初めて知りました、勉強になります。
ご回答ありがとうございました。

回答No.4

eku_abo

サンプルは見出しを１としか考慮していないので、単純に変更するならば

f = 3にして

以下のコードを

---------------------------------------------
.Range(.Cells(meMaxR + 1, 1), _
.Cells(meMaxR - 1 + opMaxR, maxc)).Value = _
ActiveSheet.Range(ActiveSheet.Cells(f, 1), _
ActiveSheet.Cells(opMaxR, maxc)).Value
---------------------------------------------
↓

---------------------------------------------
.Range(.Cells(meMaxR + 1, 1), _
.Cells(meMaxR - 2 + opMaxR, maxc)).Value = _
ActiveSheet.Range(ActiveSheet.Cells(f, 1), _
ActiveSheet.Cells(opMaxR, maxc)).Value
---------------------------------------------

に変更すれば動作すると思われます。

お礼

＃３さんの方法で解決致しました。
作っているものは、ここで質問した以外にもあちこちコードを変えていますので、この内容でテストはしていませんが、勉強のため読み解いてみます。
ご回答ありがとうございました。

回答No.2

n-jun

＃１です。

＞f = 1
＞にすると言う事では？
転記元の３行目からなら
f = 3
かな？

回答No.1

n-jun

f = 2
を
f = 1
にすると言う事では？

お礼

早速のご回答ありがとうございます。
ただ、fは統合「元」のファイルの行数を入れる変数ではないかと思うのですが…
統合「先」の見出し行を2行とし、3行目以降からコピーしたいのが今回の目的です。

補足

すみません、お礼の内容に語弊があります。
×　3行目以降からコピーしたい
○　3行目以降からペーストしたい