エクセルの種類ごとの最後の時間

質問

エクセルの種類ごとの最後の時間

エクセルで下のような内容について誰か教えて下さい。

　　　A　　　　　B　　　　C　　　　　結果
2010/7/27　　8：00　　1111　　　　　　　　　2010/7/27　2010/7/28
2010/7/27　　8：01　　2222　　　　　1111　　　8：02　　　　8：06
2010/7/27　　8：02　　1111　　　　　2222　　　8：01　　　　8：05
2010/7/28　　8：00　　2222　　→　　
2010/7/28　　8：03　　1111
2010/7/28　　8：05　　2222
2010/7/28　　8：06　　1111

日付ごとにCの数字の最後の時間を求めたいのですが、関数でもマクロでも構いませんのでよろしくお願いします。

回答No.5

imogasi · ベストアンサー

＞種類ごとの最後の時間
この意味があいまい。時間的に「後」でなくて、シートに記録行的に一番下というなら、
ピボットは使えないのかなと思った。ピボットのデータに最後（LAST）はない。
追加列D列に連番を振り
A列　　B列　　℃列　　D列
2010/7/27 8:00 1111 1
2010/7/27 8:01 2222 2
2010/7/27 8:02 1111 3
2010/7/28 8:00 2222 4
2010/7/28 8:03:00 1111 5
2010/7/28 8:05:00 2222 6
2010/7/28 8:06:00 1111 7
A,C,Dでこの順序で並べ替え
2010/7/27 8:00 1111 1
2010/7/27 8:02 1111 3
2010/7/27 8:01 2222 2
2010/7/28 8:03:00 1111 5
2010/7/28 8:06:00 1111 7
2010/7/28 8:00 2222 4
2010/7/28 8:05:00 2222 6
コード
日とコードの単位で最後に出てきたデータを拾うロジック。
H,I、J列に結果。
Sub test01()
d = Range("A65536").End(xlUp).Row
k = 1
For i = 1 To d
If Cells(i, "A") = Cells(i + 1, "A") Then
If Cells(i, "C") = Cells(i + 1, "C") Then
GoTo nxt
Else
GoTo w1
End If
End If
w1:
Cells(k, "H") = Cells(i, "A")
Cells(k, "I") = Cells(i, "B")
Cells(k, "J") = Cells(i, "C")
k = k + 1
nxt:
Next i
End Sub
---
H-J列に
2010/7/27 8:02:00 1111
2010/7/27 8:01:00 2222
2010/7/28 8:06:00 1111
2010/7/28 8:05:00 2222
ーーーーーー
時刻の一番遅いものなら
A,C,Bの順にソート
コードは同じで良いようだ。同じく各単位で最後に出現するものを拾う。
質問はコードが横方向に流れているが、プログラムを改良する必要はあるが、とりあえず略。

お礼

時刻がコードとしてのデータでしたので参考になりました。ありがとうございました。

回答No.4

mt2008

ANo.3です。
ちょっと訂正

誤：その際、日付の最大値を表示するようにする。
↓
正：その際、時刻の最大値を表示するようにする。

回答No.3

mt2008

各列に項目名を付けてピボットテーブルで集計。
その際、日付の最大値を表示するようにする。

お礼

わかりやすい説明ありがとうございました。

回答No.2

web2525

=SUMPRODUCT(MAX(($A$1:$A$7=日付セル)*($C$1:$C$7=数値セル)*$B$1:$B$7))

こんな感じかな

お礼

ありがとうございました。

回答No.1

某HN クロメート(Chromate)（@CoalTar）

求めたい結果が、解説だけでは不明ですが、
2通り考えられたのでどちらかでしょう。

解釈1
F2セル
=MAX(IF($A$1:$A$7= F$1,IF($C$1:$C$7= $E2,$B$1:$B$7)))
[Ctrl]+[Shft] ＋[Enter] で確定、配列数式です({}で囲まれる)
右へ 下へオートフィル

解釈2
=LOOKUP(2,IF($A$1:$A$7=F$1,IF($C$1:$C$7=$E2,$B$1:$B$7)))
[Ctrl]+[Shft] ＋[Enter] で確定、配列数式です({}で囲まれる)
右へ 下へオートフィル

添付図 黄色のセル

解釈1の場合タイトル行があればピボットテーブルで最大値でもいいかも

お礼

早い回答ありがとうございました。