GBKEE

¦^´_ 1# pupai
¥¦¦³¥¿±`°õ¦æ
Sheets("¶i¶¥¾ã²z").[B2:M2]ªº¤½¦¡=trans2mon(INDIRECT(ADDRESS(221 - (COLUMN() - 2)  * 20,1,1,1,"ªñ¤@¦~¸ê®Æ"),1))
¦]§A«öF8³v¦æ°õ¦æ·|¬Ý¨ì¨ç¼Ætrans2monªº°õ¦æ
«öF5´N¬Ý¤£¨ì

GBKEE

¦^´_ 4# pupai
·s¤â±`¥Çªº¿ù»~
³oSub ¥¨¶°2() ¬O¦b¤u§@ªíª«¥ó¼Ò²Õ,¦ý¦p Sub ¥¨¶°2()¦b¤@¯ë¼Ò²Õ©ÎThisWorkbook,´N¨S¦³¿ù»~

1. Sub ¥¨¶°2()
   
2. For i = 2 To 100
   
3.     Sheets("¥N½X").Select
   
4.     If Trim(Range("A" & i).Value) <> "" Then
   
5.     StockNo = Range("A" & i).Value
   
6.     Sheets("¨ú±o¸ê®Æ").Select
   
7.     Range("B1").Value = StockNo
   
8.     Application.Run "'¸³ºÊ«ùªÑ¤ÀªR.xls'!Sheet2.GetData"
   
9.     End If
   
10. Next i
    
11. '³o¸Ì¨S¿ù»~*****************
    
12.     With Sheets("¶i¶¥¾ã²z")
    
13.         .Select
    
14.         .Range("A46:M46").Select
    
15.     End With
    
16. '*****************
    
17.   
    
18.   '''µ{¦¡½X¬O¦b[¥N½X]¤u§@ªíª«¥ó¼Ò²Õ.....
    
19.     Sheets("¶i¶¥¾ã²z").Select  '±N§@¥Î¤¤ªº¤u§@ªí²¾¨ì [¶i¶¥¾ã²z]
    
20.     Range("A46:M46").Select    '³o¸ÌªºRange("A46:M46")¬O[¥N½X] ªºRange
    
21.     '¿ù»~¬O¤£¯à¦b [¶i¶¥¾ã²z]¤¤ «ü©w[¥N½X]ªºRange¬°[¶i¶¥¾ã²z]ªº§@¥Î¤¤ªº½d³ò
    
22.     Selection.Copy
    
23.     Sheets("Sheet1").Select
    
24.     Rows("2:2").Select          '¦P¼Ëªº¿ù»~
    
25.     Selection.Insert Shift:=xlDown
    
26.     Range("A2").Select          '¦P¼Ëªº¿ù»~
    
27.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
28.         :=False, Transpose:=False
    
29. End Sub

½Æ»s¥N½X