即効テクニック

セル操作関連のテクニック

セル間に線を引く

(Excel 97/2000)
セル間に線を引くには、RangeのLeft, Top, Width, Height が利用できます。
以下のマクロは、アクティブシートのセルA1の値を線開始行とし、セルA2の値を線終了行としてA列の真中に線を引きます。
Sub Draw_Line()
    Dim iStartRow As Long
    Dim iEndRow   As Long
    
    iStartRow = Range("A1").Value
    iEndRow = Range("A2").Value

    With ActiveSheet.Range(Cells(iStartRow, "A"), Cells(iEndRow, "A"))
        fLeft = .Left + (.Width) / 2
        fHeight = .Top + .Height
        ActiveSheet.Lines.Add fLeft, .Top, fLeft, fHeight
    End With
End Sub