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

[lhh]

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

[lhh]

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

[wurf0]

是一直不好呢，还是有时好有时不好呢？

[cool_man]

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

[lhh]

能不吝给出代码的高手必有高分相赠啊！

[xybzc]

1楼正解，你 也可以对他的代码进行改写

[Jonly]

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

[zhang_pi]

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

[wurf0]

给你比较完整的办法跟源码：
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 '对齐方式

要记得多给点分哟!!!!!!!!!!!!!!!!!!!!!