For Next°j°é°ÝÃD½Ð¯q

child

X = Sheets("AA").Range("IV3").End(xlToLeft).Column
For j = 9 To X Step 4
      Worksheets("AA").Cells(8, j).Copy
      Worksheets("BB").Cells(i, 1).PasteSpecial Paste:=xlPasteValues
Next

­Y·Q±NAA¤u§@ªíªº°j°é¤ºÀx¦s®æ­È¡A¨Ì§Ç½Æ»s¶K¨ìBB¤u§@ªíAÄæ±qA2¶}©l¡C
Ex:Worksheets("AA").Cells(8, 9) = Worksheets("BB").Cells(1, 1)ªº­È¡AWorksheets("AA").Cells(8, 12) = Worksheets("BB").Cells(2, 1)¡A¥H¦¹Ãþ±À¡C
½Ð±Ð¦p¦ó§ï¼gµ{¦¡½X? «ÜÁÂÁ¤j®aªºÀ°¦£¡C

child

Dear donald¤j¤j:
¦pªG­nÅýiªº­È±qÀx¦s®æA2¶}©l©¹¤U¡A¤£ª¾¦p¦ó­×§ï?«ÜÁÂÁ§AªºÀ°¦£³á!

GBKEE

¦^´_ 1# child
¥t¤@¸Ñªk

1. Sub Ex()
   
2.     Dim x As Integer, Rng As Range, j As Integer
   
3.     x = Sheets("AA").Range("IV3").End(xlToLeft).Column
   
4.     Set Rng = Worksheets("BB").Cells(2, 1)
   
5.     For j = 9 To x Step 4
   
6.         Worksheets("AA").Cells(8, j).Copy
   
7.         Rng.PasteSpecial Paste:=xlPasteValues
   
8.         Set Rng = Rng.Offset(1)
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

child

ÁÂÁÂdonald©MGBKEEª©¥DªºÀ°¦£¡A·P¿E¤£ºÉ!

GBKEE

¦^´_ 6# child
ÁÙ¦³¤@¸Ñ
   

1. Sub Ex()
   
2.     Dim x As Integer, j As Integer
   
3.     x = Sheets("AA").Range("IV3").End(xlToLeft).Column
   
4.     For j = 9 To x Step 4
   
5.       Worksheets("AA").Cells(8, j).Copy
   
6.       Worksheets("BB").Cells((j - 9) / 4 + 2, 1).PasteSpecial Paste:=xlPasteValues
   
7.     Next
   
8. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 10# donald


   

¤U¸ü (789.17 KB)

2011-3-19 09:29

Hsieh

¦^´_ 12# donald

«Ü¦n¡A³o³£¬O¥i¥H¸Ñ¨M°ÝÃDªº¦n¤èªk
¤£½×¶Â¿ß©Î¥Õ¿ß¡A¯à§ì¦Ñ¹«´N¬O¦n¿ß
½×³õ´N¬O»Ý­n³o¼Ëªº°Q½×¡A¤èªk¤£¥u¤@­Ó
¦h¾Ç¤@­Ó§Þ¥©¡A´N¬O¦h¤@¥÷¼Wªø

Hsieh

¦^´_ 14# donald

­è­è¥J²Ó¬Ý¹L©pªº¾Þ§@¡A³Ì«á¤@­Ó¨BÆJ¡A§A¬O¦p¦ó¦V¤U¶ñº¡¤½¦¡ªº?
§Ú¤@ª½¾Þ§@¤£¥X³o¼Ëªº®ÄªG
¥i¥H»¡©ú¤@¤U¾Þ§@¤èªk¶Ü?

¦pªG²³æ¤½¦¡³£¤£¥Î¥i¸Õ¸Õ¦p¹Ï¾Þ§@

¤U¸ü (617.42 KB)

2011-3-19 13:45

GBKEE

12¼Ó ³Ì«á¤@­Ó¨BÆJ ¥Î·Æ¹«¾Þ§@ , ¦V¤U¶ñº¡¤½¦¡.
³q±`·|¬O  ¿ï¨úAÄæ ·Æ¹«ÂI¤JA1 «ö¤U Ctrl+Enten
ÁÙ¦³§Oªº¤è¦¡ Ä@»D¨ä¸Ô

GBKEE

¼Æ¦rµ¥®t°µªk,¤£¥Î©Ôªº
«ö¤U Ctrl+Enten

¤U¸ü (145.84 KB)

2011-3-19 14:07