Hsieh

¦^´_ 5# JEAN

1. Sub »â¥Î³æ¼g¤J()
   
2. Dim Ar()
   
3. With Sheets("»â¥Î³æ")
   
4. If Application.CountA(.[A6:A16]) > 0 Then
   
5. For Each a In .[A6:A16].SpecialCells(xlCellTypeConstants)
   
6.   ReDim Preserve Ar(s)
   
7.   Ar(s) = Array(.[B3].Value, .[B4].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value, a.Offset(, 7).Value)
   
8.   s = s + 1
   
9. Next
   
10. Sheets("»â¥Î°O¿ý©ú²Óªí").[A1048576].End(xlUp).Offset(1, 0).Resize(s, 10) = Application.Transpose(Application.Transpose(Ar))
    
11. End If
    
12. End With
    
13. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# JEAN


   

¤U¸ü (286.26 KB)

2011-12-1 10:22

JEAN

±z¦n:

ª©¥D,§Ú¥u­n§â³o­Ó¼Ò²Õ«Ø¥ß°_¨Ó´N¥i¥HÂà¨ì©ú²Óªí¤F¶Ü

Hsieh

¦^´_ 1# JEAN

1. Sub Macro3()
   
2. Set b = Sheets("¶i³f¦s®w©ú²Óªí").[A1048576].End(xlUp).Offset(1, 0)
   
3. Rng = Range([A9], [A9].End(xlDown).Offset(, 9))
   
4.     b.Offset(, 1).Resize(UBound(Rng, 1), UBound(Rng, 2)) = Rng
   
5.     b.Resize(UBound(Rng), 1) = [I3]
   
6. End Sub

½Æ»s¥N½X

JEAN

¤j®a¦n:
§Ú¦³¤@­Ó«D±`§xÁ}ªº°ÝÃD
§Ú¥ÎEXCEL°µ¤@­Ó¤å¨ã¨t²Î ,¹J¨ì¤@­Ó«ÜÀYµhªº°ÝÃD,°Ý¤H®a³£¤£·|¥Î¡C

§Úªº°ÝÃD´N¬O~~¦p¦ó§â¶i³f³æªº¤º®e¼g¤J¶i³f¦s®w©ú²Óªí¤¤¡C

§Ú¥Î¥¨¶°¸Õ¤F¦n´X¦¸,¥L³£·|½Æ»\±¼²Ä¤@¦¸°µªº°Ê§@¸ê®Æ,¤£·|ºô¤U½Æ»s¡C

±Ï±Ï¤j®aÀ°À°§Ú~~§Ú«Ü«æ