在VBA中，您可以使用以下代码将A列中包含内容的单元格下方的三行边框线添加到工作表中：


```vba
Sub AddBorderToColumns()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") '请将"Sheet1"替换为您的工作表名称

Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Dim i As Long
For i = 2 To lastRow
If ws.Cells(i, "A").Value <> "" Then
ws.Rows(i + 1).Interior.ColorIndex = 5 '添加边框线
End If
Next i
End Sub
```
请注意，这段代码假设您要在"Sheet1"工作表中执行操作，并且要在A列有内容的单元格下方添加三行边框线。您可以根据需要更改工作表名称。此代码使用一个循环，从第二行开始检查每个单元格，如果该单元格在A列且不为空，则在其下方添加一行并设置背景色为深灰色（颜色索引为5），这通常表示边框线。

请确保在运行此代码之前备份您的数据，以防意外数据丢失。