- ©«¤l
- 824
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 904
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2023-12-24
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2016-5-10 22:32 ½s¿è
¦^´_ 1# ³Q½×¤å¹GºÆªº¤H
Q1:
Worksheets("1") => Sheets(x + 1 & "")
Q2:
¸Õ¸Õ³o¼Ë¬O§_¥i¥H: (¥¼¦Ò¼{®Ä²v§ïµ½, ¶È°w¹ï·í¾÷±¡§Î³B²z)- Sub morecriteriafilter()
-
- Dim i As Integer, j As Integer, k As Integer
-
- With Worksheets("be1")
- x = 0
- Application.ScreenUpdating = False
- For i = 0 To 5
- For j = 0 To 5
- .Range("A1").AutoFilter Field:=2, Criteria1:="<" & 3 + i, Operator:=xlAnd, Criteria2:=">" & 0 + i
- DoEvents
- .Range("A1").AutoFilter Field:=3, Criteria1:="=" & 1 + x
- DoEvents
- .Range("A1").AutoFilter Field:=5, Criteria1:=Cells(j + 2, 10)
- DoEvents
- .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("1").Range("B2").Offset(7 * i, 7 * j)
- DoEvents
- Next j
- Next i
- .Range("A1").AutoFilter
- DoEvents
- Application.ScreenUpdating = True
- End With
- End Sub
½Æ»s¥N½X |
|