Excelの行の抽出について質問です。

質問

Excelの行の抽出について質問です。
シート1にA列に受付番号、B列に会社名、C列に建築確認月と項目をつくり建築月は「2010年７月」と
いうようにそれぞれの月を入力します。
シート2にはA列に「当月確認」「当月以降確認」「当月以前で未確認」の項目の表をつくり、
「2010年７月」とういうリスト形式でセルに入力し、月がかわるごとにこのセルに関連して１発で行ごと仕分けする方法はありませんか？

回答No.4

soixante · ベストアンサー

すみません、＃３の続きはコレです。

'--------------------------------------------------------------
r = 2
Do While Cells(r, 1).Value <> ""
If Ws1.Cells(r, 3).Value < Tsuki Then
LstRow = Ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Ws2.Cells(LstRow, 1).Value = "当月以前で未確認"
Ws2.Cells(LstRow, 2).Value = Ws1.Cells(r, 2).Value
Ws2.Cells(LstRow, 3).Value = Ws1.Cells(r, 3).Value
End If
r = r + 1
Loop
EdRow = LstRow + 1
Set Rng = Range(Cells(StRow, 1), Cells(EdRow, 3))
Rng.Sort _
Key1:=Cells(StRow, 3), _
Order1:=xlDescending, _
Key2:=Cells(StRow, 2), _
Order2:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=1, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin
Set Rng = Nothing
Set Ws1 = Nothing
Set Ws2 = Nothing
End Sub
'--------------------------------------------------------------

ご意向にそぐえてますか、一度新規ブックにてお試しください。