나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 부연동 (shkim2552)

추천:  2
파일:     조회:  2373
제목:   다시 시트복사에 대해서
　 　 　
　
sheet1         sheet2
A1(값)       A1=sheet1!A1
A2(빈셀)     A2=sheet1!A3
A3(값)       A3=sheet1!A5
A4(빈셀)     A4=sheet1!A7               
A5(값)
A6(빈셀)
A7(값)

sheet2 A1값을 지정한후 sheet2 A2값부터 자동으로 복사할 수
있는 방법좀 알려 주세요..

아래글에 리플달아주신분들 고맙습니다. 		　
[불량 게시물 신고]  
ist공원아래 매크로를 실행해 보세요..

Sub 빈거없애고부치기()
    Dim rngSource As Range, rngNow As Range
    Set rngSource = Sheets("sheet1").Range("A1")
    Set rngNow = Sheets("sheet2").Range("A1")
    
    Dim i As Integer
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        If Not IsEmpty(rngSource) Then
            rngNow = rngSource
            Set rngNow = rngNow.Offset(1, 0)
        End If
        Set rngSource = rngSource.Offset(1, 0)
    Next i
End Sub

건투를...		07-10 (16:39)
ⓧ삭제 ■신고
ist공원연결하여 붙여 넣으시려면, 코드를 수정해야겠습니다.

Sub 빈거없애고부치기()
    Dim rngSource As Range, rngNow As Range
    Set rngSource = Sheets("sheet1").Range("A1")
    Set rngNow = Sheets("sheet2").Range("A1")
    
    Dim i As Integer
    For i = 1 To Sheets("sheet1").UsedRange.Rows.Count
        If Not IsEmpty(rngSource) Then
            rngSource.Copy
            Sheets("sheet2").Activate
            rngNow.Select
            ActiveSheet.Paste Link:=True
            Set rngNow = rngNow.Offset(1, 0)
        End If
        Set rngSource = rngSource.Offset(1, 0)
    Next i
End Sub

건투를...		07-10 (16:47)
ⓧ삭제 ■신고
비포앤에프터혹 이걸로는 안될까요?
=INDIRECT("Sheet1!A"&((ROW()-1)*2)+1)
그럼 도움이 되시길...		07-10 (16:54)
ⓧ삭제 ■신고
뽕애Sheet2의 A1셀에 =INDIRECT("Sheet1!A"&(ROW()*2-1))를 입력하시고 A2셀부터는 채우기핸들러로 쭈욱..
VBA는 잘 몰라서 함수로다가 기냥. 
07-10 (16:58)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-07-10(16:29)
최종수정일 : 2003-07-10(16:29)