No.3ベストアンサー
- 回答日時:
一例です。
ちなみにB列が昇順でなかった場合、一番下に来る日付の行に合計がはいります。(昇順であれば気になる事ではありませんけど)
Sub megu()
Dim myDic As Object
Dim r As Range, str As String
Dim key, v
Set myDic = CreateObject("Scripting.Dictionary")
For Each r In Range("B2", Cells(Rows.Count, "B").End(xlUp))
str = Format(r.Value2, "yyyy/m/d")
If Not myDic.Exists(str) Then
myDic.Add str, Array(r.Range("L1").Address, r.Range("J1").Value2)
Else
v = myDic(str)
v(0) = r.Range("L1").Address
v(1) = v(1) + r.Range("J1").Value2
myDic(str) = v
End If
Next
For Each key In myDic.Keys
v = myDic(key)
Range(v(0)).Value = Format(v(1), "hh:mm")
Next
Set myDic = Nothing
End Sub
No.2
- 回答日時:
M2でした
=SUMPRODUCT((TEXT($B$2:$B$50000,"yyyy/mm/dd")=TEXT(B2,"yyyy/mm/dd"))*$K$2:$K$50000)
を入れて下にコピーでは
この回答へのお礼
お礼日時:2020/03/23 10:09
ありがとうございます。
関数式でもできるんですね。勉強になりました。
今回かVBAで操作が行いたかったので№3の方をBAにさせて頂きます。
ありがとうございます。
No.1
- 回答日時:
B2
=SUMPRODUCT((TEXT($B$2:$B$50000,"yyyy/mm/dd")=TEXT(B2,"yyyy/mm/dd"))*$K$2:$K$50000)
を入れて下にコピーでは
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル 条件に合う日付に入力された時間数の合計したい 4 2022/06/17 22:18
- Excel(エクセル) セルに特定の色が出た時だけ、式を発動させたい 4 2022/06/17 10:32
- Excel(エクセル) 月間シフト表から総勤務時間を計算する関数 4 2023/05/20 07:12
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) エクセルシートの合計の変動 5 2022/04/05 15:56
- Excel(エクセル) マクロ/VBAについて教えてください。 10 2022/05/27 12:59
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルの関数について 5 2023/01/26 15:26
- Excel(エクセル) 表計算ソフトcalcにおいて、1時間10分を1.1と表記する方法とそれらを集計する方法は? 4 2022/04/06 16:54
- Excel(エクセル) Excel関数で日またぎの勤務時間にしるしを立てる 2 2022/04/20 17:22
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで表
-
【マクロ】for next構文について
-
職場の人から聞かれており、こ...
-
ユーザー定義関数をアドイン登...
-
PDFの請求明細をエクセルにしたい
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
エクセルの関数について教えて...
-
エクセルで不等号記号(≠)が上に...
-
スプレッドシート、Excelでの数...
-
スプレッドシートで使う数式を...
-
Excelで50個のセルに同じ文字を...
-
[オートフィルタ]で抽出された...
-
エクセルの問題です。絶対値の...
-
エクセル関数を教えてください
-
各ページの1番上の表示について
-
Microsoft Officeの中古は信用...
-
pdfの表をexcelにはりつけて計...
-
Excelのif関数で文字が見えなく...
-
Excel 2019 は、SPILL機能があ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報