| |
▼吉 さん：
>こんばんわ。
>
>下記のような表が、5列目〜31列目を会社A、32列目〜58列目を会社Bと26列毎に
>9会社あり、その会社毎に、日付と人の計を計算しています。
>どのようにしたら、早く処理させることが出来るのか、自分なりには考えてみたのですが、さっぱり分からないので、御教授をお願いします。
こんばんは
合計＝5列目から29列目までのSUMだとするとこんな感じでどうでしょうか？
とりあえず１社目だけ作ってみました。
もっと簡単に表記できそうな気もしてきましたが・・・もう寝ます。
9社作るには、cの値をFor NextとかSelect Caseとかでうまいことやってください。
Sub test()
Dim c As Long 'Columnの指定
Dim LRow As Long 'Ｄ列の最終行
With Worksheets(1)
LRow = .Range("D65536").End(xlUp).Row
c = 30
'合計
.Range(.Cells(4, c), .Cells(LRow, c)).Formula _
= "=SUM(" & .Cells(4, c - 25).Address(0, 0) & ":" & .Cells(4, c - 1).Address(0, 0) & ")"
'累計
.Cells(4, c + 1) = .Cells(4, c)
.Range(.Cells(5, c + 1), .Cells(LRow, c + 1)).Formula _
= "=" & .Cells(4, c + 1).Address(0, 0) & "+" & .Cells(5, c).Address(0, 0)
End With
End Sub
|
|
ハチ
- 06/5/14(日) 1:59 -
