|
mumumuさんのご質問の”【5734】挿入を繰り返したいのですが”
と似たような事をしたいのですが↑を見ても分からなかったので教えて下さい。
(環境 Win95 EXCEL2000)
データが入る予定の行が441あります。
まず64行目の行を削除して441行目に達するまで62行おきに行を削除し、
その後ある処理が完了したら 同じ場所に行を挿入して元にもどす作業をしたいのです。
とりあえず削除の作業を下のように作ってみたのですが、
Worksheets(1).Rows(delrows).selctの箇所で
”オブジェクトは、このプロパティまたはメソッドをサポートしてません”
というエラーが出てしまいます。
(この部分が実行できないので、それ以下の部分は確認もとれてません)
行を変数で扱う時は、どのようにしたらよいのでしょうか??
初歩的な質問ですみません…。
Private Sub CommandButton1_Click()
Dim delrows As Integer '削除する行番号
delrows = 64
Dim delrowsx As Integer '削除した行数
delrowsx = 0
Do
Worksheets(1).Rows(delrows).selct
Selection.Delete Shift:=xlUp
delrows = delrows + 62
delrowsx = delrowsx + 1
Loop Until delrows > 441 - delrowsx
End Sub
以上です。よろしくお願い致します。
|
|