はじめまして。

質問

はじめまして。
マクロ初心者の者です。
下記のようなマクロは作ることができますか？
よろしければ、書き方を教えて下さい。
１．シートのB列には日付が入っていて、指定した日付でデータをソートする。
２．ソートしたデータの中で、同じレコードがあれば最新のデータの方を取得する。
３．上記の結果を別のシートにコピーする。

すみませんが、回答を宜しくお願いします。

回答No.5

layy

＞C列には、表に前回と同じレコードを追記した場合に加算する番号

ありがとうございます。

１）の日付で並べ替えした後で、
このＣ列の計算結果を見ると、どれを最新にしたらよいかわかってきます。
ここにも数式で表現できると良いです。

「次の行と今の行とで日付が同じ場合は、今の行は最新でない」
「前の行と今の行とで日付が違う場合は、前の行が最新である」
となります。

どの行が「最新」であるかが分かれば、
あとはフィルタで絞り込みできます。

日付で並べ替え
→（Ｅ列とかＦ列を使って）数式でどれが最新か判別
→フィルタで最新だけになるように絞り込み
→選ばれたもののみコピー
→他シートに貼り付け
全体の動きはこんな感じでどうでしょうか？。

サンプルコード回答もありますが、
できるところまで、
「マクロを記録」する操作でやってみてはどうでしょう。
今後も使うとしたらマクロの作り方も覚えなくてはなりませんし。
ここまで作ったマクロですが・・・でも構わないです。

回答No.4

myRange

こういった類の質問をするときは
質問者の実際のシートレイアウトを提示すべきです。
そうしないと回答者側でレイアウトまで推測提示してやることになります。

ま、それはそれとして。。。
やりかたはいくつかありますが参考サンプルということで。　

----------------------------------------------
（Sheet1のレイアウト）
見出し行：１行目
　　（Ａ列：色、Ｂ列：日付、Ｃ列：区分、Ｄ：品名
データ行：２行目以降

Sheet1をSheet2へ転記
但し、色が同じで同日は区分２を転記
---------------------------------------------
（コード内容）
日付、色、区分を昇順にソートする
条件を満たしたものを転記する
抽出結果を、品名、日付で昇順ソートする
---------------------------------------------
Sub test()
Dim R As Long
Dim R2 As Long

Sheets("Sheet1").Select
Range("A1").CurrentRegion.Sort _
　　Key1:=Range("B2"), Order1:=xlAscending, _
　　Key2:=Range("A2"), Order2:=xlAscending, _
　　Key3:=Range("C2"), Order3:=xlAscending, _
　　Header:=xlYes

Sheets("Sheet2").Cells.Clear
Rows(1).Copy Sheets("Sheet2").Range("A1")
R2 = 1

For R = 2 To Cells(Rows.Count, "A").End(xlUp).Row
　If Cells(R, "A") <> Cells(R + 1, "A") Or _
　　Cells(R, "B") <> Cells(R + 1, "B") Then
　　　　R2 = R2 + 1
　　　　Rows(R).Copy Sheets("Sheet2").Cells(R2, "A")
　End If
Next R

Sheets("Sheet2").Select
　　Range("A1").CurrentRegion.Sort _
　　Key1:=Range("D2"), Order1:=xlAscending, _
　　Key2:=Range("B2"), Order2:=xlAscending, _
　　Header:=xlYes

Msgbox "終了しました"
End Sub
'------------------------------------------　

以上です。

回答No.3

layy

聞き方が悪かったかもしれません。

今Ｂ列は日付ということですが、Ｃ列やＤ列、以右には何か入っていますか？。

Ａ列とＢ列しか情報がなかったら、
（マクロで）Ｃ列には１や２・・・と情報を付加する必要あり、
と思います。

補足

現在C列には、表に前回と同じレコードを追記した場合に加算する番号が入っています。
D列には、レコードを分類するグループ名が入っています。
E列には、レコードを追記した人の名前が入っています。

上記以外には列は存在致しません。
色々お手数をお掛けしますが、上記の件宜しくお願いします。

回答No.2

layy

１番下を最新とみなすのはわかりました。

