¥»©«³Ì«á¥Ñ jackson7015 ©ó 2012-3-28 01:14 ½s¿è
½Ð°Ý¦p¦ó±N¸ê®Æ®w¤ºªº¨Ì·Ó¶µ¥Ø¡A´£¨ú«ü©wªº¶µ¥Ø«á¶ñ¤J«ü©w¤u§@¶®Ø¬[¤º
¤é³øªí-1.rar (51.04 KB)
¦³ÃC¦â³¡¤À¡A¬O¥u»Ýn¿é¥X¸ê®Æ®w¸ê®Æªº³¡¤À
¨ä¥L³¡¤À¬O©T©w³¡¤À
§Ú¦³oobird ¤j¤j´£¨Ñªº¦¡¦C¡A¦ý¬O¦]¬°¸ê®Æ®wªº®æ¦¡¦³§ïÅÜ¡A©Ò¥HµLªk¥¿±`°õ¦æ
¥B©Ò»Ý¶ñ¤Jªº®Ø¬[¤]¦³©ÒÅÜ°Ê¡A©Ò¥H§Æ±æ¦³¤j¤j¯àÀ°¦£¸Ñ¨M- 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("¶µ¥Ø¢°")
- .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 |