|
初心者なのですが、聞く人もいず困っています。よろしくお願いします。
1シートにその日の作業No.と作業時間を作業日報として入力しています。
これを日々累計していきたいのですが、下記のようなマクロでは作業時間が累計されません。
ちなみに日々のシートではh列以降は個人の作業時間でg列はその合計です。(累計の方にCOPYしてないから?)
For i = 6 To 25
Set matchcell = ws1.Range("b6:b" & lastrow).Find(ws2.Range("b" & i), _
lookat:=xlWhole, MatchCase:=True)
If matchcell Is Nothing Then
ws2.Range("b" & i & ":g" & i).Copy _
ws1.Range("b65536").End(xlUp).Offset(1, 0)
Else
k = matchcell.Row
ws2.Range("g" & i).Copy
ws1.Range("g" & k).PasteSpecial _
Paste:=xlPasteValues, _
operation:=xlPasteSpecialOperationAdd
End If
Next i
|
|