행에 마지막 입력값 삭제하는 방법 문의 드림니다.

@033cola 님 더 간단한 식을 원하신다면

Cells(Rows.Count, "D").End(3)

대신에  Cells(r, "D").End(3)  로 사용해도 같은 결과를 도출할 수 있을거 같습니다.

@033cola 님  

삭제실행으로 d열 아래서부터 한셀식 지우려면

cells(rows.count,"d").end(3).clearcontents

d열 4행부터 값이 있는 범위까지 지우려면(빈셀없는 연속범위)

range(range("d4"),range("d4").end(xldown)).clearcontents

또는 range("d4:d1000").clearcontents

clear, clearcontents, delete 비교해보세요