|
▼Asaki さん:
ありがとうございます。
また聞きたいことがあって迷惑と思うけど許してくださるようお願いします。
もう少し完成なのでどうかよろしくおねがいします。
コピーの件はやはりエラーを出てしまいやめておきますがもし、あなたが
コピーの構文を追加してくればありがたいと存じます。
さて、追加したいところがありますが
シート3を5つの範囲で合計し、シート4に表示しますがコードを追加しましたが
エラーになるけどどこか悪いでしょうか?
またはいい方法があれば教えてくれませんか?
1.の範囲 (9列-25列)を合計し、シート4(31列)に表示。
2.の範囲 (29列-43列)を合計し、シート4(32列)に表示。
3.の範囲 (44列-54列)を合計し、シート4(33列)に表示。
4.の範囲 (32列-34列)を合計し、シート4(34列)に表示。
5.の範囲 (38列-43列)を合計し、シート4(35列)に表示。
'変換後データ格納セルをクリア、セル範囲を変数に設定
'項目名コピー
With Worksheets("シート3")
Set rngRes = .Range(rngOrg.Address)
.UsedRange.Clear
ActiveSheet.Paste
.Cells(2, 1).Resize(rngOrg.Rows.Count).Value = rngOrg.Resize(, 9).Offset(, -8).Value
For k = 2 To Range("A65536").End(xlUp).row
Worksheets("シート4").Cells(k, 31).Value = WorksheetFunction = "=Sum(Range(Cells(k, 9), Cells(i, 25))"
Worksheets("シート4").Cells(k, 32).Value = WorksheetFunction = "=Sum(Range(Cells(k, 29), Cells(i, 43))"
Worksheets("シート4").Cells(k, 33).Value = WorksheetFunction = "=Sum(Range(Cells(k, 44), Cells(i, 54))"
Worksheets("シート4").Cells(k, 34).Value = WorksheetFunction = "=Sum(Range(Cells(k, 32), Cells(i, 34))"
Worksheets("シート4").Cells(k, 35).Value = WorksheetFunction = "=Sum(Range(Cells(k, 38), Cells(i, 43))"
Next k
End With
|
|