붙여넣기 5

엑셀 VBA/필터된 셀을 필터된 곳에 붙여넣기/보여지는 셀에만 붙여넣기

1. 예제 준비 1) 아래와 같이 예제파일을 만든다. 2) 필터를 걸면 아래와 같다. 왼쪽 필터된 내용을 오른쪽 필터된 곳에 붙여넣어보자 -> no 1, no3 의 데이터를 복사 붙여넣자. 2. 코드준비 1) 코드가 로스가 좀 있어서 시간이 걸린다. 나중에 배열 활용 필요함. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Sub FILTERED_PASTE() Dim COPYRANGE As Range Dim pasteRANGE As Range Dim i As Integer Set COPYRANGE = Application.InputBox("복사할범위 선택", Type:=8) Set pasteRANGE = Application..

엑셀/VBA 2023.10.16

엑셀/연결하여붙여넣기/빈칸을 0으로 표기함/0 없애기

연결하여 붙여넣기 해놓고 나중에 항목이 추가되면 자동으로 반영되었으면한다. 그래서 빈칸까지 연결하여 붙여넣기를 해봤는데 빈칸이 0으로 보인다. 1. 그래서 0으로 보이는 셀을 빈칸으로 보이게 만들자. 2. 0으로 보이기 싫은 부분을 선택한다. 여기서는 전체열을 바꿔볼 것이므로 c d e f 열을 선택했다. 3. 셀서식을 눌러준다. 4. 안보이게 하고 싶은 0 을 클릭한다. 5. 형식에 아래와 같이 입력하고 확인을 눌러준다. 입력 : 0;-0;;@ 6. 결과 : 0이 안보이게되었다. https://gongdolgongdol.tistory.com/170 엑셀/연결하여붙여넣기/셀 복사하여 공유하기/셀 공유하기 엑셀을 정리하다보면 1번시트에서 정리하던 내용을 요약 시트에서 자동으로 반영되면 좋겠다는 생각을 한다..

엑셀/연결하여붙여넣기/셀 복사하여 공유하기/셀 공유하기

엑셀을 정리하다보면 1번시트에서 정리하던 내용을 요약 시트에서 자동으로 반영되면 좋겠다는 생각을 한다. 해보자. 1. 예제파일 준비 2. 필터를 걸어 복사할 데이터만 남긴다 3. 이제 복사하여 summary 탭에 붙여넣을 것이다. 1) 복사를 한다. 2) 붙여 넣을때 선택하여 붙여넣기를 누른다. 3) 연결하여 붙여넣기를 누른다. 4) 붙여 넣어졌다. (셀 색상은 복사가 안되넹) 4. 이제 raw 시트에서 숫자를 바꾸면 summary 탭에 그대로 반영된다. -> 참고로 summary 탭을 임의로 변경하면 연결이 풀리는 것 같다. -> 셀색상은 다시 넣어주고, 시트 못건들게 하면 될것 같다. (아래 추가글 참고) https://gongdolgongdol.tistory.com/171 엑셀/시트보호/못건들게하기..

엑셀 vba/필터된 셀에 붙여넣기/보여지는셀에만 붙여넣기/필터숨겨진셀에 복사됨

엑셀하다보면 필터된 셀에 복사 붙여넣으면 숨겨진 셀에 붙여넣기가 되어버린다. 해결해보자 1. 예제 파일을 하나 만든다. 1) 복사할셀과 붙여넣을 셀을 만들었다. 2) 붙여넣을셀은 키위만 제외하여 필터를 걸자. - 바나나만 남았다. 2. VBA 코드작성 -. 코드를 일부 수정함. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub FILTERED_PASTE() Dim COPYRANGE As Range Dim pasteRANGE As Range Dim i As Integer Set COPYRANGE = Application.InputBox("복사할범위 선택", Type:=8) Set pasteRANGE = Application.InputBox("불여넣..

엑셀/VBA 2023.08.10

엑셀VBA - 복사 붙여넣기/sheet 바꿔 복사하기

엑셀vba 복사 붙여넣기 코드는 아래와 같다. ​ Sub 복사() Sheets("Sheet1").Range(Cells(4, 1), Cells(4, 8)).Copy Sheets("Sheet1").Cells(3, 2) End Sub ​​ 코드 테스트를 해보자 우선 아래와 같이 테스트 파일을 만들자 코드를 실행하자 결과는 아래와 같다. 된다. 색을 넣어도 된다. 복사 니까 서식복사 포함인가 보다. 다른 시트에 복사가 되는지 테스트 해보자 코드는 위의 코드에서 sheet만 바꿔보자 Sub 복사() Sheets("Sheet1").Range(Cells(4, 1), Cells(4, 8)).Copy Sheets("Sheet2").Cells(3, 2) End Sub 결과는 아래와 같다. 된다. 단, sheet2는 만들어..

엑셀/VBA 2020.10.11