디시인사이드 갤러리

갤러리 이슈박스, 최근방문 갤러리

갤러리 본문 영역

ㅊㅊ모바일에서 작성

ㅇㅇ(175.223) 2024.08.30 08:31:51
조회 31 추천 0 댓글 0


Sub CopyAndMultiplyData()
    Dim sourceWb As Workbook
    Dim targetWb As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim multiplyValue As Double
    
    ' 복사할 값에 곱할 숫자
    multiplyValue = 1000
    
    ' 원본 데이터가 있는 파일 열기
    Set sourceWb = Workbooks.Open("C:\path\to\Workbook1.xlsx") ' 원본 파일 경로로 수정
    Set sourceSheet = sourceWb.Sheets(1) ' 1번 시트 선택
    
    ' 데이터를 붙여넣을 파일 열기
    Set targetWb = Workbooks.Open("C:\path\to\Workbook2.xlsx") ' 대상 파일 경로로 수정
    Set targetSheet = targetWb.Sheets(1) ' 1번 시트 선택
    
    ' 원본 데이터 범위 설정 (A3:A10)
    Set sourceRange = sourceSheet.Range("A3:A10")
    
    ' 대상 셀 범위 설정 (A3:A10)
    Set targetRange = targetSheet.Range("A3:A10")
    
    ' 데이터를 복사하고 1000을 곱하여 대상 셀에 붙여넣기
    For Each cell In sourceRange
        targetSheet.Cells(cell.Row, cell.Column).Value = cell.Value * multiplyValue
    Next cell
    
    ' 변경 사항 저장 및 파일 닫기
    targetWb.Save
    sourceWb.Close False
    targetWb.Close False
    
    MsgBox "데이터 복사 및 변환이 완료되었습니다."
End Sub

추천 비추천

0

고정닉 0

0

댓글 영역

전체 댓글 0
등록순정렬 기준선택
본문 보기

하단 갤러리 리스트 영역

왼쪽 컨텐츠 영역

갤러리 리스트 영역

