- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 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¶Ü?? |
|