Fly to the sky & Return

[엑셀 vba] 배열을 이용해서 특정 시트 정보를 특정 시트에 입력하기 본문

카테고리 없음

[엑셀 vba] 배열을 이용해서 특정 시트 정보를 특정 시트에 입력하기

낼은어떻게 2016. 4. 5. 21:53
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

30개정도 되는 cell  두 컬럼에  20개 정도 되는 내용을 순차적으로 입력하는  vba입니다

한 칼럼이 완성되면  다음 칼럼으로 넘어갈때  처음 칼럼 마지막 다음 값부터 입력되도록 

코딩한것입니다...  


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub From_sheet_make_array()      
 
    Dim myarray As Variant      
    myarray = Range("k3:k22").Value      
    i = 1     
    k = 0               
    
    For Each cell In Range("c3:c33")                
        ' For i = 1 To UBound(myarray)        
 
        Range("c3").Offset(k, 0).Value = myarray(i, 1)            
    
        i = i + 1     
            k = k + 1            
 
        If i = UBound(myarray) + 1 Then      
            i = 1      
        End If                   
        Next           
    
    k = 0             
 
    For Each cell In Range("d3:d33")                
        ' For i = 1 To UBound(myarray)        
        Range("d3").Offset(k, 0).Value = myarray(i, 1)            
        i = i + 1      
        k = k + 1            
        If i = UBound(myarray) + 1 Then      
            i = 1      
        End If                   
    Next   
End Sub        
cs


저작자표시