合并单元格区域可以通过Excel的VBA（Visual Basic for Applications）编程实现。以下是一个简单的VBA代码示例，用于自动合并指定范围的单元格，并设置水平和垂直居中：
```vba
Sub 自动合并单元格（）
Dim rng As Range
Set rng = Range（"A1:C1"） ' 指定要合并的单元格范围
With rng
.Merge ' 合并单元格
.HorizontalAlignment = xlCenter ' 设置水平居中
.VerticalAlignment = xlCenter ' 设置垂直居中
End With
End Sub
```
这段代码做了以下几件事：
1. 声明了一个Range类型的变量`rng`，用来表示要合并的单元格范围。
2. 用`Set`语句把`A1:C1`这个范围赋值给`rng`。
3. 用`With`语句和`End With`语句包围了对`rng`的操作，这样代码更简洁。
4. `.Merge`方法用于合并单元格。
5. `.HorizontalAlignment`和`.VerticalAlignment`属性用于设置合并后的单元格水平和垂直居中。
运行这段代码后，你会发现`A1:C1`这三个单元格被合并成了一个大的单元格，而且内容居中显示了。
如果你需要批量合并单元格，可以使用以下代码示例：
```vba
Sub 批量合并单元格（）
Dim ws As Worksheet
Dim mergeRange As Range
' 设置要操作的工作表
Set ws = ThisWorkbook.Sheets（"Sheet1"）
' 设置要合并的单元格范围（假设是 A1 到 C3）
Set mergeRange = ws.Range（"A1:C3"）
' 合并单元格
mergeRange.Merge
End Sub
```
这段代码定义了工作表和要合并的单元格范围变量，并调用`Merge`方法进行合并。
另一个示例，用于合并选定区域的内容：
```vba
Sub 合并单元格内容（）
Dim rng As Range
Dim cell As Range
Dim 合并结果 As String
Dim 起始行 As Long， 起始列 As Long， 结束行 As Long， 结束列 As Long
' 获取用户选定的区域
Set rng = Selection
' 获取选定区域的起始和结束行、列号
起始行 = rng.Rows（1）.Row
起始列 = rng.Columns（1）.Column
结束行 = rng.Rows（rng.Rows.Count）.Row
结束列 = rng.Columns（rng.Columns.Count）.Column
' 遍历选定区域的每一行
For i = 起始行 To 结束行
' 初始化合并结果为空字符串
合并结果 = ""
' 遍历当前行的每一列
For j = 起始列 To 结束列
' 获取当前单元格的值，并拼接到合并结果中
合并结果 = 合并结果 & Cells（i, j）.Value & " "
Next j
' 去掉合并结果末尾的空格
合并结果 = Trim（合并结果）
' 合并当前行的单元格
rng.Cells（i, 1）.Resize（1, UBound（Split（合并结果， " "）））.Value = Split（合并结果， " "）
Next i
End Sub
```
这段代码首先获取用户选定的区域，然后遍历每一行，将选定区域的值合并到一个单元格中，并去掉末尾的空格。
希望这些示例能帮助你实现合并单元格区域的需求。