Sub アクティブセル領域の行数を取得()
    
    Worksheets("Sheet1").Activate
    ATR = ActiveCell.CurrentRegion.Rows.Count
    
End Sub
----------------------------------------------------------
Sub アクティブセル領域の列数を取得()
    
    Worksheets("Sheet1").Activate
    ATC = ActiveCell.CurrentRegion.Columns.Count
        
End Sub
----------------------------------------------------------
Sub 選択範囲の行数を取得()
    
    Worksheets("Sheet1").Activate
    SenR = Selection.Rows.Count
    
End Sub
----------------------------------------------------------
Sub 選択範囲の列数を取得()
    
    Worksheets("Sheet1").Activate
    SenC = Selection.Columns.Count
        
End Sub
----------------------------------------------------------
Sub 行高さの1行自動コピー()
    
    Dim RH As Integer
    
    RH = Range("A2").RowHeight
       
    For i = 3 To 10
        Range("A" & i).RowHeight = RH
    Next
       
End Sub
----------------------------------------------------------
Sub 行高さの複数行自動コピー()
    
    Dim RH(1 To 6)
    Dim Komoku(1 To 6)
    Dim R2 As Integer
    
    i2 = 1
    Range("A1").Select
    
    For i = 3 To 8
       Range("A" & i).Select
       RH(i2) = Range("A" & i).RowHeight
       Komoku(i2) = Range("A" & i).Value
       i2 = i2 + 1
    Next
    
    R2 = 8
          
    For i3 = 1 To 6
       Range("A" & i3 + R2).Select
       Range("A" & i3 + R2).RowHeight = RH(i3)
       Range("A" & i3 + R2).Value = Komoku(i3)
    Next
       
End Sub