rouber590324

DEAR SIR
  1.Sheet2.RANGE("B2") ¿é¤J¤ë
       Sheet2.RANGE("D2") ¿é¤J¦~
    2.³]«ö¶s°õ¦æ¦p¤U§Y¥i.

Sub AAAAAA()
Sheet2.Visible = True
Sheet2.[A3:F65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet2.[A65536].End(xlUp).Row + 1
For M = 2 To X
If Month(Sheet1.Cells(M, 1)) - Sheet2.Cells(1, 2) = 0 And Year(Sheet1.Cells(M, 1)) - Sheet2.Cells(1, 4) = 0 Then
Sheet2.Cells(Y, 1) = Sheet1.Cells(M, 1)
Sheet2.Cells(Y, 2) = Sheet1.Cells(M, 2)
Sheet2.Cells(Y, 3) = Sheet1.Cells(M, 3)
Sheet2.Cells(Y, 4) = Sheet1.Cells(M, 4)
Sheet2.Cells(Y, 5) = Sheet1.Cells(M, 5)
Sheet2.Cells(Y, 6) = Sheet1.Cells(M, 6)
Y = Y + 1
End If
Next
Sheet2.Select
Range("A1").Select
End Sub

rouber590324

SORRY §ÚµLªk¤W¶ÇÀÉ®×.
1.¤u§@ªí1 ¦P§A  ´£¨Ñ¤§ A-FÄ椺®e.
2.¤u§@ªí2
    B2 ªÅ¥Õ¨Ñ ¿é¤J¤ë
       D2 ªÅ¥Õ¨Ñ ¿é¤J¦~
3.³]«ö¶s°õ¦æ¥¨¶°§Y¥i.