ashan0418

¦^´_ 1# smallpoper

¥ý±NÀÉ®×¥t¦s¬°¡yxlsm¡z¡A¦A±N¥H¤Uµ{¦¡¥[¤J¼Ò²Õ¤¤!!

1. Sub test()
   
2.     Sheets("¦X¨Ö«á").Cells.Delete Shift:=xlUp
   
3.     Sheets("¦X¨Ö«á").Range("A1:j1") = Array("No", "X", "Y", "TESTERNO", "BINNO", "VF", "VB", "VB1", "IR", "IR1")
   
4.     Sheets("¦X¨Ö«e").Select
   
5.     Cells(1, 1).Select
   
6.     i = 1
   
7.     Do
   
8.         str1 = Cells(1, i).Value
   
9.         last_row = Cells(1, i + 1).End(xlDown).Row
   
10.         Sheets(1).Range(Cells(2, i), Cells(last_row, i + 9)).Copy
    
11.         Sheets(2).Select
    
12.         Sheets(2).[a65535].End(xlUp).Offset(1).PasteSpecial
    
13.         ActiveCell.Resize(last_row - 1).Value = str1
    
14.         i = i + 11
    
15.         Sheets(1).Select
    
16.     Loop While Sheets(1).Cells(1, i).Value <> ""
    
17.     [a1].Activate
    
18.     ThisWorkbook.Save
    
19.    
    
20.     MsgBox "¦X¨Ö§¹¦¨!!"
    
21. End Sub

½Æ»s¥N½X

ashan0418

¦^´_ 3# GBKEE

·PÁ GBKEE ¤j¤jªº«ü¾É¡A
±z¼gªºµ{¦¡¯uªº¬O¤Ó²`¶ø¤F¡A
¥ú¬O¡ySpecialCells(xlCellTypeConstants)¡z©Ò©µ¦ù¥X¨Óªº°ÝÃD§Ú´N¬ã¨s¦n¤[¤F¡A
½Ð°Ý¦³¬ÛÃöªº®ÑÄy¥i¥H°Ñ¦Ò¶Ü??

ashan0418

¦^´_ 5# GBKEE

GBKEE ¤j¤j¡A½Ð°Ý±z¬O«üExcelªº»¡©ú¶Ü??

´N¡ySpecialCells(xlCellTypeConstants)¡z§Ú´N¬d¤£¨ì¤F¡A
¬O§Ú¦b¦w¸Ëoffice®É´N¨S¦³¦w¸Ë¶Ü??

¤U¸ü (30.86 KB)

2014-12-26 09:31