お世話になります。

今回、最後の問題でM行×N列ということに
目が言ってしまい、表現を調べて以下の
ような回答を作りました。

しかしながら、小川さんの過去コメント
（持っている道具だけで何とかする・・・的な（＾＾；　）
に触発されて、セミナーで出てきた内容だけで
（上記のM行×N列の考え方は同じで）作り直していました。

が、動画解説を見て、更に考えさせられ
ました。

一列単位の処理を拡張することで解ける問題から
発展させていくので無理がないと思いました。

最終的にやっていることは残業時間のセル同士を
比較するという意味では同じですが、

そこに至るプロセスで、

自分のできることから出発することで
一見手も足も出ない問題に対しても何らかの取っ掛かり
が見えてくるかもしれないと思いました。


=====
Sub zangyo2()
Dim zangyo
Dim shimei
Dim tsuki
Dim gyo
Dim retsu
zangyo = 0

For retsu = 2 To 7

For gyo = 6 To 33

If Range("a5").Offset(gyo, retsu).Value > zangyo Then
zangyo = Range("a5").Offset(gyo, retsu).Value
shimei = Range("a5").Offset(gyo, 1).Value
tsuki = Range("a5").Offset(0, retsu).Value
End If
Next

Next

Range("k4").Value = shimei
Range("l4").Value = tsuki
Range("m4").Value = zangyo



End Sub

=====

2014/08/09 21:39