PD961A

¦^´_ 11# GBKEE


    ÁÂÁÂGBKEEª©¥D

GBKEE

¦^´_ 10# PD961A

1. Sub Ex()
   
2.     Dim Rng As Range, N%
   
3.     Set Rng = Sheet2.Range("A1").CurrentRegion
   
4.     Sheet1.Range("A1").CurrentRegion.Offset(1) = ""
   
5.     N = 1
   
6.     For i = 2 To Rng.Rows.Count
   
7.         For II = 1 To Rng.Rows(i).Cells(Rng.Columns.Count)
   
8.             With Sheet1.Range("A1").CurrentRegion.Rows(N + 1)
   
9.                 .Value = Rng.Rows(i).Resize(, Rng.Columns.Count - 1).Value
   
10.                 .Cells(4) = Rng.Rows(i).Cells(4) & Format(N, "0000000")
    
11.                 N = N + 1
    
12.             End With
    
13.         Next
    
14.     Next
    
15. End Sub

½Æ»s¥N½X

PD961A

ÁÂÁÂ
¢Õ¢Ð¢Ù¢Ó¢Ó
oobird
Hsieh ª©¥D

«È¤áºÝ»Ý¨D§ó·s
­«·s¤W¶ÇÀÉ®×
½Ð¥ý¶iµ¹¤©­×¥¿°õ¦æ«áªºµe­±
ÁÂÁÂ..

¤U¸ü (89.6 KB)

2010-9-17 09:46

¤U¸ü (123.77 KB)

2010-9-17 09:46

PDF417CODE990917.rar (95.67 KB)

¤U¸ü¦¸¼Æ: 16

2010-9-17 09:46

Hsieh

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. With Sheets("½s¸¹")
   
5. For Each a In .Range(.[A2], .[A65536].End(xlUp))
   
6.     d(a.Value) = d(a.Value) + a.Offset(, 7)
   
7.     d1(a.Value) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, Mid(a.Offset(, 3), 1, 11), a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value)
   
8. Next
   
9. Sheets("Sheet1").[A2:G65536].Clear
   
10. For Each ky In d.keys
    
11.    ReDim Ar(d(ky))
    
12.    For i = 0 To d(ky) - 1
    
13.      x = d1(ky)(3) & Format(i, "0000000")
    
14.      With Sheets("Sheet1")
    
15.        .[A65536].End(xlUp).Offset(1, 0).Resize(, 7) = Array(d1(ky)(0), d1(ky)(1), d1(ky)(2), x, d1(ky)(4), d1(ky)(5), d1(ky)(6))
    
16.      End With
    
17.    Next
    
18. Next
    
19. End With
    
20. End Sub

½Æ»s¥N½X

PD961A

¦^´_ 7# oobird

oobirdª©¥DÁÂÁ±z
   
¸ê®Æ¿é¤J¬O¦b¤u§@ªí"½s¸¹"HÄ檺¥X³f¼Æ¶q¬°¼Ðªº

¥HSHEET1¬O°õ¦æ«áµ²ªG
­Y½s¸¹¤u§@ªí²Ä1¦C¿é¤JHÄ檺¥X³f¼Æ¶q¬°¼Ðªº100..«h¦b¤u§@ªíSHEET1-"DÄæ"·|±o¨ì100­Ó¬y¤ô¸¹(001~100)

¦P­¶¸ê®Æ¿é¤J¦b½s¸¹¤u§@ªí²Ä2¦C¿é¤JHÄ檺¥X³f¼Æ¶q¬°¼Ðªº10..
«h¦b¤u§@ªíSHEET1-"DÄæ"·|±o¨ì10­Ó¬y¤ô¸¹(101~110)

¦P­¶¸ê®Æ¿é¤J½s¸¹¤u§@ªí²Ä3¦C
¿é¤JHÄ檺¥X³f¼Æ¶q¬°¼Ðªº2..«h¦b¤u§@ªíSHEET1-"DÄæ"©µÄò109¤§«á
±o¨ì111~112
¥H¦¹Ãþ±À....

¬y¤ô¸¹¦b«È¤áºÝ»Ý¨D¦@7½X
¥u¯à²Ö­p¤£¯à­«½Æ
ÁÂÁ±z

oobird

°ÝÃD³Ì¦n©ú½T¨Ç¡A¼Æµ§¸ê®Æ§A·Q«Ø¥ß¨º¤@µ§ªº¬y¤ô¸¹¡H¥þ³¡¥­§¡¤ÀÅu¨º50µ§¡H

PD961A

¦^´_ 4# oobird
¦^´_ 5# Hsieh

    ÁÂÁ¢±¦ìª©¥D
±z­Ì¥Ø«eµ¹ªºµ{¦¡¥i¥H¿é¤J¤@¦C«á±a¨ìSHEET1=50­Ó¬y¤ô¸¹

¥i¥H¦A½Ð°Ý
­Y«ùÄò¿é¤J¼Æµ§¸ê®Æ«á
¬O§_¤´¯à«ùÄò¦³±Æ§Ç¬y¤ô¸¹ªº¥\¯à
ÁÂÁ±z

¤U¸ü (11.05 KB)

2010-9-13 00:10

¤U¸ü (16.66 KB)

2010-9-13 00:10

Hsieh

¦^´_ 3# PD961A

1. Sub nn()
   
2. With Sheets("½s¸¹")
   
3. ReDim ar(.[H2] - 1)
   
4. cnt = CDec(Mid(.[D2], 2))
   
5. For i = 0 To .[H2] - 1
   
6.   ar(i) = Array(.[A2].Value, "'" & .[B2].Value, .[C2].Value, Mid(.[D2], 1, 1) & cnt + i, .[E2].Value, .[F2].Value, .[G2].Value)
   
7. Next
   
8. Sheet1.[A2].Resize(.[H2], 7) = Application.Transpose(Application.Transpose(ar))
   
9. End With
   
10. End Sub

½Æ»s¥N½X

oobird

1. Sub Ex()
   
2.     Dim i%
   
3.     With Sheets("½s¸¹")
   
4.         For i = 1 To .[h2]
   
5.             Sheets("Sheet1").[A1:G1].Offset(i) = .[A2:G2].Value
   
6.             Sheets("Sheet1").[A1:G1].Offset(i).Cells(4) = Mid(.[d2], 1, 11) & Format(i, "0000000")
   
7.         Next
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

«ü©wªí¦W§Y¥i¡C

PD961A

¦^´_ 2# GBKEE


    ª©¥DÁÂÁ±z
¹ï¤£°_¤j·§¬O§Úªº±Ô­z¤£¬O«Ü§¹¾ã
©Ò¥H±zªºµ{¦¡½X±a¤J«á...±o¨ìªºµ²ªG¬O¬Û¤Ïªº

¸ê®Æ¿é¤J¬O¦b¤u§@ªí"½s¸¹"HÄ檺¥X³f¼Æ¶q¬°¼Ðªº
­Y¥X³f¼Æ¶q¬°"50"«h¦b¤u§@ªíSHEET1·|±o¨ì50­Ó¤£¦P½s¸¹¶¶§Çªº¬y¤ô¸¹
¦Ó¤£¬O¦b"½s¸¹"¨º±iªí±Æ§Ç¥X50­Ó¬y¤ô¸¹
«D±`·PÁ±z....

¤U¸ü (56.93 KB)

2010-9-12 23:29

¤U¸ü (27.67 KB)

2010-9-12 23:29