range(cells(1,1),cells(1,2)).merge代码有问题吗？'两个单元格合并
range(cells(1,1),cells(1,8)).merge 有问题吗？'八个单元格合并

VBA ,单元格合并 ,可以使用录制宏的功能进行生成

我是用vba写excel的表头，用录制宏的方法不方便

你可以再新建一个 工作簿,再录制一下宏看一下代码.

可以多窗口工作啊.

不建议你到当前编辑的工作簿中进行录制.

我现在打开两个excel表格，要合并单元格的时第二个打开的，用宏录制的方法只能合并第一次打开的excel表格，
range(A1:H1).merge中A1和H1不能做任何改动

我录制的结果是：

    Range("B7:E11").Select          '选择一个区域
    Selection.Merge                 '合并

按照你的写法，可以执行。

分二行写就是：

    Range(Cells(2, 1), Cells(5, 5)).Select
    Selection.Merge

我的程序需要打开两个excel表
range(excelapp.cells(1,1),excelapp.cells(1,8)).merge
我现在是用excelapp来表示打开的第二个excel表，可是加上excelapp后就不正确，不加就默认为打开的第一个表

你是要指定工作表执行吧。那你要在程序指定对象是基于哪个工作表的。

    '当前活动工作簿,活动工作表
    Range(Excel.ActiveWorkbook.ActiveSheet.Cells(1, 1), Excel.ActiveWorkbook.ActiveSheet.Cells(1, 8)).Merge
   
你自己对着你的要求确定工作簿的编号吧。
    '第二个工作簿,活动工作表
    Range(Excel.Workbooks(2).ActiveSheet.Cells(1, 1), Excel.Workbooks(2).ActiveSheet.Cells(1, 8)).Merge


或者使用工作簿的名字来选择
    'Book3 工作簿,活动工作表
    Range(Excel.Workbooks("Book3").ActiveSheet.Cells(1, 1), Excel.Workbooks("Book3").ActiveSheet.Cells(1, 8)).Merge

多谢指教，成功了

汗。我才学七天，不知道哪天才能到你们那么级别，你们说的我都不懂