***先来先得，发言就给分，如何控制将Excel中的某几个Cell合并为一个，还有就是如何设置Cell的颜色以及对其方式，一个菜鸟问题，***

Question

你可以用EXCEL自带的宏录制功能，把你的操作录下来，然　后再查看一下宏里面的代码就行了。

Answer 1

用EXCEL自带的宏录制功能,你将学到你想像到的东西，不信你试试
你不会告诉我录制宏都不会吧！
分

Answer 2

Dim Exsheet As Excel.Worksheet
 Exsheet.Range(arange, vrange).Merge

Answer 3

给你比较完整的办法跟源码：
   Dim oExcel           As Excel.Application
   Dim oBook            As Excel.Workbook
   Dim oSheet           As Excel.Worksheet
   Dim oRange           As Excel.Range
  
    Set oExcel = CreateObject("Excel.Application") 'run it
          
    Set oBook = oExcel.Workbooks.Add
    Set oSheet = oBook.Worksheets(1)
    
    
      Set oRange = oSheet.Range(Cells(i, j), Cells(i+2, j+2))       
    oRange.Borders(xlEdgeBottom).Weight = 2
    oRange.Borders(xlEdgeTop).Weight = 2
    oRange.Borders(xlEdgeLeft).Weight = 2
    oRange.Borders(xlEdgeRight).Weight = 2
    oRange.ColumnWidth = mdblcolwith
    oRange.RowHeight = 8 '高度
    oRange.Value="你要写的东西"
    oRange.Interior.ColorIndex = 36  '颜色
    oRange.HorizontalAlignment = xlRight '对齐方式  要记得多给点分哟!!!!!!!!!!!!!!!!!!!!!

Answer 4

多谢各位的帮助，我们一般来说是不知道什么行列用A.B.C.D...来表示的，只有数字，所以用Cells(row,col)最好了，但是我用下边的句子时
Set oRange = oSheet.Range(Cells(i, j), Cells(i+2, j+2))
VB老报告错误：“实时错误1004，应用程序定义或对象定义错误”
大家快帮我呀！