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

[µo°Ý] Â^¨ú²Å¦X±ø¥óªº¦r¦ê¤å¦r

[µo°Ý] Â^¨ú²Å¦X±ø¥óªº¦r¦ê¤å¦r

¥»©«³Ì«á¥Ñ loyyee ©ó 2011-11-24 22:28 ½s¿è

½Ð°Ý¦U¦ì¤j¤j¡A¦p¦ó¥ÑÀɮפ¤"AÄæ"¦r¦ê¤¤¡AÂ^¨ú²Å¦X±ø¥óªº¦r¦ê¤å¦r©ó"B~DÄæ"
Â^¨ú²Å¦X±ø¥ó¦r¦ê.rar (4.26 KB)

¦^´_ 1# loyyee

Â^¨ú²Å¦X±ø¥ó¦r¦ê.zip (10.46 KB)

TOP

Â^¨ú²Å¦X±ø¥óªº¦r¦ê¤å¦r

¦^´_ 2# register313

¥i¥H¥Î¤F¡A·PÁ±z~

TOP

¦^´_ 2# register313
²¤Æ¤@¤U
  1. Sub Ex()
  2. Dim R As Range
  3. Range("B2:D500").ClearContents
  4. For Each R In Range("a2:a500")
  5.     If InStr(R, "OO") And InStr(R, "PP") Then
  6.         R.Offset(0, 3).Value = "OO+PP"
  7.     ElseIf InStr(R, "OO") Then
  8.         R.Offset(0, 1).Value = "OO"
  9.     ElseIf InStr(R, "PP") Then
  10.         R.Offset(0, 2).Value = "PP"
  11.     End If
  12. Next
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


    ·PÁª©¤j
   ¤p§Ì¥u·|VBAªºÂ²³æ»yªk ¨C¦¸µ{¦¡½XÁ`¬O¼g«Üªø
   ¾Ç·|§ó¦h»yªk ¥iÅýµ{¦¡½X©ö©ó¾\Ū¤]¸`¬Ù®É¶¡
   §Æ±æÁÙ¦³¾÷·|Åýª©¤j«ü¾É

TOP

¦^´_ 4# GBKEE

·PÁª©¤j»Pregister313¼ö¤ß¸Ñµª¡C

¦A©µ¦ù°ÝÃD:¦pªG"AÄæ"¡B"BÄæ"¦³¤G­Ó¤£¦P¦r¦ê¡A
­n¦b"EÄæ"Â^¨ú²Å¦X±ø¥óªº¦r¦ê¤å¦r®É¡A¸Ó¦p¦ó­×§ï¥¨¶°?
Â^¨ú²Å¦X±ø¥ó¦r¦ê-2.rar (4.39 KB)

TOP

¦^´_ 6# loyyee


    °¿§ïGBKEEª©¤j¤§"Â^¨ú²Å¦X±ø¥óªº¦r¦ê"µ{¦¡¦Ó¨Ó

Â^¨ú²Å¦X±ø¥ó¦r¦ê-2.zip (8.35 KB)

TOP

¦^´_ 7# register313

·PÁ¡Aµ¹±z¤@­ÓÆg°Õ!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-25 08:31 ½s¿è

¦^´_ 7# register313
¥t¤@¼gªk
  1. Sub Ex()
  2.     Dim AR, R As Range, S , E
  3.     Range("E2:E500").ClearContents
  4.     AR = Split(Mid(Replace([E1], "¤§»sµ{", ""), 2), "¡B")
  5.     For Each R In Range("A2:A500")
  6.         S = Split(R & "¡A" & R.Offset(0, 1), "¡A")
  7.         For Each E In S
  8.             If Not IsError(Application.Match(E, AR, 0)) Then
  9.                 R.Offset(0, 4) = R.Offset(0, 4) & IIf(R.Offset(0, 4) = "", "", "+") & E
  10.             End If
  11.         Next
  12.     Next
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# GBKEE


    ·PÁÂGBKEEª©¤j
   ³o¦¸¨Ï¥Î¤FSplit Mid Replace Match...¨ç¼Æ

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD