|
別のシート(仮に Sheet2) に転記する、というのでよければ
Sub MyTotal()
Application.ScreenUpdating = False
With Sheets("Sheet2")
.Cells.ClearContents
Rows(1).Copy .Range("A1")
End With
Range("A1").Subtotal 1, xlSum, Array(2)
With Range("C2", Range("D65536").End(xlUp).Offset(1))
.SpecialCells(4).FormulaR1C1 = "=R[-1]C"
.Copy
.PasteSpecial xlPasteValues
End With
With Sheets("Sheet2")
Range("B2", Range("B65536").End(xlUp).Offset(-1)) _
.SpecialCells(3).EntireRow.Copy .Range("A2")
.Cells.RemoveSubtotal
With .Range("A:A")
.Font.Bold = False
.Replace "計", ""
End With
End With
Cells.RemoveSubtotal
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub
>テキストのデータ
テキストファイルからなら、Application.ScreenUpdating = False の次に
OpenTextメソッドで開いておきます。CSVなら Openメソッドで充分です。
いずれにしても別ファイルを開くことになるので、Sheets("Sheet2")には
ThisWorkbook.Sheets("Sheet2") と、転記先ブックへの参照を追加しておいて
下さい。開いたファイルは ActiveWorkbook.Close False で閉じて終了するように
します。
|
|