高校问答热计量表厂家价格:如何通过VB合并Excel单元格以及设置Excel行高？
来源：百度文库 编辑：高校问答 时间：2024/04/29 21:47:11
各位高人：请教一下怎么才能运用VB合并Excel单元格以及设置Excel某一行的行高？请给出具体程序，谢谢！
如果我想把3，6，9，12．．．．．．．．等行的第1格和第2格都合并起来，能用一条指令实现吗？
如果我想把3，6，9，12．．．．．．．．等行的第1格和第2格都合并起来，能用一条指令实现吗？
首先在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
运行一下，看看满足要求否。