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

[µo°Ý]¦p¦ó¦b¤@±iªíùØ,±N¨C¨â¦æ¸ê®Æ ¿é¥X¦¨¤@¦æ

[µo°Ý]¦p¦ó¦b¤@±iªíùØ,±N¨C¨â¦æ¸ê®Æ ¿é¥X¦¨¤@¦æ

½Ð±Ð°ª¤â«ç»ò¼g §Ö·Q¯}ÀY

½Ð¬Ý¸ê®Æ®æ®æ¦¡¥I¥ó

­ì©l®æ¦¡¦b¤u§@ªí1 §Æ±æ¿é¥X¦¨¤u§@ªí2ªº¸ê®Æ®æ¥Ü

§Ú­ì©lªº·Qªk¬O·Q¦b¨C­Ó¤Hªº¤u§@µû¤ñ»P¤u§@³æ¦ì¤ºªº¸ê®Æ©ñ¨ì
¨â­Ó°}¦C array_a »P array_b

µM«á¥Î array_a(0)&array_a(0)¨Ó´£¨ú¸ê®Æ¨Ó¦X¨Ö

¥i¬O¤£ª¾¦p¦ó±N¤u§@ªí¤@ªº©Ò¦³¤H¦W¥H¨C¨â¦æ¬°°ò¦¥á¤J
array_a »P array_b ª½¨ì±N©Ò¦³¤H³£³B²z¹L¤@¦¸

²{¦b¬O¥Î²Â¤èªk¶}¤F¤H¼Æx2ªº°}¦C¨Óª½±µ«ü©w¨C­Ó¤Hªº¸ê®Æ¦C

¤£¹L³o¼Ë«Ü²Â¤]«Ü¨S¼u©Ê

©Ò¥H·Q¥u§ï¼g¦¨¥Î¨â­Ó°}¦C ´N¯à³B²z³o±iªí

¤£®¢¤U°Ý¡A½Ð°ª¤â«ü±Ð °ª©úÂIªº¼gªk

vba ªì¾ÇªÌ ¸U¤À·PÁÂ
mytest.rar (18.28 KB)

传xls®æ¦¡ªº¤å¥ó¡C

TOP

¦^´_ 1# yurckr
  1. Sub Ex()
  2.     Dim i, Ar(1 To 5)
  3.     With Sheets("¤u§@ªí1")
  4.         For i = 8 To .Range("b" & Rows.Count).End(xlUp).Row Step 2
  5.             Ar(1) = .Cells(i, "A")
  6.             Ar(2) = .Cells(i, "B")
  7.             Ar(3) = .Cells(i, "E") & .Cells(i + 1, "E")
  8.             Ar(4) = .Cells(i, "F") & .Cells(i + 1, "F")
  9.             Ar(5) = .Cells(i, "G") & .Cells(i + 1, "G")
  10.             Sheets("¤u§@ªí2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 5) = Ar
  11.         Next
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

­«¶Ç¤@­Ó mytest-new.rar (18.07 KB) ½Ð«ü±Ð

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD