Excel 2007 VBAでテキストBOXがコピーできない

質問

Excel　2007　VBAでテキストBOXがコピーできない

顧客の各々に送付する手紙を作成するファイルを作っております。
ファイル容量が大きいので、マクロで必要手紙を作ろうとしております。
　　Sheet1　・・・　顧客名簿。A列は通し番号。
　　Sheet2　・・・　顧客用の手紙。（テキストＢＯＸ併用）
手紙は20行で1通。A1～K20が１頁目、A21～K40が２頁目になるよう雛形を作成し、
必要枚数分だけ、21行目に挿入して増やそうと考えました。

そこで下記のようにマクロを作成しました。
自宅（Excel　2003）では成功したのですが、会社（Excel　2007）ではテキストＢＯＸ
がコピーされず困っております。
（最初の１通目はコピーできるのですが、２通目以降にコピーできません）

　　Dim 資料数 As Integer
　　Dim 複写数 As Integer
　　Sub Mc1_ページ増()
　　 資料数 = Application.WorksheetFunction.Count(Range("Sheet1!A2:A65536"))
　　Worksheets("Sheet2").Select
　　複写数 = (資料 - 2) * 20
　　Rows("21:40").Copy
　　Rows("21:21").Resize(複写数).Insert Shift:=xlDown
　　End Sub

何処がダメなのでしょうか？　ご教授頂けると助かります。
分かる方いらっしゃいましたら、よろしくお願いします。

回答No.1

takana_ · ベストアンサー

おっしゃる通り、手動で挿入を実行してみましたが、
Excel2003ではテキストボックスが複数複製されますが、
Excel2007ではテキストボックスが1個しか複製されないようです

どうやらマクロが問題ではなく仕様のようです。

なのでマクロを改造して
Rows("21:21").Resize(複写数).Insert Shift:=xlDown
をループで複写数回数実行させればどうですか？

こんな感じ（未検証）
FOR i=1 TO 複写数
Rows("21:40").Copy
Rows("21:21").Insert Shift:=xlDown
NEXT

お礼

ご回答頂き有難うございます。
変数（複写数）の値計算を変更する必要がありましたが、FOR TO を使う事でテキストボックスの複製ができました。
ただ複製する回数が100件を超える為、時間が掛かり過ぎるのが難点でしたので、今回はテキストボックスを使用しない方向で工夫しようかと思います。
しかし、やはり2003と2007では仕様が違うのですね。ご回答頂けた事でその事が理解できたので、今後のマクロ作成で下手に悩まずに済みそうです。
有難うございました。