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

[µo°Ý] °j°é°ÝÃD

[µo°Ý] °j°é°ÝÃD

½Ð°Ý¥H¤Uªº°Ê§@­n¦p¦ó¼g¦¨°j°é?
§Ú¥Î¨â­Ófor ¼g¦ý¥X¨Óªºµ²ªG³£¤£¬O§Ú­nªº­È

Sheets("sheet3").Range("a2 : a6") = Sheets("sheet1").Cells(2, 1)
Sheets("sheet3").Range("a7 : a11") = Sheets("sheet1").Cells(3, 1)
Sheets("sheet3").Range("a12 : a16") = Sheets("sheet1").Cells(4, 1)

¦^´_ 1# °²­±¶W¤H

For i = 2 To 4
Sheets("sheet3").Range("a2").Offset((i - 2) * 5).Resize(5, 1) = Sheets("sheet1").Cells(i, 1)
Next
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# °²­±¶W¤H
  1. Option Explicit
  2. Sub Ex()
  3.     Dim AR(), I As Integer
  4.     AR = Array("a2 : a6", "a7 : a11", "a12 : a16")
  5.     For I = 1 To UBound(AR) + 1
  6.         Sheets("sheet3").Range(AR(I - 1)) = Sheets("sheet1").Cells(I + 1, 1)
  7.     Next
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD