Excel VBA質問箱 IV

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

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


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

62758 / 76807

←次へ　｜　前へ→


	【18654】Re:最終行データを先頭行へコピーペーストは？

[名前なし] - 04/10/3(日) 10:21 -


	引用なし

	パスワード

▼EBI さん：
下の部分を追加したら出来ると思います。

>Sub 年度経過削除()
> Dim BtNum As Integer
> BtNum = MsgBox("年度変更によりデータを削除します。", _
> vbOKCancel + vbExclamation, "年度更新")
> If BtNum = 2 Then Exit Sub
> Dim RR As Long, r1 As Range
　Dim LastRow As Long
　　LastRow = Cells(21, 2).End(xlUp).Row 'B列の最終行を取得
>　 With ActiveSheet
>　　　For RR = 4 To 20
　　　　 If .Cells(RR, 2).Value < .Cells(2, 9).Value Then '←ここ変えました。
>　　　　　　On Error Resume Next
>　　　　　　Set r1 = .Rows(RR).SpecialCells(xlCellTypeConstants)
　　　　　　If RR = LastRow Then
　　　　　　　　r1.Copy
　　　　　　　　Cells(4, 2).PasteSpecial
　　　　　　　　Application.CutCopyMode = False
　　　　　　End If
>　　　　　　If Not r1 Is Nothing Then r1.ClearContents
>　　　　　　On Error GoTo 0
>　　　　　　Set r1 = Nothing
>　　　　 End If
>　　　Next
>　 End With
>
>End Sub

0 hits

▼

【18651】最終行データを先頭行へコピーペーストは？ EBI 04/10/3(日) 9:12