[Range 개체] AutoFill메서드

지정된 범위의 셀에 자동 채우기를 수행합니다.

구문은 다음과 같습니다.

Syntax

expression.AutoFill (Destination, Type)

Destination : 채울 셀입니다. 대상에는 소스 범위가 포함되어야 합니다.

type : 채우기 유형을 지정합니다.Data type은 XlAutoFillType입니다.

XlAutoFillType enumeration (Excel)

A2셀에 "January"라고 입력한 후 A13셀까지 자동채우기 하는 과정을 매크로 기록한 코드입니다.

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.AutoFill Destination:=Range("A2:A13"), Type:=xlFillDefault
    Range("A2:A13").Select
End Sub

약간 수정한 코드입니다.

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A2").AutoFill Destination:=Range("A2:A13"), Type:=xlFillDefault
    
End Sub

당연한거지만 소스 범위가 포함되어 있지 않다면 에러가 발생합니다.

예제 코드

일 단위 채우기를 매크로 기록한 예제입니다.

Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
    Selection.AutoFill Destination:=Range("A2:A10"), Type:=xlFillDays
    Range("A2:A10").Select
End Sub

평일 단위 채우기를 매크로 기록한 코드입니다.

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.AutoFill Destination:=Range("A2:A10"), Type:=xlFillWeekdays
    Range("A2:A10").Select
End Sub

월 별 채우기를 매크로 기록한 코드입니다.

Sub Macro1()
'
' Macro1

'
    Selection.AutoFill Destination:=Range("A2:A10"), Type:=xlFillMonths
    Range("A2:A10").Select
End Sub

연 단위 채우기를 매크로 기록한 예제입니다.

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.AutoFill Destination:=Range("A2:A10"), Type:=xlFillYears
    Range("A2:A10").Select
End Sub

서식만 채우기를 매크로 기록한 예제입니다.

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.AutoFill Destination:=Range("A2:A8"), Type:=xlFillFormats
    Range("A2:A8").Select
End Sub