エクセルで最新の日付の列データを抽出する事はできますか？

Question

VBAマクロでたとえば

A     B    C    D    E

1 2012/5 * * * 2019/4/3
2 2011/3/11
3 2012/2/13 2017/5/11
4 2012/3/7 2014/4/4 2018/12/25

となっていた場合希望する結果は

1 2019/4/3
2 2011/3/11
3 2017/5/11
4 2018/12/25

となって欲しいのですが、空白のセルを無視して、この様な抽出方法は

できますか？あるとすればどんなマクロを組むと良いのでしょうか？

コピー&ペーストだったらいくらでもできそうなんですが、そういった操作を記録して

いけば達成できるのでしょうか？

よろしくお願いします。

Answer 1

ハッキリ言って、「出来ます」。
日付を扱う「Date」という型を使い、「ソート」を行えば簡単に成功させれます。
プログラムは貴方の為にあえて載せません。それぐらいの事が出来ないとプログラマと名乗る事はおろか、社会人としても危ないからです。

引き続きVBAを頑張って下さい。

Comments

[ebifurai55]

ありがとうございます。精進します。

ところで実は言うと目的の最新の日付に関してはMAX関数で
オートフィルしたらできました。

後学のためDataをSortして結果を求める方法について教えていただけないでしょうか？

[stdio]

> DataをSortして結果を求める方法
酷い事を言いますが、私は貴方の上司でも教師でも親でもないのですから、それぐらいググれ!!

[ebifurai55]

言うと思いました。知ってるふりして僕に批判的なコメントをしないでくれますか？はっきり言って邪魔です。

[stdio]

すみません、貴方は知ってるふりと仰いましたが、「Date」という日付型の存在を知っているとか何者なんですかね？
知っているから、それ位ググればすぐに出ると申しているのですよ。

Answer 2

どんなマクロを組むと良いのでしょうか？

Sub test()
    Dim i As Long
    Dim j As Long
    Dim m As Long
        
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For j = 1 To Cells(Columns.Count, 1).End(xlToLeft).Column
            If m < Rng.Cells(i, j).Value Then
                m = Rng.Cells(i, j).Value
            End If
        Next
        Cells(i, j + 1).Value = m
        m = 0
    Next
End Sub

Sub test1()
    Dim r As Range
    
    For Each r In ActiveSheet.UsedRange.Rows
        r(1, r.Columns.Count + 1).Value = WorksheetFunction.Max(r)
    Next
End Sub

Sub test2()
    With ActiveSheet.UsedRange
        With .Columns(.Columns.Count + 1)
            .Formula = "=Max(" & .Rows(1).Address(False, False) & ")"
            .Value = .Value
        End With
    End With
End Sub

test-ここの質問者さんがよく書こうとしているコード風に書いてみました。
（変数の使い方がこれぞプログラミングって感じですね）
test1-エクセルVBAなのでワークシートで使うMax関数をVBAで使って探してます
test2-エクセルなので、シート上に数式を入れてエクセル君に計算させたあと、数式を消すため値で上書きしてます。

処理速度でいったら下のコードほど速いかと思います。
動作確認してないので、上手く動かなかったらごめんなさいです。

参考になれば。。。

あぁ、ソートしてもいいけど当然元の表が崩れますよね？
別のシートに転記してから作業をして、
結果だけを持ってくるようにする工夫が必要になるかと思います。
やりかたは、Webで検索し、
その操作を「マクロの記録」機能でVBAに翻訳したら、
どんなコードになるかわかると思います。
わからない用語はとりあえずWebで検索してみて、
それでも解らなかったらその旨を告げて聞きましょう。

Comments

[ebifurai55]

ありがとうございます。疲れてたので助かります。またよろしくお願いします。貴方の様に親切な方が多い世の中になって欲しいです。大上段で煽る人もいる中まるで仏様のようです

[mattuwan]

僕は単に横槍を入れただけです。
文字だけのコミュニケーションだと、厳しい意見を余計にきつく感じることも多々あります。
深刻に受け止める必要はないですが、忠告は真摯に受け止めるべきです。
この回答を読んで、本気で勉強する気になってくれたら幸いです。

[mattuwan]

P.S.
＞あるとすればどんなマクロを組むと良いのでしょうか？
基本的に↑のような質問の仕方は、どこのサイトでもルール違反です。
マクロの作成依頼と同意と読めるからです。
とはいえ、そこを突っ込んでも仕方ないと思うので、サンプルを書きました。
今一度、質問ポリシーを読んで下さい。

Answer 3

列数がどの程度かわかりませんが
あらかじめ大きめの範囲を指定しておけば
VBAを組まなくともMAX関数で出来ます