- ©«¤l
- 94
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-10-17
- ³Ì«áµn¿ý
- 2014-1-3
|
¥H¤U¬O§Ú¼gªº¦¬´M¨Ã¦Cªíµ{¦¡
¦ý§Æ±æ¯à°÷§ïÅܦ¨ M3¿é¤J"±i" ´N¦C¥X¦³"±i"³oÓªº¦rªº
¥Ø«e¬O¿é¤J§¹¾ã¥þ¦W¤~·|¦Cªí....§Æ±æ¦U¦ì¤j¤jÀ°¦£!^^ ·P®¦¤£ºÉ!
Sub ²Î¤@¬d¸ß¥\¯à()
'Ãö³¬Åã¥Ü
Application.ScreenUpdating = False
Set Name = Sheets("¬d¸ß³B²z°Ï").Range("M3")
Sheets("²Î¤@").Select
G = [A65536].End(xlUp).Row
For i = 2 To G
'¦pªG¦³¤@¼Ë ´N¦V¥ª¨Ã½Æ»s ÂàȶK¤W¦Ü¬d¸ß°Ï
If Sheets("²Î¤@").Cells(i, 9) = Name Then
Sheets("²Î¤@").Select
Cells(i, 9).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Sheets("¬d¸ß³B²z°Ï").Select
c = [A65536].End(xlUp).Row
Cells(c + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next i
Sheets("¬d¸ß³B²z°Ï").Select
Application.ScreenUpdating = True '¶}±ÒÅã¥Ü
MsgBox "²Î¤@¬d¸ß§¹¦¨"
End Sub |
|