GBKEE

¦^´_ 1# jiuhtsair

1. Sub Ex()
   
2.     Dim k As Integer                    '«Å§i¬°¼Æ¦r«¬ºA
   
3.     [h1].Offset(1).Resize(3, 20) = ""   '[h1]ªº¤U¤@¦C¦ì¸m: ÂX¥R 3¦C20Ä檺¦ì¸m
   
4.     For i = 2 To 4                      '²Ä2¦C - ²Ä4¦C
   
5.         For j = 3 To 7                  '²Ä3Äæ - ²Ä7Äæ
   
6.             k = Sheets(1).Cells(i, j)   'Sheets(1).Cells(i, j)ªº¤º®e¬°¦r¦ê«¬ºA
   
7.             'k ¤w«Å§i¬°¼Æ¦r: ±N¦r¦ê«¬ºAÂà´«¬°¼Æ¦r«¬ºA
   
8.             'Sheets(1).[h1].Cells(i, k) = k '[h1]ªº²Ä i ¦C,²Ä k Äæ=k
   
9.             
   
10.             Sheets(1).[h1].Cells(i, k) = "'" & k '[h1]ªº²Ä i ¦C,²Ä k Äæ=k
    
11.             ' "'" & k  ¼Æ¦rÂà´«¬°¤å¦r
    
12.         Next j
    
13.    Next i
    
14. End Sub
    
15. Sub Ex1()
    
16.     Dim E As Range
    
17.     [h1].Offset(1).Resize(3, 20) = ""
    
18.     For Each E In [C2:G4]                       '             '¨Ì§Ç¦b[C2:G4] ªº¨C¤@Àx¦s®æ
    
19.             Sheets(1).[h1].Cells(E.Row, E) = E        '=­ì¥»ªº¤å¦r«¬ºA
    
20.             'Cells(E.Row, E)   E.Row : Àx¦s®æªº¦C¸¹ ,  E : Àx¦s®æªº¤º®e( ¤º®e¦p¬°¦r¦ê  ¨t²Î ¦Û°ÊÂà´«¬°¼Æ¦r )
    
21.             'Sheets(1).[h1].Cells(E.Row, E) = E.Value '=¼Æ¦r«¬ºA
    
22.    Next
    
23. End Sub

½Æ»s¥N½X