Excel VBA質問箱 IV

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

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


62686 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   入力されているデータの値だけをクリアするマクロがあります。(以下はそのコードです)
このクリアする時に、最終行の値を最初の行へコピーペーストしたいと考えています。
これをマクロの中で行うにはどうすればいいでしょうか。
(以下の例では6行目のデータを4行目へコピーする)
表の内容は”預金通帳”の様なものとみて頂ければ結構です。
「出」「入」は数値だけ。「残高」はその出入りを計算する数式が入っています。
INDEX関数、MATCH関数で出来ると思うのですが悩んでいます。
よろしくお願いします。


Sub 年度経過削除()
Dim BtNum As Integer
BtNum = MsgBox("年度変更によりデータを削除します。", _
vbOKCancel + vbExclamation, "年度更新")
If BtNum = 2 Then Exit Sub
Dim RR As Long, r1 As Range
  With ActiveSheet
   For RR = 4 To 20
     If .Cells(RR, 2).Value < "cells(2,9)" Then
      On Error Resume Next
      Set r1 = .Rows(RR).SpecialCells(xlCellTypeConstants)
      If Not r1 Is Nothing Then r1.ClearContents
      On Error GoTo 0
      Set r1 = Nothing
     End If
   Next
  End With

End Sub

--------------------------------------------------------------------
2                    =TODAY()
3 日付   出    入    残高
4     2000   5000    200000
5          1000    201000
6      500         200500
7
8

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 お礼

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