Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12332 / 76734

←次へ　｜　前へ→


	【69928】マクロエラー

free - 11/9/24(土) 17:53 -


	引用なし

	パスワード

Private Sub 指定列がのセルに空白があったら行削除_Click()
Application.ScreenUpdating = False
Dim MaxRow As Long
Dim rc As Long
Dim i As Long
MaxRow = ActiveSheet.usedrange.Rows(.Rows.Count).Row '行番号
rc = InputBox("列を入力して下さい。")
　For i = MaxRow To 1 Step -1
　　If Cells(i, rc) = "" Then
　　 Rows(i).Delete
　　End If
　Next
Application.ScreenUpdating = True
End Sub

こんなコードを書いたのですが、エラーがでます。
with activesheet.usedrange
MaxRow =.Rows(.Rows.Count).Row
end with
これならいけるのですが。
違いがわかりません。
activesheet.usedrange.rows(.rows.count)はusedrangeの行になって最後に.rowをつける事によって全体の行番号になるのは理解出来るのですが。間違ってます？
最後の.rowはrowsにしなくていいのかな？rowsとrowの違いがいまいち。

素人ですみません。
誰か教えてください。
お願いします。

5 hits

▼

【69928】マクロエラー free 11/9/24(土) 17:53

≪