OfficeTutor.com
배움터 나눔터 교육센터 오튜장터
 통합검색  
  Home > 나눔터 > 엑셀 > 묻고답하기
엑셀
워드
액세스
파워포인트
아웃룩
프런트페이지
인포패스
원노트
비지오
쉐어포인트
포토드로우
퍼블리셔
오피스공통
MVP 안내
MVP 명예의 전당
MVP 카페

 

 

 

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

작성자:  

 미니스프린터 (alexu)

추천:  1
파일:     조회:  32
제목:   포커스 되어 있는 행의 특정 셀 복사하기
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007): 엑셀2016

* 아래줄에 질문을 작성하세요 >>

안녕하십니까. 어제 올렸던 질문을 통해 많은 것을 배워 감사하다는 말씀부터 재차 올립니다.

오늘은 제목과 같이 포커스 되어 있는 행의 특정 셀 내용을 복사하는 명령문을 구현할 수 있을지 하여 문의드립니다.

1000여개의 고객 상담 정보를 각각 복사해서 인터넷에 붙여넣는 작업을 해야하는데요. 각 행(고객)마다 K열에는 짧게는 2줄에서 길게는 10줄 정도의 긴 내용이 적혀있구요. 일일이 셀을 클릭해서 내용을 드래그하고 이를 복사하는 과정을 명령문 작성을 통해 짧게 할 수 있을까요?

각 행(고객)마다 K열(상담내용)에 있는 셀의 내용을 복사하고자 합니다.

가능하다면 조언 부탁드리겠습니다!

읽어주셔서 감사합니다. :-)
 
[불량 게시물 신고]  
dewDim sValue as string  '변수 선언

'선언된 변수에 포커스(활성셀)의 특정열값을 넣어주고, sValue 변수를 사용하시면 됩니다.
sValue = ActiveCell.EntireRow.Columns("K").Value

01-10 (09:15)
삭제 ■신고
미니스프린터Sub 상담내용()
  Dim sValue as string
    sValue = ActiveCell.EntireRow.Columns("K").Value
End Sub

이렇게 작성해보았는데 클립보드로 복사가 되지 않네요.
target.copy 혹은 DataObject의 PutInClipboard로도 시도해보았지만 제 실력으로는 오류만 발생합니다. 도와주세요ㅠㅠ
01-10 (10:36)
삭제 ■신고
        
  

작성일 : 2019-01-08(16:18)
최종수정일 : 2019-01-08(16:37)
 
 
 
회사소개 | 이용약관 | 개인정보 처리방침 | 회원정보수정 | 교육신청 및 문의 | 이메일무단수집거부 위로

오피스튜터 블로그 오피스튜터페이스북 오피스튜터유투브
110-722 서울 종로구 세종대로23길 47, 601-74 ㈜오피스튜터 ☎1544-4102 대표이사 : 전경수
개인정보관리책임자 : 이희진(privacy@officetutor.com) 사업자등록번호 120-86-14501
통신판매업신고 2013-서울종로-0547
norton
Copyright ⓒ OfficeTutor.com 이 페이지의 저작권은 ㈜오피스튜터와 콘텐츠 제공자에게 있습니다. 무단 복제를 금합니다.
Microsoft 및 Office 로고는 미국, 대한민국 및/또는 기타 국가에서의 Microsoft Corporation 등록 상표 또는 상표입니다.