- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 7# qaqa3296
¸Õ¸Õ¬Ý
Sub ex()
Dim c As Range
Dim a As Object
Dim ¤é´Á$
¤é´Á = Sheets("Form").[E2]
Sheets("¦¨ªG").Range([a2], [a2].End(4).Offset(, 5)).ClearContents
Set c = Nothing
With Sheets("¥Ø¼Ð")
For Each a In .Range(.[a2], .[a65535].End(3))
If (a.Offset(, 5) = "" Or a.Offset(, 5) > ¤é´Á) And (a.Offset(, 4) = "" Or a.Offset(, 4) <= ¤é´Á) Then
If c Is Nothing Then
Set c = a.Resize(, 6)
Else
Set c = Union(c, a.Resize(, 6))
End If
End If
Next
End With
c.Copy Sheets("¦¨ªG").[a2]
Set c = Nothing
End Sub |
|