- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¦^´_ 3# chres
Yn±q²Ä6¦C¶}©l¶K¤W¸ê®Æ,7¨ì12¦C¬O¦X¨ÖªºÀx¦s®æ¸ê®Æ·|¥¢¯u
¨Ï¥Î¤£¦PÀɮצWºÙ,קï¦p¤U- Option Explicit
- Sub ex()
- Dim Ay(), Sh As Worksheet, Ar, I As Integer, J As Integer, S As Integer
- Dim WB As Workbook
- Set WB = ActiveWorkbook '§@¥Î¤¤ªº¬¡¶Ã¯
- 'Set WB = Workbooks("A.xls") '«ü©wªº¬¡¶Ã¯
- Ar = Array("B", "C", "D", "P", "Z", "AJ", "AT", "BL", "BM", "BP", "BQ", "BR", "CM", "CW", "DG", "EB", "EC")
- Set Sh = WB.Sheets.Add(after:=Sheets(Sheets.Count))
- For I = 5 To 6
- With WB.Sheets(I)
- For J = 0 To UBound(Ar)
- ReDim Preserve Ay(S)
- Ay(S) = Application.Transpose(.Range(Ar(J) & 13 & ":" & Ar(J) & 268))
- S = S + 1
- Next
- Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(256, UBound(Ar) + 1) = Application.Transpose(Ay)
- S = 0
- Erase Ay
- End With
- Next
- Sh.Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
- Set Sh = Nothing
- End Sub
½Æ»s¥N½X |
|