3

単純な vba コマンドと思われるものにいくつか問題があります。

Worksheets("Sheet").Range("namedrange_d").Resize(0, 4).Offset(6, 0).Copy _
  Destination:=Worksheets("Sheet1").Range("namedrange").Resize(0, 4).Offset(6, 0)

デフォルトの範囲を 5 セル幅、つまり参照セルの 7 セル下にコピーしたい ( namedrange_d)。構文の問題は何ですか？

4

3 に答える 3

9

ゼロはサイズ変更の有効な引数ではありません。範囲の元のサイズを維持したい場合は、単に引数を省略してください。それ以外の場合は、行と列の数を明示的に指定する必要があります。元の行数を維持する方法は次のとおりです

Worksheets("Sheet").Range("namedrange_d").Resize(, 4).Offset(6, 0).Copy _
  Worksheets("Sheet1").Range("namedrange").Resize(, 4).Offset(6, 0)
于 2013-04-08T15:05:24.643 に答える