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

[µo°Ý] VBA °ÊºA°}¦C¾Þ§@¨ú­È

[µo°Ý] VBA °ÊºA°}¦C¾Þ§@¨ú­È

¦U¦ì«e½ú¦n

½Ð°Ý­n¦p¦ó¾Þ§@°}¦C¨ú¬Y¨Ç­È¤§«á°¾²¾¦A¨ú­È¡H

°²³]workbooks("book1").sheets("sheet1")¤º¦³­Ó°ÊºA°}¦Carray()

§Ú­n°õ¦æN¦¸¡A©T©w¨ú3­Ó­È
²Ä¤@¦¸¨ú°}¦C¤º¦ì¸m0~2ªº­È¡A¿é¥X­È¨ì"book2"¤¤"sheet2"ªº"A1:C1"
²Ä¤G¦¸¨ú3~5¡A¿é¥X­È¨ì"book2"¤¤"sheet3"ªº"A1:C1"
²Ä¤T¦¸¨ú6~8¡A¿é¥X­È¨ì"book2"¤¤"sheet4"ªº"A1:C1"
¨Ì¦¹Ãþ±À

¦]¬°¸ê®Æ¶q·|¤@ª½¼W¥[
­ì¥»¥ÎVBA¼g¥X°Ê§@ªº¥\¯à
¦ý¬Oµo²{¸ê®Æ¶q¤ñ¸û¦hªº®É­Ô¡A¹B§@·|»Ý­n¤@¬q®É¶¡
¦]¬°¬O³vµ§¸ê®Æ½Æ»s¶K¤W¡÷·s¼W¤À­¶¡÷¶K¤W
·Q»¡¥Î°}¦C¥[§Ö³t«×
¤£ª¾¹D¤W­±·Qªk¥i¤£¥i¦æ

¥Ø«e¥u·|¼g¥X¥þ³¡¸ê®Æ¼g¤J°}¦C¤º
¿é¥X¨ìbook2¤¤sheet2ªº"A1:C1"¤º
¦ý¬O­n¿é¥X¨ì¤U¤@­¶´N¥dÃö¤F

½Ð¦U¦ì«e½ú«üÂI¤p§Ì:'(

¦U¦ì«e½ú
¤p§Ì¦Û¤vºN¯Á¥X¥Ø«e¥i¹B§@ªºµ{¦¡½X¦p¤U
  1.     Dim Arr_ssd, Arr_temp, ReArr_1, ReArr_2, Arr_out As Variant
  2.     Dim a, b, c, i, j, k, rr, cc, x, y As Variant
  3.    
  4.     Application.DisplayAlerts = False
  5.    
  6.     Windows("array-1.xls").Activate
  7.     i = Workbooks("array-1").Sheets("²Î­pªí").UsedRange.Rows.Count
  8.     j = Round((i / 25) + 0.5)
  9.     k = 0 'k¬°§PÂ_°õ¦æ¦¸¼Æ
  10.    
  11.     Worksheets("²Î­pªí").Activate
  12.     Arr_ssd = Sheets("²Î­pªí").Range([A2], Cells(i, 1).Offset(, 7)).Value
  13.     Arr_out = Sheets("¶×¥Xªí").Range("A2:I26")
  14.     Dim dd As Range
  15.     Set dd = Sheets("¶×¥Xªí").Range("A2")
  16.     ReDim Arr_temp(1 To 25, 1 To 9)
  17.    
  18.     ReArr_1 = WorksheetFunction.Transpose(Arr_ssd)
  19.     ReDim Preserve ReArr_1(1 To 9, 1 To 1 + (25 * j))
  20.     ReArr_2 = WorksheetFunction.Transpose(ReArr_1)
  21.    
  22.     x = 1
  23.     y = 1
  24.     rr = 0
  25.    
  26.     For k = 1 To j
  27.         For y = 1 + (rr) To 25 + (rr)
  28.             For x = 1 To 9
  29.                 Arr_temp(y - (rr), x) = ReArr_2(y, x)
  30.                 Debug.Print Arr_temp(y - (rr), x)
  31.             Next x
  32.         Next y
  33.         rr = rr + 25
  34.         dd.Resize(UBound(Arr_temp, 1), UBound(Arr_temp, 2)).Value = Arr_temp
  35.         
  36.         '¿é¥Xªí³æ
  37.     Next k
½Æ»s¥N½X
¤£ª¾¹D¦³¨S¦³§ó²³æªº¤è¦¡¡H·QºÉ¥i¯à´î¤Ö¨Ï¥Î°j°é

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD