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