- ©«¤l
- 59
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 75
- ÂI¦W
- 271
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ò¶©
- µù¥U®É¶¡
- 2012-7-5
- ³Ì«áµn¿ý
- 2024-11-4
|
¦^´_ 1# smallpoper
¥ý±NÀÉ®×¥t¦s¬°¡yxlsm¡z¡A¦A±N¥H¤Uµ{¦¡¥[¤J¼Ò²Õ¤¤!!- Sub test()
- Sheets("¦X¨Ö«á").Cells.Delete Shift:=xlUp
- Sheets("¦X¨Ö«á").Range("A1:j1") = Array("No", "X", "Y", "TESTERNO", "BINNO", "VF", "VB", "VB1", "IR", "IR1")
- Sheets("¦X¨Ö«e").Select
- Cells(1, 1).Select
- i = 1
- Do
- str1 = Cells(1, i).Value
- last_row = Cells(1, i + 1).End(xlDown).Row
- Sheets(1).Range(Cells(2, i), Cells(last_row, i + 9)).Copy
- Sheets(2).Select
- Sheets(2).[a65535].End(xlUp).Offset(1).PasteSpecial
- ActiveCell.Resize(last_row - 1).Value = str1
- i = i + 11
- Sheets(1).Select
- Loop While Sheets(1).Cells(1, i).Value <> ""
- [a1].Activate
- ThisWorkbook.Save
-
- MsgBox "¦X¨Ö§¹¦¨!!"
- End Sub
½Æ»s¥N½X |
|