ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤£¦PÄæ¦ìªº¸ê®Æ¡A­n¦p¦ó°ïÅ|¨ì¦P¤@­Óªí®æ?

[µo°Ý] ¤£¦PÄæ¦ìªº¸ê®Æ¡A­n¦p¦ó°ïÅ|¨ì¦P¤@­Óªí®æ?

½Ð°Ý¤j®a:
§Ú¦³¤­²Õ¸ê®Æ¡A¤À§O¦³n1,n2,n3,n4,n5µ§¸ê®Æ¡A
¦Ó¥B¤­²Õ¸ê®Æªº¤ñ¼Æ³£¤£©T©w(n1,n2,n3,n4,n5¨S¿ìªk©T©w)¡A
§Ú·Q­n§â³o¤­²Õ¸ê®Æ¨Ì§Ç°ïÅ|¨ì¥kÃ䪺ªí®æ(214-219¦C)¡A
½Ð°Ý§ÚÀ³¸Ó«ç»ò°µ©O? ³Â·Ð¤j®a¤F!

¸ê®Æ°ïÅ|°ÝÃD.zip (4.07 KB)

Sub yy()
Cells(9, 179).CurrentRegion.Copy Cells(9, 214)
For i = 186 To 212 Step 8
Cells(9, i).CurrentRegion.Offset(1, 0).Copy Cells(9, 214).End(4)(2, 1)
Next
End Sub

TOP

¦^´_ 1# sandra_wang
  1. Sub Ex()
  2.     Dim Place%, Place_Row%, i%
  3.     Place = 214
  4.     Place_Row = 10
  5.     With ActiveSheet
  6.         If .Cells(Rows.Count, Place).End(xlUp).row >= Place_Row Then
  7.             .Range(.Cells(Place_Row, Place), .Cells(Rows.Count, Place).End(xlUp)).Resize(, 6).Clear
  8.         End If
  9.         For i = 179 To 179 + (7 * 4) Step 7
  10.             .Range(.Cells(Place_Row, i), .Cells(Rows.Count, i).End(xlUp)).Resize(, 6).Copy .Cells(Rows.Count, Place).End(xlUp).Cells(2, 1)
  11.         Next
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

To#2 & #3ªº¦^ÂЭò~~¸Ñ¨M§Úªº°ÝÃD¤F! ÁÂÁ§A­Ì!!

To #2 oobird
·Q½Ð±Ð§A~Cells(9, i).CurrentRegion.Offset(1, 0).Copy Cells(9, 214).End(4)(2, 1)
¸Ì­±ªºEnd(4)(2, 1)¬O¤°»ò·N«ä©O??

TOP

End(4)(2, 1)
¬Û·í©ó«öctrl+¦V¤UÁä¡AµM«á¦A«ö¤@­Ó¦V¤UÁä¡C

TOP

ÁÂÁÂoobirdªº¸Ñµª~

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2010-11-26 14:28): ¤w§R±¼§A­«µoªº¤å

¥»©«³Ì«á¥Ñ sandra_wang ©ó 2010-11-26 09:41 ½s¿è

To oobird:
§Ú¤µ¤Ñ¥Î§A´£¨ÑªºµªÂÐ¥h¶]¸ê®Æªº®É­Ô¦³µo²{°ÝÃD...
¥i¥H½Ð§AÀ°§Ú¬Ý¤@¤U¶Ü?

·í¸ê®Æ¦pªþ¥ó(¸ê®Æ°ïÅ|°ÝÃD(To oobird ).zip)¨º¼Ëªº®É­Ô¡A¥¨¶°´N¤£¯à¶]¤F!!

¸ê®Æ°ïÅ|°ÝÃD(To oobird ).zip (26.29 KB)

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2010-11-26 14:20): ¤w§R±¼§A­«µoªº¤å

To GBKEE:
§Ú¤µ¤Ñ¨Ï¥Î§A´£¨ÑªºµªÂж]¸ê®Æªº®É­Ô¤]µo²{¤@­Ó°ÝÃD¡A
·í§Ú²Ä10¦æªº¸ê®Æ¬OªÅ¥Õªº®É­Ô¡A¥¦·|§â²Ä9¦æªº¸ê®Æ(ªí®æ¦WºÙ)§ì¨ú¹L¥hÄæ¦ì214-219
½Ð°Ý§Ú­n«ç¼Ë¤~¯àÁקK¸ê®Æ¦³ªÅ¥Õªº®É­Ô¡Aªí®æ¦WºÙ·|³Q§ì¹L¥h©O?
¥i¥H½Ð§AÀ°§Ú¬Ý¬Ýªþ¥ó(¸ê®Æ°ïÅ|°ÝÃD(To GBKEE).zip)¶Ü?

¸ê®Æ°ïÅ|°ÝÃD(To GBKEE).zip (54.1 KB)

TOP

¨S¬ÝÀ´§Aªº¥Øªº¡C
Cells(9, m).CurrentRegion.Offset(1, 0).®Ú¥»¨S¸ê®Æ¡C

TOP

¦^´_ 8# sandra_wang
For i = 179 To 179 + (7 * 4) Step 7
            If .Cells(Place_Row, i) <> "" Then  '¥[¤W±ø¥ó¤£¬OªÅ¥Õ®É      
                  .Range(.Cells(Place_Row, i), .Cells(Rows.Count, i).End(xlUp)).Resize(, 6).Copy .Cells(Rows.Count, Place).End(xlUp).Cells(2, 1)
            End If  
Next

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD