如何通过VB合并Excel单元格以及设置Excel行高？

首先在vb中引用microsoftexcelobjectlibrary

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

…………

问题补充：

你的要求很简单，

一行指令恐怕不行，

最少要三行

代码如下：

privatesubform_load()

dimxlappasexcel.application

dimxlbookasexcel.workbook

dimxlsheetasexcel.worksheet

dimiasinteger

setxlapp=createobject("excel.application")

setxlbook=xlapp.workbooks.open("c:\1.xls")

setxlsheet=xlbook.worksheets(1)'引用第1张工作表

fori=3to100step3'想到哪行就把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

setxlapp=nothing'表忘释放引用

endsub

运行一下，看看满足要求否。

顶一下

(0)

0%

踩一下

(0)

0%