[Range 개체] Row속성

Range개체의 Row속성은 범위에서 첫 번째 영역의 첫 번째 행 번호를 반환합니다. 읽기 전용 속성입니다.

이해를 돕기 위해 실험한 코드입니다.

Sub GetRowNumber()
    Dim rng As Range
    Set rng = Range("A1:B10")
    
    ' Range의 시작 행 번호를 반환합니다.
    Dim startRow As Long
    startRow = rng.Row
    
    ' 결과 출력
    Debug.Print "Range의 시작 행 번호: " & startRow
    Debug.Print
    
    Set rng = Range("D4:E7")
    startRow = rng.Row
    
    ' 결과 출력
    Debug.Print "Range의 시작 행 번호: " & startRow
    Debug.Print
    
    Set rng = Range("C12:G20")
    startRow = rng.Row
    
    ' 결과 출력
    Debug.Print "Range의 시작 행 번호: " & startRow
    
End Sub

Sub IterateRows()
    Dim rng As Range
    Set rng = Range("A1:C5")
    
    Dim cell As Range
    For Each cell In rng.Cells
        ' 셀의 행 번호를 출력합니다.
        Debug.Print "셀 " & cell.Address & "의 행 번호: " & cell.Row
    Next cell
End Sub

특정 범위의 첫 번째 행 번호를 가져오는 코드입니다.

Sub GetFirstRowNumber()

    Dim rng As Range
    Dim firstRow As Long
    
    Set rng = Range("A1:C10") ' 대상 범위 설정
    
    
    firstRow = rng.Row ' 첫 번째 행 번호 가져오기
    
    Debug.Print "첫 번째 행 번호: " & firstRow
    
End Sub

특정 셀의 행 번호를 가져오는 코드입니다.

Sub GetCellRowNumber()
    Dim rng As Range
    Dim rowNum As Long
    
    Set rng = Range("B3") ' 대상 셀 설정
    
    rowNum = rng.Row ' 셀의 행 번호 가져오기
    Debug.Print "셀의 행 번호: " & rowNum
    
End Sub

각 행의 첫 번째 셀 값을 가져옵니다.

Sub IterateRowsInRange()

    Dim rng As Range
    Dim row As Range
    Dim firstCell As Range
    
    Set rng = Range("A1:C10") ' 대상 범위 설정
    
    For Each row In rng.Rows ' 행 범위에 대한 반복문
        
        ' 행의 첫 번째 셀 값 가져오기
        Set firstCell = row.Cells(1)
        
        Debug.Print "행 " & row.row & "의 첫 번째 셀 값: " & firstCell.Value
        
    Next row
    
End Sub

Sub GetAllCellValuesInRows()
    Dim rng As Range
    Dim row As Range
    Dim cellsInRow As Range
    
    Set rng = Range("A1:C10") ' 대상 범위 설정
    
    For Each row In rng.Rows ' 행 범위에 대한 반복문
        ' 행의 모든 셀 값 가져오기
        
        Set cellsInRow = row.Cells
       
        Debug.Print "행 " & row.row & "의 모든 셀 값: " & Join(Application.Transpose(Application.Transpose(cellsInRow.Value)), ", ")
        
    Next row
    
End Sub