Excel VBA質問箱 IV

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

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


67993 / 76738 ←次へ | 前へ→

【13292】Re:最終行の削除
回答  Mini  - 04/4/30(金) 15:21 -

引用なし
パスワード
   レスがないようなので。
これでいかがでしょうか?

---------------------------------------
Sub deleteLastRow()
  Dim lngLastRow As Long

  With Worksheets("Sheet1")
    lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Rows(lngLastRow).Delete Shift:=xlUp
  End With
End Sub

0 hits

【13223】最終行の削除 momomo 04/4/28(水) 12:53 質問
【13225】Re:最終行の削除 ぴかる 04/4/28(水) 13:14 回答
【13226】Re:最終行の削除 momomo 04/4/28(水) 13:59 質問
【13228】Re:最終行の削除 ぴかる 04/4/28(水) 14:10 回答
【13230】Re:最終行の削除 Asaki 04/4/28(水) 14:24 発言
【13288】Re:最終行の削除 ぴかる 04/4/30(金) 11:05 発言
【13292】Re:最終行の削除 Mini 04/4/30(金) 15:21 回答

67993 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free