| |
▼さや さん：
おはようございます。
>
>1.A列に数値が入力されています｡数値は昇順で､連番です｡ (ダブりはありません)
>
>2.A列に対応して､C列に日付が入力されます｡これも昇順ですが､ダブりがあります｡
>
> 例えば、2007/1/1がC1からC10に同じく入力、2007/1/27がC50からC54に入力され ています。
>
>3.A列を､下記の条件でsheet2のV列のセルV6を先頭とするセルにコピーしたい｡
>
> 条件・・Ｃ列に入力される最新の日付（１番新しい日付）に対応している、Ａ列 のセルだけをコピーする。
> 2.の例だとA50からA54だけをコピーする｡
例えば、Sheet1のＡ、Ｃ列には、
Ａ Ｂ Ｃ
１ 1 2007/1/27
２ 2 2007/1/27
３ 3 2007/1/27
４ 4 2007/1/27
５ 5 2007/1/28
６ 6 2007/1/29
７ 7 2007/1/30
８ 8 2007/1/31
９ 9 2007/2/1
１０ 10 2007/2/2
１１ 11 2007/2/3
１２ 12 2007/2/3
１３ 13 2007/2/3
１４ 14 2007/2/3
１５ 15 2007/2/3
というデータがあるとすると、
最新の日付は、上記の条件だと入力されているデータの最終行（Ｃ１５）から
順に上の行を調べていきます。
すると、１０行目で日付が１５行目と違っています。
日付が変わった時点で、取得するセル範囲として、日付が変わる直前までの
１１行目から１５行目までのデータを移行します（つまり、A11から、A15）。
標準モジュールに
'==============================================
Sub main()
Dim rw2 As Long
Dim rw1 As Long
Dim newdate As Date
With Worksheets("sheet1")
rw2 = .Cells(.Rows.Count, "a").End(xlUp).Row
newdate = .Range("c" & rw2).Value
For rw1 = rw2 - 1 To 1 Step -1
If .Range("c" & rw1).Value <> newdate Then Exit For
Next rw1
.Range(.Cells(rw1 + 1, 1), .Cells(rw2, 1)).Copy
Worksheets("sheet2").Range("v6").PasteSpecial xlValue
Application.CutCopyMode = False
End With
End Sub
そろそろループ処理の考え方に慣れていきましょう。
|
|
ichinose
- 07/1/27(土) 8:49 -
