如何通过<em>VB合并Excel</em>单元格以及设置<em>Excel<

Alt+F11打开VBE编辑器，插入模块，复制粘贴代码，效果如图。

单元格居7a64e78988e69d83335中效果，根据你的实际需要加进去吧。

Sub NameMerge()
    Dim iRow As Long, upRow As Long
    Application.DisplayAlerts = False
    iRow = Range("A60000").End(xlUp).Row
    If iRow <= 1 Then Exit Sub
    Do Until iRow = 1
        upRow = Range("A" & iRow).End(xlUp).Row
        If WorksheetFunction.CountBlank(Range(Range("A" & iRow), Range("A" & upRow))) > 0 Then
            Range(Range("A" & iRow), Range("A" & upRow)).Merge
        End If
        iRow = upRow
    Loop
    Application.DisplayAlerts = True
End Sub

首先在VB中引用microsoft excel object library

假设c盘根目录下有个1.xls的文件
…………

问题补充：

你的要求很简单，

一行指令恐怕不行，

最少要三行

代码如下：

Private Sub Form_Load()

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim i As Integer

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("C:\1.xls")

Set xlSheet = xlBook.Worksheets(1) '引用第1张工作表

For i = 3 To 100 Step 3 '想到哪行就把100改成几

xlSheet.Range(Cells(i, 1), Cells(i, 2)).Merge '合并a1:b2单元格

Next

xlSheet.Rows(10).RowHeight = 100 '把第10行高度设为100

xlBook.Save

xlApp.Application.Quit

Set xlApp = Nothing '表忘释放引用

End Sub

运行一下，e5a48de588b6e799bee5baa6e997aee7ad94361看看满足要求否。
用vba可以实现，百不难。要看你具体度做什知么，下面是一个录制道的宏，替换aaa为axa，然后专替换bbb为xbx。

Sub 宏属2()
'
' 宏2 宏
'
'
Cells.Replace What:="aaa", Replacement:="axa", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="bbb", Replacement:="xbx", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Sub xxx()
For i = 1 To cells(1,columns.count).End(xlToLeft).Column Step 3 '列遍度历版
if Cells(rows.count,i).End(xlUp).Row=1 then goto nn
For j = 2 To Cells(rows.count,i).End(xlUp).Row  '行遍权历

cells(j,i+2)=cells(j,i) & " " & cells(j,i+1)
next j
Next i
nn:
end sub