¦U¦ì°ª¤â«e½ú~
«÷«÷´ê´ê§Ë¤F¤U±ªºµ{¦¡½X,¥i¥Hº¡¨¬¨ì¥Ø«eªº»Ý¨D~¦ý¬O°õ¦æ³t«×¦nºC~
¥Ø«e¥i¥H×¥¿§Úªºµ{¦¡½X~¥Î§ó¦nªº¤è¦¡½Õ¾ã¶Ü?
§Ú·Qn±N ²Å¦X§Úµ¹ªº±ø¥ó ¥h A row´M§ä
§ä¨ì²Å¦X§ÚnªºÈ®É,´N©¹¤W·j¯Á¨ì²Å¦X±ø¥óªºÄæ¦ì,§â³oÓÄæ¦ìªºÈ §ì¨«
¥i¬O§Ú¥un§ì²Å¦X±ø¥óªº²Ä¤@µ§¸ê®Æ,¨ä¥Lªº¤£n~
´N³o¼Ë,§Ú¥Î¤F¿ý»s»E¶°ªº¤è¦¡~~¶Ì¶Ì¦a§¹¦¨¤F
¥i¬O³o¤£¬O§Ú·Qnªº³t«×~¦nºC³á
¦³¾÷·|½Õ¾ã¶Ü?Àµ¨D«üÂI¤@¤G
¦³·Q¹L¥á¨ì°}¦C¥h~¦ý¥Ø«eÁÙ¤£·|¦p¦ó¥h°}¦C·j¯Á²Å¦X§Únªº²Ä¤@µ§¸ê®Æ~¦]¬°·|¦³«Ü¦hµ§Ãþ¦ü
Àµ¨D«üÂI¤@¤G
Å¥¦P¾Ç»¡~~¤èªk«Ü¦hºØ~¦ý§ÚÁÙ¨S¦³¶}¬ ORZ:'(
Sub TEST ()
Dim zz As String
For i = 2 To Cells(Rows.Count, 10).End(xlUp).Row
zz = Cells(i, 10).Value
Columns("A:A").Select
Selection.Find(What:=zz, after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Cells.Find(What:=" (net ", after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Cells(i, 11) = ActiveCell
Cells(i, 11) = Right(Cells(i, 11), Len(Cells(i, 11)) - 7)
Next
Cells(1, 10).Select
End Sub |