[µo°Ý] ¦r¦ê©î¸Ñ¸ê®ÆÂà¸m°ÝÃD

child

½Ð±Ð¦p¦ó°w¹ïEÄæMEMOªºÀx¦s®æ¦r¦ê©î¸Ñ¨Ã±N¬Û¦P¦C¸ê®ÆÂà¸m¡AEÄæMEMOªºÀx¦s®æ¦r¦ê¸ê®Æ·|¥HªÅ®æ©Î;²Å¸¹¤À¹j¦r¦ê¡C
­pºâªÅ®æ©Î;²Å¸¹¦r¦ê¤À¹j¦¸¼Æ¡A±NA~DÄæ¸ê®Æ¨Ì¤À¹j¦¸¼Æ½Æ»sH~KÄæ¦ì¡A¦A±N¤À¹jªºEÄæ¸ê®ÆÂà¸m¦¨L©MMÄæ¸ê®Æ¡C
¸Ô²Ó¸ê®Æ»P°ÝÃD»¡©ú¦pªþ¥ó Book1.zip (2.38 KB)

¤U¸ü¦¸¼Æ: 17

2015-8-31 22:17

¡AÁÂÁ¤j®aªºÀ°¦£ ^_^

child

¦^´_ 5# ­ã´£³¡ªL
´ú¸ÕOK¡A«ÜÁÂÁ¤j®aªºÀ°¦£¡A¤]ÁÂÁª©¥D©MikboyªºÀ°¦£¡A§Ú·|¦A¸ÕµÛ­×§ï¡AÁÂÁ³á¡I

GBKEE

¦^´_ 3# child

½Ð¦Û¦æ­×§ï

1. If UBound(Split(AR(i), "*")) > 0 Then               '°}¦C³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ=-1  -> ªÅªº°}¦C
   
2.                             .Cells = Split(AR(i), "*")(1)                   '°}¦Cªº²Ä¤G­Ó¤¸¯À­È
   
3.                         Else
   
4.                             .Cells = 1
   
5.                         End If

½Æ»s¥N½X

­ã´£³¡ªL

Sub TEST()
Dim xR As Range, xH As Range, TT, TR
Set xR = [A1]: Set xH = [H2]
Do
Set xR = xR(2): If xR = "" Then Exit Do
For Each TT In Split(Replace(xR(1, 5), ";", " "), " ")
¡@¡@If TT <> "" Then
¡@¡@¡@xH.Resize(1, 4) = xR.Resize(1, 4).Value
¡@¡@¡@xH(1, 5).Resize(1, 2) = Split(TT & "*1", "*")
¡@¡@¡@Set xH = xH(2)
¡@End If
Next
Loop
End Sub

ª`·N¡G¢éÄ楲¶·¬O³sÄò¸ê®Æ
¡@

ikboy

Sub zz()
Dim arr, zr%, zc%, MyMemo, brr() As String
zr = [a1].CurrentRegion.Rows.Count
zc = [a1].CurrentRegion.Columns.Count
n = -1
arr = Range(Cells(2, 1), Cells(zr, zc))
For i = 1 To UBound(arr)
    MyMemo = Split(Application.Substitute(arr(i, 5), " ", ";"), ";")
    For j = 0 To UBound(MyMemo)
        PQ = Split(MyMemo(j), "*")
            n = n + 1: ReDim Preserve brr(5, n)
            For ii = 0 To 3
                brr(ii, n) = arr(i, ii + 1)
            Next
            brr(4, n) = PQ(0)
            If UBound(PQ) = 1 Then
                If PQ(1) > 1 Then
                    brr(5, n) = PQ(1)
                Else
                    brr(5, n) = 1
                End If
            Else
                brr(5, n) = 1
            End If
    Next
Next
[h2].Resize(n + 1, 6) = Application.Transpose(brr)
End Sub

child

¦^´_ 2# GBKEE
ÁÂÁª©¥DªºÀ°¦£^_^
´ú¸Õ¦pªG¬O¥¼¤À¹jªº¦r¦êN1©ÎN1*6¨â¦r¦êQTY³£·|µ¥©ó1¡A¦pªG­n­×§ï¬°N1ªºQTYµ¥©ó1¡BN1*6ªºQTYµ¥©ó6©MÁקKEÄæÀx¦s®æ¦³¦h¾lªÅ®æ(Ex:N1 ©ÎA1*1  A2*3)®É¡A
.Cells(1, Rng.Columns.Count + 1) = Split(AR(i), "*")(0) '°}¦Cªº²Ä¤@­Ó¤¸¯À­È·|¥X²{²§±`¡A½Ð±Ð­n¦p¦ó­×§ïµ{¦¡½X¡AÁÂÁ³á!

GBKEE

¦^´_ 1# child
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, AR As Variant, i As Integer
   
4.     With Sheets("Sheet1")           '¸ê®Æ©Ò¦bªº¤u§@ªí
   
5.         Set Rng = .Range("A2:D2")   'A~DÄæ¸ê®Æªº²Ä¤@­Ó¸ê®Æ
   
6.         Do While Rng.Cells(1) <> "" 'AÄ榳¸ê®Æ
   
7.             AR = Replace(Rng.Cells(1, 5), " ", ";") '´À´«ªÅ®æ¬°;
   
8.             AR = Split(AR, ";")                     '¥H";"¦r¦ê¤À³Îªº°}¦C
   
9.             For i = 0 To UBound(AR)                 '¨Ì§ÇŪ¨ú°}¦C¤¸¯À¼Æ
   
10.                 'H:M ªºªíÀY¤w¹w¸m¦n
    
11.                 With Cells(Rows.Count, "H").End(xlUp).Offset(1) 'HÄ檺²Ä¤@­ÓªÅ¥ÕÀx¦s®æ
    
12.                     .Resize(1, Rng.Columns.Count) = Rng.Value
    
13.                     '¥H"*"¦r¦ê¤À³Îªº°}¦C
    
14.                     .Cells(1, Rng.Columns.Count + 1) = Split(AR(i), "*")(0) '°}¦Cªº²Ä¤@­Ó¤¸¯À­È
    
15.                     With .Cells(1, Rng.Columns.Count + 2)
    
16.                         If UBound(AR) > 0 Then                              '°}¦C³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ=-1  -> ªÅªº°}¦C
    
17.                             .Cells = Split(AR(i), "*")(1)                   '°}¦Cªº²Ä¤G­Ó¤¸¯À­È
    
18.                         Else
    
19.                             .Cells = 1
    
20.                         End If
    
21.                     End With
    
22.                 End With
    
23.             Next
    
24.             Set Rng = Rng.Offset(1)  '¤U¤@­ÓAÄæ¸ê®Æ
    
25.         Loop
    
26.     End With
    
27. End Sub

½Æ»s¥N½X