図形描画はマクロ記録を取れば、骨格となるコードは分かります。
それを参考にスタートするのがよいと思います。
こんなコードが参考になりますか？
Sub test()
With Range("A3")
With ActiveSheet.Shapes.AddLine(.Left, .Top + .Height, .Left + .Width, .Top + .Height)
'.ShapeStyle = msoLineStylePreset1
.Line.Weight = 0.25
End With
End With
End Subなお、どれだけ細い線が引けるかは、プリンターなどの環境にも依存するものと思います。
Weight値を変更して、そちらで検証してみて下さい。
複数セルでの内容確認などの反映はそちらでトライしてみて下さい。
For .. NextとセルのValueプロパティの値で条件分岐すればよいでしょう。
