- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¦^´_ 8# jackson7015
§Aªº¥Øªº¤£¬O¥Î¼Ï¶s¤ÀªRªí¡A¼Ï¶s¤ÀªRªí¬O²Î¦XÂk¯Ç¡A§Anªº¥u¬O±Æ¦C¬Y¨ÇÄæ¦ì
¥Î³oÓ¥N½X¡G- Sub yy()
- Dim i%, j%, n%, c, arr, a
- c = Array(3, 4, 5, 10, 1, 11, 12)
- With Sheets("ºî¦X¸ê®Æ®w")
- n = .[b65536].End(3).Row
- a = .Range(.Cells(4, 2), .Cells(n, 13))
- End With
- ReDim arr(1 To UBound(a), 1 To 7)
- For j = 1 To UBound(a)
- For i = 1 To 7
- arr(j, i) = a(j, c(i - 1))
- Next i, j
- With Sheets("¶µ¥Ø9")
- .Cells(2, 1).Resize(j - 1, 7) = arr
- .Cells(2, 6).Resize(UBound(a), 1).SpecialCells(4) = "-"
- .UsedRange.Borders.LineStyle = 1
- End With
- End Sub
½Æ»s¥N½X |
|