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

 황기성 (latinum)

추천:  2
파일:     조회:  4309
제목:   [RE]궁금한건 못참아~~
　 　 　
　 Sub 채주별잔액_조회()
    Range("j2").Select
    Selection.NumberFormat = "#,###"
    Selection.Copy
    ActiveCell.CurrentRegion.Select
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    
    Range("A1").Select
End Sub
런타임오류~~*___*
아아 멀고도멀다....
어케 알려줘도 못할까...

==============[방자님 글에 대한 답변입니다]==============
 		　
[불량 게시물 신고]  
방자런타임오류는 계속~~~ 되는데요!
ActiveCell.CurrentRegion.Select
속성의 활용 예를 한번 보여주면...
이해가 갈긴데...
^^ 지송
지가원하는건
j2셀의 수식을 카피해서 j5:j1500까지영역중에
현재 값이입력되어있는 열(만약20열까지입력되어있으면...)
20열을 찿아(그러니까 j20까지)붙여넣기를 한다음
다시그값을 선택하여붙여넣기의 값으로입력하고픈데...
이해가가시죠....
07-01 (18:54)
ⓧ삭제 ■신고
황기성안녕하세요? 이해는 잘 아니 갑니다만...^^*

Sub dhCopyNPaste()
Dim rngC As Range
    Set rngC = Range("J5:" & Range("J1501").End(xlUp))
    With Range("J2")
        .NumberFormatLocal = "#,###"
        .Copy
    End With
    With rngC
        .PasteSpecial xlPasteFormulas
        .Copy
        .PasteSpecial xlPasteValues
    End With
End Sub

그럼...행운이 있으시길...!		07-01 (19:09)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-07-01(18:30)
최종수정일 : 2003-07-01(18:30)
　


 ◎ 관련글
  제 목   작성자   날짜
궁금한건 못참아~~ 방자 2003-07-01
[RE]궁금한건 못참아~~ 방자 2003-07-01
◎ [RE]궁금한건 못참아~~ 황기성 2003-07-01
[RE]궁금한건 못참아~~ 방자 2003-07-01