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

¤£¦PÄæ¦ì½Æ»s¨ì¥t¤@¤u§@ªí

¦^´_ 3# mdr0465

¥Î°a¤jªºµ{¦¡­×§ï
Sub ex1()
Dim d As Object, X%, Y%
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Arr = [a1].CurrentRegion
For Each a In Range([a1], [a1].End(2))
   d(a.Value) = a.Column                      '¬ö¿ý"Inventory(test)"¦U¦WºÙªºÄæ¦ì­È
Next
Workbooks.Open ThisWorkbook.Path & "\Inventory-12-29-16-12blank.xlsx"
Workbooks("Inventory-12-29-16-12blank.xlsx").Activate
For X = 2 To UBound(Arr)
   For Y = 1 To [a1].CurrentRegion.Columns.Count
      Cells(X, Y) = Arr(X, d(Cells(1, Y).Value))   '§Q¥Î"Inventory-12-29-16-12blank"ªº¦WºÙ§PÂ_"Inventory(test)"¸ê®ÆÄæ¦ì­È
   Next Y
Next X
Workbooks("Inventory-12-29-16-12blank.xlsx").Close True
Application.ScreenUpdating = True
End Sub

ÁÙ¦³¤@¼Ë¬O¦]¬°µ{¦¡¬O¹w³]¯S©wªºÀɮצWºÙ, ½Ð°Ý¯à§_°µ¨ì¤@­Ó¥\¯àÃþ¦ü¶}±ÒÀÉ®×¼Ò¦¡¤@¼Ë,¨C¦¸³£¥i¥H¦Û¦æ¿ï¨ú¬Y¤@­ÓÀɮרӽƻs¸ê®Æ©O??
-->¬Oµ{¦¡¦Û¦æ¶}±ÒInventory(test)¦A±N¸ê®Æ½Æ»s©óInventory-12-29-16-12blank¶Ü??

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD