[µo°Ý] Ãö©ó¸ê®Æªº½Æ»s¶K¤W°ÝÃD vba, ½Æ»s¶K¤W

³Q½×¤å¹GºÆªº¤H

¤£ª¾¹D¦p¦ó¸Ñ¨M¡A½Ð²³¦ì°ª¤âÀ°¦£!!
¸ê®Æ¹³³o¼Ë:
ln0000001        1        1        1        4        0.865                ln0000001        1        1        1        4        0.865                ln0000001        1        1        1        4        0.865 .........±µÄò(¦³ªÅ¤@¦æ)
ln0000166        1        1        2        4.25        0.0836                ln0000171        1        1        2        4.65        0.2082                ln0000172        1        1        2        4.7        0.2295
ln0008059        2        1        1        4.25        0.7296                ln0008063        2        1        1        4.65        0.4318                ln0008064        2        1        1        4.7        0.4002
ln0008219        2        1        2        4        0.0277                ln0008219        2        1        2        4        0.0277                ln0008219        2        1        2        4        0.0277
ln0008058        2        1        1        4        0.9496                ln0008058        2        1        1        4        0.9496                ln0008058        2        1        1        4        0.9496
ln0008223        2        1        2        4.25        0.0577                ln0008228        2        1        2        4.65        0.1598                ln0008229        2        1        2        4.7        0.1782
ln0016118        3        1        1        4.25        0.5564                ln0016122        3        1        1        4.65        0.2932                ln0016123        3        1        1        4.7        0.267
......±µÄò(¨S¦³ªÅ¤@¦C)
.......

§Ú·Q­n±N©Ò¦³¸ê®Æ³£¾ã²z¦bA~FÄæ¦ì
(±NH¤§«áªº¨ä¥L¸ê®Æ³£°Å¤U¡AµM«á±µÄò¶K¤WA~FÄæ¦ì¼Æ¦rªº¤§«á)
¦ý¬OA~F¡BH~Mµ¥¦æ¼Æ¤@­P¦ý¦C¼Æ¤£¦P
¤£ª¾¹D³o¼Ëvba ­n«ç»ò¼g?
test.zip (189.94 KB)

¤U¸ü¦¸¼Æ: 7

2016-6-7 12:54

³Q½×¤å¹GºÆªº¤H

¦^´_ 4# stillfish00

©Ò¿×¥x¤W¤Q¤ÀÄÁ
¥x¤U¤Q¦~¥\
¨S·Q¨ì­×§ï¤@¤Uµ{¦¡½X´N¥i¥H§ïÅܨº»ò¦h
§ÚÁÙ¦³«Ü¦h»Ý­n¾Ç²ßªº
«D±`·PÁ±zªºÀ°§U~

stillfish00

¦^´_ 3# ³Q½×¤å¹GºÆªº¤H
¤p§ï¤@¤U¦Ó¤w

1. Sub Test()
   
2.     Dim ws As Worksheet, r, c, shCnt, i
   
3.     shCnt = Sheets.Count
   
4.     Set ws = Sheets.Add(after:=Sheets(shCnt))
   
5.    
   
6.     r = 1
   
7.     For i = 1 To shCnt
   
8.         With Sheets(i)
   
9.             For c = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column Step 7
   
10.                 With .Cells(1, c).CurrentRegion
    
11.                     .Copy ws.Cells(r, 1)
    
12.                     r = r + .Rows.Count
    
13.                 End With
    
14.             Next
    
15.         End With
    
16.     Next
    
17. End Sub

½Æ»s¥N½X

³Q½×¤å¹GºÆªº¤H

¦^´_ 2# stillfish00
­º¥ý¡AÁÂÁ±zªº¸Ñµª!!
¨Æ±¡¨ä¹ê¬O³o¼Ëªº¡A
§Úªº¸ê®Æ¨ä¹ê¤£¥u¤@­Ó¤u§@ªí¡A¦Ó¥B©R¦W³£¨S¦³¤@©wªº¶¶§Ç¡A
¦pªG§Ú§Æ±æ±N¨C¤@­Ó¤u§@ªí³£¯à¶i¦æ¤W­z½Æ»s¶K¤Wªº°Ê§@(µM«á¬O±µÄò¦b©Ò¦³¤u§@ªí«á)¡A
¤SÀ³¸Ó¦p¦ó°µ©O?

stillfish00

¦^´_ 1# ³Q½×¤å¹GºÆªº¤H

1. Sub Test()
   
2.     Dim ws As Worksheet, r, c
   
3.     Set ws = Sheets.Add
   
4.    
   
5.     r = 1
   
6.     With Sheets("1")
   
7.         For c = 1 To .Cells(1, .Columns.count).End(xlToLeft).Column Step 7
   
8.             With .Cells(1, c).CurrentRegion
   
9.                 .Copy ws.Cells(r, 1)
   
10.                 r = r + .Rows.count
    
11.             End With
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X