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

[µo°Ý] SplitºI¨ú¦r¤¸°ÝÃD½Ð±Ð

[µo°Ý] SplitºI¨ú¦r¤¸°ÝÃD½Ð±Ð

DEAR ALL ¤j¤j
1. ¹Ï¤@¦r¦ê¨Ï¥Î  
Sub aaaaaaaaaaa()
Sheet1.Cells(1, 2) = Split(Sheet1.Cells(1, 1), "Y")(1)
End Sub
·|§ì¨ú Y«á¦r¦ê -00788021
2.°ÝÃDÂI
   ¤p§Ì·Q§ì¨ú X »P Y¤¤¶¡¤§¦r¦ê -01062550
   ¸Ó¦p¦ó­×§ï
3.·Ð¤£§[½ç±Ð  THANKS*10000

¹Ï¤@
X-01062550Y-00788021
ù

Sheet1.Cells(1, 2) = "-" & Split(Sheet1.Cells(1, 1), "-")(1)

TOP

DEAR ­ã¤j
1¨Ï¥Î  Sheet1.Cells(1, 2) = "-" & Split(Sheet1.Cells(1, 1), "-")(1)
§ì¨ú¥X  -01062550Y   «á¤è¦h¤@Y
3.·Ð¤£§[½ç±Ð  THANKS*10000
ù

TOP

¦^´_ 3# rouber590324

­Y¨C­Ó¦r¦ê³£¬O"Y"
Sheet1.Cells(1, 2) = "-" & REPLACE(Split(Sheet1.Cells(1, 1), "-")(1),"Y","")

¦pªG¦r¦êªø«×©T©w, ª½±µMID, ¦ó¥²¦h¦¹¤@Á|!!

TOP

DEAR ­ã¤j
1.·PÁ¦^´_.
Sheet1.Cells(1, 2) = "-" & REPLACE(Split(Sheet1.Cells(1, 1), "-")(1),"Y","")
OK  100%²Å¦X»Ý¨D
2.±z«Øij¤§MID¦]ªø«×¤£¦P
   ¦p¤U§Ú»Ý  MID+SEARCH ¤è¥i¹F¦¨»Ý¨D    THANKS*10000

  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 7) = Mid(Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1), 2, Application.Search("Y", Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1)) - 2)
ù

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD