Excel VBA質問箱 IV

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

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


11920 / 13645 ツリー ←次へ | 前へ→

【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 回答[未読]

【13223】最終行の削除
質問  momomo  - 04/4/28(水) 12:53 -

引用なし
パスワード
   あるファイルを開いたときにそのファイルの一番下の行だけを消したいのですがどうすればいいでしょうか?

【13225】Re:最終行の削除
回答  ぴかる  - 04/4/28(水) 13:14 -

引用なし
パスワード
   momomoさん、こんにちは。

>あるファイルを開いたときにそのファイルの一番下の行だけを消したいのですがどうすればいいでしょうか?
次の操作をマクロ記録すればOKやと思います。
1.該当シートを選択
2.データ列の65536行を選択
3.[Ctrl][↑]キーを同時に押す
4.その行を選択し、クリア
5.上記マクロをちょっぴりアレンジして、Sub Auto_Open()に入れる

お試し下さい。

【13226】Re:最終行の削除
質問  momomo  - 04/4/28(水) 13:59 -

引用なし
パスワード
   ぴかるさんこんにちわ
早速の回答ありがとうございます。
>2.データ列の65536行を選択
実は最終行というのは入力されたセルの最終行という事なのです。説明不足ですいません。
よろしくお願いしますm(__)m

【13228】Re:最終行の削除
回答  ぴかる  - 04/4/28(水) 14:10 -

引用なし
パスワード
   そしたら、これでどうです?。
2.データ項目セルを選択
3.[Ctrl][↓]キーを同時に押す

【13230】Re:最終行の削除
発言  Asaki  - 04/4/28(水) 14:24 -

引用なし
パスワード
   こんにちは。

>>2.データ列の65536行を選択
>実は最終行というのは入力されたセルの最終行という事なのです。説明不足ですいません。
ぴかる さんの手順は、お試しになりましたか?
最終的に、65536行目を削除することになるわけではないですが?

【13288】Re:最終行の削除
発言  ぴかる  - 04/4/30(金) 11:05 -

引用なし
パスワード
   ほったらかし撲滅運動実施中!。そんでどうなったん?。

【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

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