Ａ列　Ｂ列
ｘｘ　2010/09/17
ｘｘ　2010/09/14
ｘｘ　2010/09/13
ｘｘ　2010/09/11
ｘｘ　2010/09/11
ｘｘ　2010/09/16
ｘｘ　2010/09/11

とあったら
３つの「2010/09/11」の１番上に来るのはどれ？、次はどれ？、１番下はどれ？、
となります。
日付の次に優先するもの何か、があると思います。
３行あったら何が１番下になるかわからないけど１番下のものを
取ればよい、でしょうか。

これによってＣ列のような作業列の数式が決まります。

補足

ご回答本当にありがとうございます。
上記の質問ですが、

Ａ列　Ｂ列　　　　　　C列　　D列
あか　2010/09/11　　 １　　クレヨン
くろ　2010/09/11　　 １　　えのぐ
しろ　2010/09/11　　 １　　クレヨン
くろ　2010/09/11　　 ２　　えのぐ
あお　2010/09/11　　 １　　クレヨン
しろ　2010/09/11　　 ２　　えのぐ

と、あった場合に、下記のような値でデータを
他のシートにコピーしたいです。

Ａ列　Ｂ列　　　　　　C列　　D列
あか　2010/09/11　　 １　　クレヨン
くろ　2010/09/11　　 ２　　えのぐ
あお　2010/09/11　　 １　　クレヨン
しろ　2010/09/11　　 ２　　えのぐ

レコードを取り出し他のシートにコピーする際は、
順序は下記のようにD列の値により、並べ替えをしたいです。

Ａ列　Ｂ列　　　　　　C列　　D列
あお　2010/09/11　　 １　　クレヨン
あか　2010/09/11　　 １　　クレヨン
くろ　2010/09/11　　 ２　　えのぐ
しろ　2010/09/11　　 ２　　えのぐ

色々情報が不足してご迷惑をおかけしています。
大変恐縮ですが、お願いします。

回答No.1

layy

質問のイメージでは
Ａ列　Ｂ列
ｘｘ　2010/09/17
ｘｘ　2010/09/14
ｘｘ　2010/09/13
ｘｘ　2010/09/11
ｘｘ　2010/09/11
ｘｘ　2010/09/16

が並べ替えで

Ａ列　Ｂ列
ｘｘ　2010/09/11
ｘｘ　2010/09/11
ｘｘ　2010/09/13
ｘｘ　2010/09/14
ｘｘ　2010/09/16
ｘｘ　2010/09/17

になります。

Ａ列　Ｂ列　　　　Ｃ列
ｘｘ　2010/09/11　1　　　
ｘｘ　2010/09/11　2　　　コピーするもの
ｘｘ　2010/09/13　1　　　コピーするもの
ｘｘ　2010/09/14　1　　　コピーするもの
ｘｘ　2010/09/16　1　　　コピーするもの
ｘｘ　2010/09/17　1　　　コピーするもの

と（最新に）マーキングしてコピー対象を決める。

Ａ列　Ｂ列　　　　Ｃ列
ｘｘ　2010/09/11　2　　　コピーする
ｘｘ　2010/09/13　1　　　コピーする
ｘｘ　2010/09/14　1　　　コピーする
ｘｘ　2010/09/16　1　　　コピーする
ｘｘ　2010/09/17　1　　　コピーする

「2010/09/11みたいに同じレコードがあれば、どちらが最新？」となります。
「2010/09/11」が同じとして、
どちらが上になるのかは、日付以外にもう１つの並べ替えキーがないと
なんとも言えないのではないでしょうか？。

１）３）の並べ替えとコピーについてはマクロはそう難しい処理ではありませんが
この「最新」をどう決めるかで処理が変わってきます。

今のままでは曖昧では？。

－－－－－－－－－－－－－－－－－－－－
マクロの書き方としては、
まず「マクロの記録」を操作すると、
ＶＢＡのコードが記録されます。
簡単な操作で試してどういうものかみておいてください。

補足

回答ありがとうございます。
確かに並べ替えのキーが不足していました。
曖昧な情報となってしまい、すみません。。
上記の例では、同日（2010/09/11）にC列のデータがあった場合、
「１」よりも「２」が最新となり、取得したいレコードとなります。
この場合どのようなマクロになるでしょうか？