ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¨D±Ï¦U¦ì¤j¤j °j°é°ÝÃD(«æ)

¨D±Ï¦U¦ì¤j¤j °j°é°ÝÃD(«æ)

¥H¤U¬O§Ú¼gªº¬d¸ß
²³æ¨ÓÁ¿´N¬O§Ú¦b«ü©wªº¦a¤è¥´¤J­n¬d¸ßªº¸ê®Æ
¥L­n¥h©m¦W°Ïªº¦a¤è±q²Ä¤Gµ§¶}©l¨ì¦¹­¶³Ì«á¤@µ§´M§ä¬O§_¦³¬Û¦P¦W¤l
¦pªG¦³´N¶K¤J¬d¸ß³B²z°Ï
¨S¦³´NÄ~Äò©¹¤U´M§ä
¦ý§Ú¥H¤Uªºµ{¦¡¥L·|»¡¦³NEXT ¨S¦³FOR
¦ý¬OEND IF ®Ú NEXT ¥æ´« «o¤£·|³o¼Ë»¡ ¦ý¬O ´M§ä¤@¦¸´N¤¤Â_§ÚªºIF¤F  
½Ð¦U¦ì¤j¤jÀ°§Ú¸Ñµª
·PÁ±z............«æ

Sub ¬d¸ß¥\¯à()

Set Name = Sheets("¬d¸ß³B²z°Ï").Range("P1")
Sheets("©m¦W°Ï").Select
G = [A65536].End(xlUp).Row
For i = 2 To G
    Cells(i, 9).Select
    If Cells(i, 9) = Name Then
    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
Next i
End If

End Sub

¤w¸Ñ¨M  ¤¤¶¡¥¼¥[¤J¤Á´«¤u§@­¶»yªk
¤]·PÁ¤j¤j¼ö¤ß¦^À³§Ú~~~^^

TOP

¦ý§Ú¥H¤Uªºµ{¦¡¥L·|»¡¦³NEXT ¨S¦³FOR
¦ý¬OEND IF ®Ú NEXT ¥æ´« «o¤£·|³o¼Ë»¡ ¦ý¬O ´M§ä¤@¦¸´N¤¤Â_§ÚªºIF¤F  ...
die78325 µoªí©ó 2012-11-16 09:59

END IF ®Ú NEXT ¥æ´«..
IF¥u§ä¤@¦¸À³¸Ó¬O§A§@¥Îªº¤u§@ªí§ïÅܤFªºÃö«Y??
For i = 2 To G
    Sheets("©m¦W°Ï").Select   
    Cells(i, 9).Select   
    If Cells(i, 9) = Name Then
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Copy
    Sheets("¬d¸ß³B²z°Ï").Select

TOP

Sub ¬d¸ß¥\¯à()

Set Name = Sheets("¬d¸ß³B²z°Ï").Range("P1")
Sheets("©m¦W°Ï").Select
G = [A65536].End(xlUp).Row
For i = 2 To G
    Cells(i, 9).Select
    If Cells(i, 9) = Name Then
    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

End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD