Excel VBA質問箱 IV

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

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


62683 / 76732 ←次へ | 前へ→

【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 質問
【18654】Re:最終行データを先頭行へコピーペースト... [名前なし] 04/10/3(日) 10:21 回答
【18655】Re:最終行データを先頭行へコピーペース... EBI 04/10/3(日) 15:11 質問
【18657】Re:最終行データを先頭行へコピーペース... Hirofumi 04/10/3(日) 16:38 回答
【18662】Re:最終行データを先頭行へコピーペース... EBI 04/10/3(日) 21:30 お礼

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