Hsieh

¦^´_ 1# viggostar

1. Sub Ex()
   
2. Dim Ar(), Ay(6), Rng As Range, CLM$, A As Range, i%, s&
   
3. With Sheet1
   
4. CLM = "CLKMPY"
   
5. Set Rng = .Range(.[C3], .[C65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
   
6. For Each A In Rng
   
7. For i = 1 To 6
   
8.   Ay(i - 1) = .Cells(A.Row, Mid(CLM, i, 1)).Value
   
9. Next
   
10.    ReDim Preserve Ar(s)
    
11.    Ar(s) = Ay
    
12.    s = s + 1
    
13. Next
    
14. End With
    
15. Sheet2.[A65536].End(xlUp).Offset(1, 0).Resize(s, 6) = Application.Transpose(Application.Transpose(Ar))
    
16. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# viggostar

1. Sub Ex()
   
2. Dim Ar(), Ay(4), Rng As Range, Ck(), Kr(), A As Range, i%, s&
   
3. With Sheet1
   
4. Ck = Array("V", "AD", "AO", "AA")
   
5. Kr = Array("C", "E", "H", "K")
   
6. Set Rng = .Range(.[C5], .[C65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
   
7. For Each A In Rng
   
8. For i = 0 To 3
   
9.   Ay(i) = "'" & .Cells(A.Row, Ck(i))
   
10. Next
    
11.    ReDim Preserve Ar(s)
    
12.    Ar(s) = Ay
    
13.    s = s + 1
    
14. Next
    
15. End With
    
16. For i = 0 To UBound(Ar)
    
17. Set A = Sheet3.[C65536].End(xlUp).Offset(1, 0)
    
18.    For j = 0 To 3
    
19.    Sheet3.Cells(A.Row, Kr(j)) = Ar(i)(j)
    
20.    Next
    
21. Next
    
22.    
    
23. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 5# viggostar


    Preserve ¿ï¾Ü©Ê¤Þ¼Æ¡C·í§ïÅܭ즳°}¦C³Ì«á¤@ºûªº¤j¤p®É¡A¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r¡C
¤]´N¬O»¡°}¦C¤j¤p§ïÅÜ«á,¤´«O¯d­ì¦³ªº¤¸¯À
¨Ò¦p«Å§i¤@°}¦CAr()
­Y¥ÎRedim Ar(5)
¨º¤£ºÞ¤§«eµ¹¹LAr(0),Ar(1),...¦³¬Æ»ò­È
¸gReDim¥H«á³o¨Ç­È´N¥þ³¡³Q²M°£¤F
                                                         
Dim Ar(4)
for i=0 to 3
   Ar(i)=i
next
¤W­±±Ô­z§A¤w¸g±N­ì°}¦CAr(0)~Ar(3)µ¹¹L­È
²{¦b­nÂX¤j¦¨5­Ó¤¸¯À¦ý­n«O¯dAr(0)~Ar(3)ªº­È
ReDim Preserve Ar(5)
Ar(4)=4
§A¦A´ú¸Õ
for i= 0 to UBound(Ar)
    msgbox "Ar(" & i & ")=" & Ar(i)
next

Hsieh

¦^´_ 5# viggostar


    ¬°¤°»ò¥i¥H¥u¦³with sheet1¨Ó°õ¦æ
¤£»Ý­n«ü©wsheetªº¦W¦r¬O order ©Î detail
Sheet1¬O¥Î¤u§@ªíªºCodeName¤£·|¦]¤u§@ªí§ó¦W¦Ó§ïÅÜ
order ©Î detail¬O¤u§@ªíªºName·|¦]¤u§@ªí§ó¦W¦Ó§ïÅÜ
                                                                                             
Åܼƪº¸ê®Æ«¬ºA
¦b Visual Basic ¥i¥Î²Å¸¹ (&) ªº«¬ºA«Å§i¦r¤¸¨Óªí¥Ü¤@­Ó Long
¦b Visual Basic ¥i¥Î¦Ê¤À¤ñ²Å¸¹ (%) ªº«¬ºA«Å§i¦r¤¸¨Óªí¥Ü¤@­Ó Integer¡C
¦b Visual Basic ¥i¥Î @ «Å§i¦r¤¸¨Óªí¥Ü Currency
¦b Visual Basic ¤¤¥i¥Î«¬ºA«Å§i¦r¤¸ (!) ¨Óªí¥Ü¤@­Ó Single¡C
¦b Visual Basic¡A²Å¸¹ (#) ¬Oªí¥Ü Double ªº«¬ºA«Å§i¦r¤¸