§ì¨ú³Ì«á30µ§Äæ¦ìªº¸ê®Æ

dragonbx

¦p·Q­n§âdata¦Û°Ê½Æ»s«á­±30µ§¸Ó¦p¦ó¼gVBA©O?

ex.

§Úªºdata¦³90Äæ¦ì12¦C¡A¦³¿ìªkÅýexcel¦Û°Ê§ì«á­±30Äæ¦ìªºdata

chin15

data¦³90Äæ¦ì12¦C
´N³o¼Ë¡H
¯à§_³zÅS¤@¤U¦b¤°»ò¦ì¸m¡H
§A¤£»¡«Ü¤£¦n²qªº

Hsieh

½Æ»s¸ê®Æ¡A­n½Æ»s¨ì­þ¸Ì?­n¾ãÄæ½Æ»s©Î¬O¥u½Æ»s¬Y¨Ç¦C¦ì?
µo°Ý½Ð±N»Ý¨Dªí¹F²M·¡¡A³Ì¦n¦³½d¨Ò¤W¶Ç»¡©ú

dragonbx

ex§Ú¦³¤@DATAÄæ¦ì¬OE1~AO13¬O§_¥i¥H¼gvbaÅývba¦Û°Ê§P©w§ì¨ú30µ§DATA ±NL1~AO12¨Ã±Nµ²ªG¶K¦Üsheet1ªºA7~AD18

chin15

Sub copy30()
With Sheets("1")
n = .[iv1].End(1).Column - 29
.Cells(1, n).Resize(12, 30).Copy Sheets("sheet1").[a8]
End With
End Sub

dragonbx

³o¦U¤èªk¤Ó´Î¤F~~³o¼Ë´N¥i¥H¸Ñ¨M§Ú¤@­Ó¤@­Ó¿z¿ïªº³Â·Ð¤F
·PÁ¤j¤jªº¨ó§U­ò!!

dragonbx

¤µ¤Ñ´ú¸Õ³o­Ó¤èªk¡Aµo²{¥u­n¸ê®Æ<30µ§®Éµ{¦¡·|¥X²{¿ù»~~½Ð°Ý³o¸Ó¦p¦ó¸Ñ¨M©O?

GBKEE

¦^´_ 7# dragonbx

1. Sub Ex()
   
2.     Dim Rng As Range
   
3.     With Sheets("1")
   
4.         Set Rng = .Range("F1", .Cells(12, .[F1].End(xlToRight).Column)) '¸ê®Æ½d³ò
   
5.         If Rng.Columns.Count >= 30 Then   '¸ê®Æ½d³òÄæ¼Æ   >= 30
   
6.             .Range(Rng.Cells(1, Rng.Columns.Count - 29), Rng.Cells(Rng.Cells.Count)).Copy Sheets("sheet1").[A7]
   
7.             'Rng.Cells(1, Rng.Columns.Count - 29)    ' ¸ê®Æ½d³òÄæ¼Æ -29ªº Äæ¦ì
   
8.               'Rng.Cells(Rng.Cells.Count))                       '¸ê®Æ½d³ò ³Ì«á¤@­Ó¦ì¸m
   
9.        Else
   
10.             Rng.Copy Sheets("sheet1").[A7]
    
11.         End If
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

dragonbx

¯uªº¬O¤Ó·PÁ¤j¤j¸Ô²Óªº¸Ñ»¡¤F¡AÁÂÁÂ!!