Excel VBA質問箱 IV

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

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


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

62755 / 76807

←次へ　｜　前へ→


	【18657】Re:最終行データを先頭行へコピーペース...

Hirofumi - 04/10/3(日) 16:38 -


	引用なし

	パスワード

此れでどうかな？

Sub 年度経過削除()

　　Dim RR As Long, r1 As Range
　　Dim lngListEnd As Long
　　
　　If MsgBox("年度変更によりデータを削除します。", _
　　　　　　vbOKCancel + vbExclamation, "年度更新") = vbCancel Then
　　　　Exit Sub
　　End If
　　
　　With ActiveSheet
　　　　lngListEnd = .Cells(65536, "B").End(xlUp).Row
　　　　If lngListEnd < 4 Then
　　　　　　Exit Sub
　　　　End If
　　　　.Cells(4, "B").Resize(, 7).Value _
　　　　　　　　= .Cells(lngListEnd, "B").Resize(, 7).Value
'　　　　For RR = 4 To 20
　　　　For RR = 5 To lngListEnd
　　　　　　If .Cells(RR, 2).Value < .Cells(2, 9).Value Then '★？
　　　　　　　　On Error Resume Next
　　　　　　　　Set r1 = .Rows(RR).SpecialCells(xlCellTypeConstants)
　　　　　　　　If Not r1 Is Nothing Then
　　　　　　　　　　r1.ClearContents
　　　　　　　　End If
　　　　　　　　On Error GoTo 0
　　　　　　　　Set r1 = Nothing
　　　　　　End If
　　　　Next RR
　　End With

End Sub

0 hits

▼

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