목록마지막row (1)

Fly to the sky & Return

특정 열(column) 의 마지막 칸에 특정 합계 문자를 넣고 합계를 자동으로구하는 VBA

여러 sheet에서비슷한 작업을 할경우 매크로를 많이 사용하는데 sheet마다 합계를 구해야할 경우 마지막 열이 각각 다른 경우 매크로로 진행이 안되고 일일히수작업을 해야하는 경우가 발생합니다.이러한때 특정 열의 마지막 칸에 자동적으로 합계를 구해서 넣고 그 앞 칸에 합계를 명칭을 넣어주는 VBA입니다.1234567891011121314151617 ActiveSheet.Range("F1").End(xlDown).Offset(1, 0).Select ' F column 마지막 칸에 합계라는문자를 삽입ActiveCell.FormulaR1C1 = "합계" ActiveSheet.Range("G1").End(xlDown).Offset(1, 0).Select ' G column 마지막 칸에 숫자합 넣는 VBA Dim..
프로그래밍/엑셀 & VBA 2016. 1. 15. 23:06
이전 Prev 1 Next 다음