併合
■CurrentRegionプロパティ
あるセルを起点としてデータの連続領域を返す。
■copy メソッド
引数がない場合はコピー元のオブジェクトをクリップボードにコピー。
引数がセルの場合は、セルにコピーする。
■Resize
resize(rowsize,columnsize)
指定されたセル範囲をかえす。
■cells(3,1).end(xldown).offset(1,0)
セル(3,1)の終端行End(xldown)の次の行
offset(1,0)をコピー先に
Option Explicit
Sub 併合()
Dim N As Integer
Worksheets(“元帳”).Activate
Cells(3, 1).CurrentRegion.Clear
Worksheets(“銀行預金”).Cells(3, 1).CurrentRegion.Copy Cells(3, 1)
With Worksheets(“現金”).Cells(3, 1).CurrentRegion
.Offset(1, 0).Resize(.Rows.Count – 1, .Columns.Count).Copy Cells(3, 1).End(xlDown).Offset(1, 0)
End With
Cells(4, 6).FormulaR1C1 = “=RC[-2]-RC[-1]”
N = Cells(4, 1).End(xlDown).Row
Range(Cells(5, 6), Cells(N, 6)).FormulaR1C1 = “=R[-1]C+RC[-2]-RC[-1]”
End Sub