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 |