在Excel中，你可以使用VBA（Visual Basic for Applications）来编程设置边框。以下是一些基本的VBA代码示例，用于设置边框的方法：
设置单个单元格的边框
```vba
Sub SetSingleCellBorder（）
Range（"A1"）.Borders.LineStyle = xlContinuous ' 实线边框
End Sub
```
批量设置单元格边框
```vba
Sub SetRangeBorder（）
Range（"A1:C3"）.Borders.LineStyle = xlContinuous ' 设置A1到C3区域的边框为实线
End Sub
```
设置自定义边框样式
```vba
Sub SetCustomBorder（）
With Range（"A1:C3"）.Borders（xlEdgeLeft）
.LineStyle = xlContinuous ' 实线边框
.ColorIndex = xlAutomatic ' 自动颜色
.Weight = xlThick ' 厚边框
End With
' 可以分别设置其他边的边框，如xlEdgeTop, xlEdgeBottom, xlEdgeRight
End Sub
```
批量设置单元格边框样式
```vba
Sub 设置单元格边框样式（）
Dim rng As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"）
Set rng = ws.Range（"A1:D10"）
With rng.Borders（xlEdgeTop）
.LineStyle = xlContinuous ' 实线边框
.Color = RGB（0, 0, 0） ' 黑色边框
.TintAndShade = 0 ' 无颜色调整
.Weight = xlThin ' 细边框
End With
With rng.Borders（xlEdgeBottom）
.LineStyle = xlContinuous ' 实线边框
.Color = RGB（0, 0, 0） ' 黑色边框
.TintAndShade = 0 ' 无颜色调整
.Weight = xlThin ' 细边框
End With
' 其他边的设置类似
End Sub
```
自动调整表格边框
```vba
Sub AdjustTableBorders（）
Dim ws As Worksheet
Dim tblRange As Range
Dim lastRow As Long
Dim lastCol As Long
Set ws = ThisWorkbook.Sheets（"Sheet1"）
lastRow = ws.Cells（ws.Rows.Count, 1）.End（xlUp）.Row
lastCol = ws.Cells（1, ws.Columns.Count）.End（xlToLeft）.Column
Set tblRange = ws.Range（ws.Cells（1, 1）, ws.Cells（lastRow, lastCol））
tblRange.Borders.LineStyle = xlContinuous ' 设置表格边框为实线
End Sub
```
在使用这些代码之前，请确保你的Excel启用了宏，并且你已经打开了VBA编辑器（可以通过按Alt + F11快捷键打开）。然后，你可以将上述代码复制到VBA编辑器中的新模块，并根据需要修改范围、颜色、线型等参数。最后，通过运行宏（按Alt + F8）来应用边框样式。
请注意，VBA代码中的`xlContinuous`、`xlThin`、`xlDouble`、`xlDot`、`xlDash`、`xlEdgeLeft`、`xlEdgeTop`、`xlEdgeBottom`、`xlEdgeRight`等常量需要根据Excel的VBA版本和区域设置来确定其具体值。通常，这些常量在Excel的帮助文档中有详细说明。