- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# xandertco
¸Õ¸Õ§a- Sub Test()
- Dim r1 As Long, r2 As Long
-
- Application.ScreenUpdating = False
- With Sheets("¥Í²£»â°h®Æ©ú²Óªí")
- r1 = .Cells(.Rows.Count, "A").End(xlUp).Row - 1 '[¦Xp]ªº¤W±¤@¦C
-
- ' A9 ¨ì A680 ¤¤¬°±`¼Æ¤å¦rªºÀx¦s®æ
- With .Range(.[A9], .Cells(r1, "A")).SpecialCells(xlCellTypeConstants, xlTextValues)
- For Each x In .Cells
- '¹ï«D»s¥O³æ¸¹ªº¦C
- If x.Value <> "»s¥O³æ¸¹" Then
- With Sheets("±M®×½s¸¹")
- .AutoFilterMode = False '¨ú®ø¦Û°Ê¿z¿ï
- r2 = .Cells(.Rows.Count, "A").End(xlUp).Row '¥HAÄæ§ä³Ì¤j¦C¼Æ
- .Range("A1:B" & r2).AutoFilter Field:=1, Criteria1:=x.Value '¥Hx³æ¸¹¥h¿z¿ï
- .Range("B2:B" & r2).SpecialCells(xlCellTypeVisible).Copy '½Æ»sBÄæ¥i¨£Äæ
- End With
- x.Offset(, 16).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True 'Âà¸m¶K¤W¨ìQÄæ¥k¤è
- End If
- Next
- End With
- End With
-
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|