Columns 속성

Worksheet.Columns property

현재 워크시트에 있는 모든 열을 나타내는 Range 개체를 반환합니다.

Syntax

expression.Columns

expression : Worksheet 개체를 나타내는 변수입니다.

비고

개체 한정자없이 Columns 속성을 사용하는 것은 ActiveSheet.Columns를 사용하는 것과 동일합니다. 활성 문서가 워크시트가 아닌 경우 Columns 속성은 실패합니다.

단일 열을 반환하려면 Item 속성을 사용하거나 괄호 안에 인덱스를 포함합니다. 예를 들어 Columns(1), Columns("A"), Columns.Item(1) 및 Columns.Item("A")는 활성 시트의 첫 번째 열을 반환합니다.

예제

1. 특정 열의 데이터 읽기

Sub ReadColumnData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Product")

    ' 열 A의 데이터를 읽어옴
    Dim columnA As Range
    Set columnA = ws.Columns("B")
    'Set columnA = ws.Columns(2)

    ' 열 A의 데이터 출력
    Dim cell As Range
    For Each cell In columnA.Cells
        Debug.Print cell.Value
    Next cell
End Sub

' Output
' ProductName
' Queso Cabrales
' Singaporean Hokkien Fried Mee
' Mozzarella di Giovanni
' Tofu
' Manjimup Dried Apples
' Jack 's New England Clam Chowder
' Manjimup Dried Apples
' Louisiana Fiery Hot Pepper Sauce
' Gustaf 's Knackebrod
' Ravioli Angelo
' Louisiana Fiery Hot Pepper Sauce
' Sir Rodney 's Marmalade
' Geitost
' Camembert Pierrot
' Gorgonzola Telino
' Chartreuse verte
' Maxilaku
' Guarana Fantastica
' Pate chinois

2. 특정 열의 너비를 조정

Sub AdjustColumnWidth()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Product")
   
    ' 열 A의 너비를 조정
    ws.Columns("A").ColumnWidth = 12
End Sub

3. 특정 열 복사해서 붙여넣기

Sub CopyPasteColumns()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Product")
   
    ' 열 F를 복사하여 열 G에 붙여넣기
    ws.Columns("F").Copy Destination:=ws.Columns("G")
End Sub

도움말 출처

Worksheet.Columns property (Excel)