|
▼じ〜じゼミ さん:
こんばんは。
>始めまして。
>VBA、1年めの66歳のじ〜じです、外部sheets,に列を挿入したいのですが、
>sheets("あ").は、うまく行くのですが、sheets("い").はエラーになります、
>どうしたら挿入できますか?教えて下さい。
>
>
> Sheets("あ").Range("d1:d9000").Insert Shift:=xlToRight
> ri = 4
これ、最初は殆どの方が躓くところだと思います。
私もそうでした。
With Sheets("い")
.Range(.Cells(1, ri), .Cells(9000, ri)).Insert Shift:=xlToRight
End With
としてみてください。
ポイントはCellsプロパティを持っているオブジェクトは、Sheets("い")です。
よって、本来は、
Sheets("い").Range(Sheets("い").Cells(1, ri),Sheets("い").Cells(9000, ri)).Insert Shift:=xlToRight
なんです。
何度も記述するのが大変なので、Wihtを使って省略しました。
|
|