ActiveSheet.Range ¥i¥H³]©w ¦hÓ¥ý«á±o¿zÅã±Æ§Ç¶Ü?
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-5-8 08:59 ½s¿è
¤j¤j §Ú¹J¨ì¤@Ó°ÝÃD
¦pªG»¡¿z¿ï¥X¨Óªº¸ê®Æ ¨S¥b¤ñ¸ê®Æ ¥¨¶°·|¥X²{¿ù»~
°±¯d¦b ActiveSheet.Paste ¸ò§A»¡¿ù»~ ¨º¸Ó«ç»òקï©O
ÁÂÁÂ
Sub ¥¨¶°9()
'
' ¥¨¶°9 ¥¨¶°
'
Dim row_s1 As Integer
'Àˬd¤u§@ªí1ªºBÄæ¤w¦³¸ê®Æ¦æ¼Æ
row_s1 = Worksheets("¬ö¿ý-©P¦P¶b¶^").Range("B65535").End(xlUp).Row
'B1µL¸ê®Æ®É¡Arow_s1 =0
If row_s1 = 1 Then
If Cells(row_s1, 2) = "" Then
row_s1 = 0
End If
End If
Sheets("¶°¦X").Select
' ActiveSheet.Range("$A$1:GZ$55586").AutoFilter Field:=2, Criteria1:= _
' xlFilterToday, Operator:=xlFilterDynamic
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=18, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=20, Criteria1:=">=1000"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=25, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=26, Criteria1:="<=-2"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=15, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=7, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=6, Criteria1:="<=0"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=29, Criteria1:=">=50"
ActiveSheet.Range("$A$1:GZ$100000").AutoFilter Field:=30, Criteria1:=">=50"
Range("a2:gz2").Select '²Ä¤GÄæa2~gz2
Range(Selection, Selection.End(xlDown)).Select '¿ï¾Ü¨ì³Ì«á¤@Äæ
Selection.Copy
Worksheets("¬ö¿ý-adxr¶^").Select
Cells(row_s1 + 1, 2).Select
ActiveSheet.Paste
Sheets("¶°¦X").Select
ActiveSheet.ShowAllData
End Sub |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 11# vavashop
¸Õ¸Õ¬Ý- Option Explicit
- Sub ¥¨¶°9()
- Dim row_s1 As Integer
- 'Àˬd¤u§@ªí1ªºBÄæ¤w¦³¸ê®Æ¦æ¼Æ
- With Worksheets("¬ö¿ý-©P¦P¶b¶^")
- row_s1 = .Range("B65535").End(xlUp).Row
- 'B1µL¸ê®Æ®É¡Arow_s1 =0
- If row_s1 = 1 Then
- If .Cells(row_s1, 2) = "" Then
- row_s1 = 0
- End If
- End If
- End With
- With Sheets("¶°¦X")
- ' ActiveSheet.Range("$A$1GZ$55586").AutoFilter Field:=2, Criteria1:= _
- ' xlFilterToday, Operator:=xlFilterDynamic
- With .Range("A1:GZ100000")
- .AutoFilter Field:=18, Criteria1:="<=0"
- .AutoFilter Field:=20, Criteria1:=">=1000"
- .AutoFilter Field:=25, Criteria1:="<=0"
- .AutoFilter Field:=26, Criteria1:="<=-2"
- .AutoFilter Field:=15, Criteria1:="<=0"
- .AutoFilter Field:=7, Criteria1:="<=0"
- .AutoFilter Field:=6, Criteria1:="<=0"
- .AutoFilter Field:=29, Criteria1:=">=50"
- .AutoFilter Field:=30, Criteria1:=">=50"
- End With
- 'Range("a2:gz2").Select '²Ä¤GÄæa2~gz2
- .Range(.Range("a2:gz2"), .Range("a2:gz2").End(xlDown)).Copy Worksheets("¬ö¿ý-adxr¶^").Cells(row_s1 + 1, 2)
- '¿ï¾Ü¨ì³Ì«á¤@Äæ
- '.Selection.Copy
- 'Worksheets("¬ö¿ý-adxr¶^").Select
- 'Worksheets("¬ö¿ý-adxr¶^").Cells(row_s1 + 1, 1).Select
- 'ActiveSheet.Paste
- .Select
- .ShowAllData
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|