abyul.com > Excel > Tip > VBA by abyul - 특정영역에서 데이터베이스 끝까지, 수식 붙여넣기 또는 자동 채우기..

글 수 65

특정영역에서 데이터베이스 끝까지, 수식 붙여넣기 또는 자동 채우기..

조회 수 6310 추천 수 9 2005.07.29 12:53:20

a☆ *.106.104.6 http://abyul.com/zbxe/5584

특정영역 수식 붙여넣기 또는 자동 채우기..

1. 수식이 있는 셀을 복사하여 해당 데이터베이스의 마지막 줄까지 붙여넣기..

    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]/1000"
    Range("i2").Select
    Selection.Copy
' 아래 코드에서 Sheets("매출표")는 ActiveSheet로 대체할 수 있다.
' 또, Range("B65536") 부분은 데이터베이스의 크기를 대표할 수 있는 컬럼의 알파벳을 적어주면 된다.
' 즉.. 데이터 베이스가 A부터 시작한다면 Range("A65536") 도 무방.
    Range("i3:i" & Sheets("매출표").Range("B65536").End(xlUp).Row).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

2. 수식이 있는 셀을 선택하고 데이터베이스의 마지막 셀가지 선택하여 자동채우는 방법..

    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]/1000"
    Range("i2").Select
    Selection.AutoFill Destination:=Range("i2:i" & ActiveSheet.Range("B65536").End(xlUp).Row), Type:=xlFillDefault

'    참고) i2값이 수식이 아니고 숫자일 경우, 일련번호로 채워넣는 옵션..
    Selection.AutoFill Destination:=Range("i2:i" & ActiveSheet.Range("B65536").End(xlUp).Row), Type:=xlFillSeries

이 게시물을...

엮인글 :: http://abyul.com/zbxe/5584/9dc/trackback

» 편집 도구모음 건너뛰기

하이퍼링크

새 창으로
특수문자 삽입
선택한 기호
찾기/바꾸기
- 찾기
- 바꾸기
찾을 단어

찾을 단어
바꿀 단어

칸 수 지정

행
열

표 속성 지정

테두리 굵기
테두리 색
표 배경색

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)

비밀글 기능

List of Articles

번호	제목	글쓴이	날짜	조회 수
공지	기타 엑셀 VBA 간단한 팁 모아놓기.. +_+	아별	2007-01-24	34612
특정영역에서 데이터베이스 끝까지, 수식 붙여넣기 또는 자동 채우기.. a☆ 2005-07-29 조회 수 6310
엑셀에서 익스플로러 컨트롤하기.. a☆ 2005-07-21 조회 수 6289
엑셀에서 vba식으로 영역설정하기.. [2] a☆ 2004-10-21 조회 수 6082
엑셀 사용자 정의 수식(UDF)에 도움말 넣는 방법. 아별 2009-11-11 조회 수 6020
기타 VBA로 인디언식 이름 만들어주는 사용자 정의 함수 만들기.. [1] 아별 2012-01-11 조회 수 5984
유저폼 크기 조절 가능하게 만들기 아별 2009-05-07 조회 수 5973
마우스 좌표를 반환 받기 아별 2009-05-07 조회 수 5964
스스로 사라지는 메시지 박스 [1] 아별 2009-05-07 조회 수 5731
바로 옆셀의 메모값 가져 오기 [1] 아별 2008-10-20 조회 수 5604
엑셀 도구모음에 콤보박스로 매크로 실행하기.. +_+ a☆ 2005-11-03 조회 수 5561
메모 입력할때 사용자 이름 제거하고 입력하기.. a☆ 2006-01-19 조회 수 5557
셀의 상대 위치 이동< offset(행,열) >과 절대 위치 이동.. a☆ 2004-10-20 조회 수 5521
[펌] 엑셀로 최대 공약수 구하기 [2] 아별 2008-12-18 조회 수 5389
엑셀 실행시 자동으로 실행 // 종료시 자동으로 실행 아별 2004-10-25 조회 수 5167
하이퍼링크 일괄 제거하기 a☆ 2005-07-21 조회 수 5088
엑셀의 내용을 복사해서 메모장을 띄우고 붙여넣기 a☆ 2005-07-21 조회 수 4899
기타 [VBA] 컴퓨터 이름 알아내기 등 PC 환경 변수 읽오이기.. Environ 아별 2015-04-08 조회 수 4791
[엑셀VBA] 변수의 전달 a☆ 2005-05-13 조회 수 4765
[엑셀VBA 기본 규칙] 순환문.. a☆ 2005-08-04 조회 수 4277
엑셀에서 매크로 실행 동안 화면이 업데이트 되지 않게 하기.. a☆ 2004-10-26 조회 수 3987

번호

제목

글쓴이

날짜

조회 수