|
入力されているデータの値だけをクリアするマクロがあります。(以下はそのコードです)
このクリアする時に、最終行の値を最初の行へコピーペーストしたいと考えています。
これをマクロの中で行うにはどうすればいいでしょうか。
(以下の例では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
|
|