|
|
|
|
|
|
' 다음과 같이 해 보세요.
' 참고로 테스트는 해 보지 않았습니다.
'------------
'시나리오
'------------
' Sheet1외의 시트의 모든 E19의 값들을
' Sheet1의 L8에 종으로 붙여 넣습니다.
'-----------------------------------
'----------------------------------------------
Sub copy_data()
'----------------------------------------------
dim sht as worksheet
' 데이타를 담을 배열 선언
dim varX as variant: varX=array()
' 각 시트를 돌며
'------------------------------
for each sht in worksheets
'------------------------------
' 시트명이 'Sheet1'이 아닐 경우
if sht.name<>"Sheet1" then
'E19 값을 배열에 추가
push varX, sht.Range("E19").Value
end if
'------------------------------
next
'------------------------------
dim rngx as range
'붙여 넣을 위치
set rngx = Worksheets("Sheet1").range("L8")
'1차원 배열이므로 Transpose하여 2차원 배열로 변환
varX = worksheetfunction.transpose(varX)
' 대입
rngx.resize(ubound(varX,1),1).value = varX
End With
'-------------------------------------------
sub push(arr as variant, ele as variant)
'-------------------------------------------
dim i as long : i = ubound(arr,1)+1
redim preserve arr(i)
arr(i)=ele
end sub |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-04-03(18:56)
최종수정일 : 2019-04-03(18:56) |
|
|
|
|