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

¦p¦ó±NÀx¦s®æ ¥Ñª½Âà¾î

¦p¦ó±NÀx¦s®æ ¥Ñª½Âà¾î

¦p¦ó±N¥H¤UÀx¦s®æBÄæ¸ê®ÆÂà¼g¦bCÄæ¨Ã¥H , ¸¹¤À¹j¡A³oµ{¦¡½X¦p¦ó? ½Ð¦U¦ì°ª¤â«ü±Ð¡AÁÂÁÂ!!
A Äæ             BÄæ           CÄæ
123456       34            34,36,38,40   
1245           36
675             38
457             40

1456            30          30,32
123              32

823              S             S,M,L
2628            M
939              L

  1. Sub yy()
  2. i = 1
  3. Do
  4. b = Range(Cells(i, 2), Cells(i, 2).End(4))
  5. Cells(i, 3) = Join(Application.Transpose(b), ",")
  6. i = i + UBound(b) + 1
  7. Loop Until Cells(i, 2) = ""
  8. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂ oobird!!
°ÝÃD¸Ñ¨M¤F, ¦ý¤£²z¸Ñ³o¥y  b = Range(Cells(i, 2), Cells(i, 2).End(4))
¥i§_¦A«ü±Ð¡AÁÂÁÂ!!

TOP

¦pi=1®Éb = Range(Cells(i, 2), Cells(i, 2).End(4))
¬Û·í©ó§â·Æ¹«©ñ¦bb1
«ö¤Uctrl+shift+¦V¤UÁä

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-4-23 17:42 ½s¿è

¦^´_ 1# aoss98
Sub Ex()
    Dim C As Range
    For Each C In Range("B:B").SpecialCells(xlCellTypeConstants).Areas
        C.Cells(1, 2) = Join(Application.Transpose(C), ",")
    Next
End Sub

TOP

ÁÂÁ GBKEE «ü±Ð¡A ·íµ{¦¡°õ¦æ³o¥y«K¤¤¤î For Each C In Range("c:c").SpecialCells(xlCellTypeConstants).Areas
¥t¥~ ¦pªG¥u¦³¤@¦C¸ê®Æ¡A°õ¦æ oobird µ{¦¡½X«K¥X²{¥H¤Uµ²ªG
A Äæ             BÄæ           CÄæ
123456       34            34,36

1245           36

1456            30          30,32
123              32
À³¸Óµ²ªG¬O
A Äæ             BÄæ           CÄæ
123456       34            34

1245           36            36

1456            30          30,32
123              32
½Ð¦U¦ì¦A«ü±Ð¡AÁÂÁÂ!!

TOP

¤p§Ì­Éoobirdª©¤jªºµ{¦¡½Xµy§@­×§ï
Sub yy()
i = 1
Do
aa = Cells(i, 2).CurrentRegion.Rows.Count
b = Cells(i, 2).Resize(aa, 1)
If aa = 1 Then
Cells(i, 3) = b
Else
Cells(i, 3) = Join(Application.Transpose(b), ",")
End If
i = i + aa + 1
Loop Until Cells(i, 2) = ""
End Sub

TOP

ÁÂÁÂa8350070¡A­×§ï«áªºµ{¦¡ÉN°ÝÃD¡AÁÂÁ§A«ü敎¡C

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-4-23 09:08 ½s¿è

¨ç¼Æªº°Ñ¦Ò
C1=LEFT(B1&"¡A"&B2&"¡A"&B3&"¡A"&B4&"¡A"&B5&"¡A"&B6&"¡A"&B7&"¡A"&B8&"¡A"&B9&"¡A"&B10,SUM(LEN($B$1:$B$10),COUNTA($B$1:$B$10),-1))

¬°°}¦C¤½¦¡¡A¿é¤J§¹½Ð«ö        ctrl        +        shift        +        enter

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD