Dear ALL ¤j¤j
¦p¹Ï¤@¤§µ{¦¡½X¥i±N AÄæ ¸ê®Æ DROP_DIEA10_EDGEBGA_PAD ºI¨ú²Ä¤@Ó "_"«á¤è 3¦r¤¸ DIE
¦ý§Ú·QºI¨ú ²Ä¤@Ó "_" «á¤è»P ²Ä¤GÓ "_" ¤¤¶¡¤§¦r¤¸ DIEA10
½Ð°Ý¦p¦óקï
·Ð¤£§[½ç±Ð THANKS*10000
¹Ï¤@
Sub Ex()
Dim i As Integer, S As Integer
i = 2
With Sheet2
For M = 2 To 1000
S = InStr(.Cells(i, "A"), "_")
If S > 0 Then
.Cells(i, "B") = Mid(.Cells(i, "A"), S + 1, 3)
End If
i = i + 1
Next
End With
End Sub |