갤러리 리스트
번호 제목 글쓴이 작성일 조회 추천
설문 지금 결혼하면 스타 하객 많이 올 것 같은 '인맥왕' 스타는? 운영자 24/10/28 - -
AD 보험상담은 디시공식설계사에게 받으세요! 운영자 24/08/28 - -
공지 중소기업 갤러리 이용 안내 [43] 운영자 22.03.18 71837 49
1079751 오늘 핼로윈이네ㅋㅋ 여직원들 메이드복 입겠노 중갤러(14.5) 07:48 0 0
1079750 월 150 저축하는데 어떠냐? [1] 중갤러(39.7) 07:42 21 0
1079749 못하겠으면 나오십쇼! 외국인 노동자들은 못들어가 안달입니다 ㅇㅇ(211.235) 07:42 7 1
1079748 월 500 실수령이 평균이하라는데 [1] 중갤러(106.101) 07:41 12 0
1079747 근데 요즘 여자들 스타킹 안신더라 중갤러(211.234) 07:39 17 0
1079746 국제결혼해서 애새끼 낳으면 [1] 김공추갤로그로 이동합니다. 07:39 17 0
1079745 하루 몇시간정도자야 안피건하여 [4] 중갤러(106.101) 07:38 27 0
1079744 물가에 힘들어하는 외국인 노동자들이 많습니다!! [1] ㅇㅇ(211.235) 07:34 20 0
1079743 롱패딩 사이즈 질문요 [1] ㅇㅇ(182.210) 07:33 12 0
1079742 쌀쌀해지니 여직원들 겨드랑이 못보네ㅠ [2] 중갤러(211.234) 07:33 28 0
1079741 이게된다고? [2] 중갤러(211.234) 07:29 40 1
1079740 보..복지...똥싸아아아아아아아아아아 똥싸아아아아아아아아아아 똥싸아아아아 꿀복지갤로그로 이동합니다. 07:29 13 0
1079739 퇴사인데 조례떡 돌려야할까? [1] ㅇㅇ갤로그로 이동합니다. 07:26 33 0
1079737 잠수퇴사한다 [2] ㅇㅇ(117.111) 07:20 54 1
1079736 결혼안하고 자녀안낳는 이유 [2] 중갤러(175.206) 07:19 45 0
1079735 할배가 타고오는 전기자전거에 박을뻔한거 겨우 피했네 [1] 엉덩이팡팡갤로그로 이동합니다. 07:17 20 0
1079734 3개월만 하고 나가야지 ㅇㅇ(125.135) 07:15 19 0
1079733 한달에 150 받으면서 평생 살수있음?? [2] ㅇㅇ(211.234) 07:15 42 0
1079732 회사일단들어가면 학력학벌 안보지? [2] 중갤러(211.36) 07:11 51 0
1079731 지하철 아재가 옆에서 앉아서 날쳐다보고 비웃는데 중갤러(110.70) 07:11 17 0
1079730 윤석열명언=특검 왜거부합니까,죄짓었으니 거부합니다 [4] 중갤러(125.141) 07:04 24 1
1079729 ㅇㅇ(211.186) 07:00 9 0
1079728 어제 다시 알게된 내가 다니는 회사 여직원 [3] 중갤러(116.124) 06:55 63 0
1079726 개좆소의 하루가 시작됐습니다 [3] ㅇㅇ(175.126) 06:49 78 0
1079725 중소기업 갤러리에 공식 채팅방은 없습니다 주의하세요 ㅇㅇ(223.62) 06:47 20 0
1079724 중소기업 갤러리에 공식 채팅방은 없습니다 주의하세요 ㅇㅇ(223.62) 06:47 14 0
1079723 4저2교대가 여행다니고 개인시간 갖기 갠차늠? [2] ㅇㅇ(211.234) 06:46 41 0
1079722 신입인데 오늘도 연봉 안 알려주면 [3] ㅇㅇ(223.39) 06:44 56 0
1079720 6시 50분에 나가야해서 지금 일어났는데 죽을거같네 [3] ㅇㅇ(118.235) 06:16 62 0
1079719 오늘은 일찍 출근해서 경리 슬리퍼냄새 맡아야지 [4] 중갤러(106.101) 06:16 68 0
1079718 운동하자.. 중갤운동러(59.30) 06:14 51 0
1079715 좋은아침! [3] 좆소자영업자(211.234) 06:02 55 1
1079714 최저임금 올라서 좆같은게 [1] ㅇㅇ갤로그로 이동합니다. 06:00 69 1
1079713 예전 사람들이 그립다. 중붕이(58.29) 05:57 43 0
1079712 알바 면접 합격하고 안가면 어케되냐 [1] 중갤러(106.102) 05:44 32 0
1079710 전기기사 난이도 어떻다고 봄? [2] 중붕이(58.29) 05:28 89 0
1079709 가방에뭐머넣고다녀야됨 [1] ㅇㅇ(118.235) 05:28 52 0
1079708 부산에서 연봉3천 요구하면 미친놈 취급함?? [7] ㅇㅇ(122.254) 05:26 95 0
1079703 아우디가 좋은점 ㅍㅍ(211.110) 05:15 70 0
1079676 금기를 깨야 자살률이 줄어든다 ㅇㅅㅇ(14.49) 03:31 56 0
1079664 좃소 취업함 [3] 중갤러(115.138) 03:05 123 1
1079662 저 그냥 재입대할까요 [7] ㅇㅇ(211.235) 02:50 164 1
1079656 근데 국결 궁금한점 하나생김 [2] 중갤러(119.71) 02:38 91 0
1079653 메이저기술사 따면 넉넉하게 사는거 가능하지? 중갤러(58.29) 02:29 51 0
1079652 좇센은 자연인부터 자영업 좇소사장 대기업사장 뒷통수한방(1.213) 02:26 42 0
1079651 남자가 네일아트 해도됨? [3] 중갤러(119.67) 02:24 69 0
1079650 거지새낀데 보상심리성 지출 때문에 전재산 날림 [3] dd갤로그로 이동합니다. 02:23 108 0
1079649 11월에 모기땜에 깬건첨이노 ㅇㅇ(14.37) 02:21 35 0
1079647 내가 최근에 본 안풀린 케이스는 ㅇㅇ(119.200) 02:17 50 0
갤러리 내부 검색
제목+내용게시물 정렬 옵션

오른쪽 컨텐츠 영역

실시간 베스트

1/8

뉴스

디시미디어

디시이슈

1/2