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

[µo°Ý] ¸ê®ÆŪ¨ú¤Î±Æ¦C°ÝÃD

[µo°Ý] ¸ê®ÆŪ¨ú¤Î±Æ¦C°ÝÃD



¸ê®Æ¤º®e¦p¹Ï©Ò¥Ü
¥Ø«e¶È§V¤O(¤]¬O¾a§O¤H = =)
¥i¥H§â¦³¥´OªºÄæ¦ì§ì¥X¨Ó ¨Ì§Ç¶ñ¤J®æ¤l

¦³¿ìªk¹³¤U­±¨º¦æ¤@¼Ë­×¥X³Ì«áªºµ²ªG¶Ü @@?
½Ð±Ð¦U¦ì¤j¤j¤F ~ ÁÂÁÂ

  1. Sub TUU()
  2. Dim xR As Range, T1$, T2$, TT$
  3. For Each xR In [B2:K2]
  4.     If xR = "¢Ý" Then
  5.        If T1 <> "" Then T2 = xR(0) Else T1 = xR(0)
  6.     Else
  7.        If T1 <> "" Then
  8.           TT = TT & "," & T1 & IIf(T2 = "", "", "-" & T2)
  9.           T1 = "": T2 = ""
  10.        End If
  11.     End If
  12. Next
  13. MsgBox Mid(TT, 2)
  14. End Sub
½Æ»s¥N½X

TOP

¤j·PÁÂ !!!

ÁöµM§ÚÀ³¸ÓÁٻݭn«Ü¦hÅÜ¤Æ ¤£¹L¥ý¦Û¤v¸Õ¸Õ¬Ý¦n¤F
·PÁ¤j¤jªºÀ°¦£ ¸ó¥X¦¨¥\¤@¨B !!!!

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD