Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

74046 / 76732

←次へ　｜　前へ→


	【7157】2表から項目一致なら合計し違ったら追加

ちーりん - 03/8/24(日) 16:11 -


	引用なし

	パスワード

初心者なのですが、聞く人もいず困っています。よろしくお願いします。

１シートにその日の作業No.と作業時間を作業日報として入力しています。
これを日々累計していきたいのですが、下記のようなマクロでは作業時間が累計されません。
ちなみに日々のシートではｈ列以降は個人の作業時間でｇ列はその合計です。（累計の方に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

2 hits

▼

【7157】2表から項目一致なら合計し違ったら追加 ちーりん 03/8/24(日) 16:11

≪