728x90
| 엑셀 VBA 코드 |
| Sub 도형_Click() For Each Ws In Worksheets If Ws.Name <> ActiveSheet.Name Then Set r = Ws.Range("a2", Ws.Cells(Rows.Count, "c").End(xlUp)) r.Copy Cells(Rows.Count, "a").End(xlUp) Else Exit For End If Next End Sub |
728x90
'■ Excel > ㅡExcel VBA Code' 카테고리의 다른 글
| 엑셀 VBA 여러 시트의 값 차례로 가져오기 (0) | 2020.04.12 |
|---|---|
| 엑셀 VBA 항목에 따른 셀 배경색 적용 VBA (0) | 2020.04.05 |
| 엑셀 VBA 특정 셀 내용이 바뀌면 출력 미리 보기 실행 (0) | 2020.04.01 |
| 엑셀 VBA n일씩 날짜 추가 감소 버튼 매크로 (0) | 2020.03.29 |
| 엑셀 VBA 시트 이름 적는 매크로 (0) | 2020.03.29 |