[[20250224150222]]　『表を空白を更に削除』（まさと）　ページの最後に飛ぶ

『表を空白を更に削除』（まさと）

A1からF4000までの表があります
この表には品目などはなくいきなりA1から入力されます。
この表は上から順番に入力されます。
一番最終行より空白を念のため削除いつもします。
関係ないデーターが残っているとまずいので空白だろうが
入力されているセルの下の空白を4000までの下がって念のため
削除を一度必ずしております。
これをマクロでA列の最終行の入力を認識してそれより下の空白を
削除したいのですが可能でしょうか？
入力が必ずされるのはA列になります。
よろしくお願いします。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 こんにちは！
方法は、色々あると思いますし、トピ主さんも実践されているとは思いますが、
Ctrl+Shift+↓で一気に最終行まで選択出来ます。
それで十分な気もしますが、いかがでしょうか？

（SoulMan） 2025/02/24(月) 16:40:26

こんにちわぁ～。。。(*^ ^*)v
SoulManさんに賛成ですが暇でしたので。。。m(__)mでわ

 Option Explicit
Sub OneInstanceMain()
    Dim SrcWs, r, lR&
    Set SrcWs = Worksheets("Sheet1")
    With SrcWs
        lR = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        If lR > 4000 Then lR = 4000
        Set r = .Range(.Cells(1), .Cells(lR, 6))
        .Copy
    End With
    With ActiveSheet
        .Cells.Delete
        r.Copy .Cells(1)
    End With
End Sub
（隠居Z） 2025/02/24(月) 16:47:07

 こんにちは！
です。(^^;
いえいえ、ご苦労様です。
OneInstanceMain()　いいネーミングですねぇ
春が待ち遠しいですね。
今後ともよろしくお願いいたします。
（SoulMan） 2025/02/24(月) 17:01:34

 A列の最終セル～UsedRangeの最終行の範囲(同じ範囲である可能性はあるが、必ず在る)を
 １行だけOffsetした範囲をClearすれば十分な気がするなぁ。

 Sub Confirm()
     With ActiveSheet
        .Range(.UsedRange.Rows(.UsedRange.Rows.Count), .Cells(Rows.Count, "A").End(xlUp)).Offset(1).Clear
     End With
 End Sub

（半平太） 2025/02/24(月) 17:18:22

お二方とも、ありがとうございますぅ～
今後とも、宜しくお願い致します。m(_ _)m
まさと　さん　へ
半平太さん　のコードの方が、無駄がなく良いと思いますです。(*^^*)/////

（隠居Z） 2025/02/24(月) 18:37:26

皆様回答ありがとうございます。
早速使わせていただきます。
ありがとうございます。
（まさと） 2025/02/24(月) 20:36:55

コメント返信：

[ 一覧(最新更新順) ]

[[20250224150222]] 『表を空白を更に削除』（まさと） ページの最後に飛ぶ

[[20250224150222]]　『表を空白を更に削除』（まさと）　ページの最後に飛ぶ