如何通过VB合并Excel单元格以及设置Excel行高？ VB如何调整excel表格行高和列宽
引用Spire.XLS(需要先下载），
合并Excel单元格：
Dim workbook As New Workbook()
workbook.LoadFromFile("Sample.xlsx")
workbook.Worksheets(0).Rows(0).Merge()
workbook.Worksheets(0).Range("A3:B5").Merge()
workbook.SaveToFile("Merge.xlsx")
设置行高、列宽：
'创建Workbook对象
Dim wookbook As New Workbook()
Dim sheet As Worksheet = wookbook.Worksheets(0)
'设置列宽、行高
sheet.Columns(1).ColumnWidth = 15
sheet.Columns(3).ColumnWidth = 15
sheet.Columns(5).ColumnWidth = 15
sheet.Range("B3:B5").RowHeight = 15
sheet.Range("B7:B10").RowHeight = 50
'保存文档
wookbook.SaveToFile("TextAlignment.xlsx", FileFormat.Version2013)
如何通过VB合并Excel单元格以及设置Excel行高？~
首先在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
运行一下，看看满足要求否。
限制了列宽，行高(RowHeight)也限制下。
还没验证是否可行，要不你试试：
Columns("A:D").AutoFit
‘AutoFit 可以根据内容调整最合适的列宽。
这可能还不够，字体大小也得控制下。
vb中如何对excel每一行合并单元格
答：四...行的1，2，3，4，5同时合并.(可同时选择多个需要合并的区域).2.第一行的1，2，3，4，5合并后，按鼠标右键点单元格右下角黑色小方点，往横向或竖向拉到需要的位置，放开鼠标右键选择“仅填充格式”即可.不好意思，没看清楚LZ的问题。我的回答是EXCEL基础操作，不是在VB中的。汗......
Excel VBA相同单元格内容自动合并
答：Public Sub 顺序合并内容相同单元() Dim CXrng As Range, Rng As Range, i As Long Set Rng = Sheets("sheet2").Range("A1") For Each CXrng In Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Range("A65536").End(xlUp).Row) If CXrng.Value <> Rng.Value ...
vb中VSFlexGrid1控件怎么合拼单元格,大神给个简单的例子,新手一枚_百度...
答：这个我摸索了很长时间，终于搞明白了。先定位要合并的单元格的最左上角的单元格，比如 FG2.Row = 1 FG2.Col = 0 然后将所要合并的单元填充相同的值：For i = 0 To 2 FG2.TextMatrix(1, i) = "付款单位：" & 付款方名称 Next 再设置合并居中 FG2.MergeRow(1) = True FG2....
如何将Excel两个单元格的内容合并到一个单元格
答：但是这样的操作就比较麻烦。下面来介绍几种不同的方法，可以方便地将多个单元格合并内容合并到一个单元格中。使用填充下面的两端对齐功能当需要合并的内容中都是文本，不包含数字或公式的时候，可以使用这个方法。1.首先将需要合并的内容放在同一列中。有时候内容会在一行里面，这时就需要进行一下转置。2....
Excel中的vba复制粘贴合并单元格的问题.
答：如果是把一列数据粘贴到另一列均为两行合并的单元格中，比如C1的数据到A1、A2、A3合并的单元格里面，C2的数据到A4、A5、A6合并的单元格里面，在A1、A2、A3合并的单元格里面里面输入：=OFFSET(C$1,INT((ROW(C1)-1)/3),)。如果是2行合并成一格的，把公式中的3改成2就行，也就是说，几行...
用VBA EXCEL大量合并单元格,合并单元格内容保留
答：根据你的题目，我在如下的数据中，为你写了一段代码，在excel 2003中，测试通过 A B 水果西瓜 芒果 荔枝 蔬菜南瓜 冬瓜 北瓜 中瓜 宠物鸡 鸭 鹅 金鱼 以下为代码：Private Sub CommandButton1_Click()Worksheets("sheet1").Cells(1, 10).Value = "=counta(b:b)"z = Worksheets("sheet1...
EXCEl中VB代码批量合并并居中,如下图,想要的结果是右边的格式,_百度...
答：Alt+F11打开VBE编辑器，插入模块，复制粘贴代码，效果如图。单元格居中效果，根据你的实际需要加进去吧。Sub NameMerge() Dim iRow As Long, upRow As Long Application.DisplayAlerts = False iRow = Range("A60000").End(xlUp).Row If iRow <= 1 Then Exit Sub Do Until iRow...
excel VBA程序,要求在合并第一列相同的单元格,以及在第一列相同的条件...
答：Sub 单元格合并() Dim x As Integer Dim rg As Range Set rg = Range("a2") For x = 2 To 14 '这里的14是A列单元格的个数，可以进行修改 If Range("a" & x) = Range("a" & x + 1) Then '这里的a代表A列 Set rg = Union(rg, Range("a" & x + ...
wps表格 VB编辑器 带格式合并单元格,如何批量操作?
答：执行示例：程序代码：程序代码文本如下（文本仅供参考，浏览器可能删除部分特殊符号和对齐空白）：Option ExplicitSub 宏1()Dim arr1, arr2, i&, j&arr1 = Range("a1:c4")ReDim arr2(1 To UBound(arr1), 1 To 1)For i = 1 To UBound(arr1)For j = 1 To 3arr2(i, 1) = arr2(...
Excel用宏vb命令怎指定某一列锁定,其他单元格可编辑与合并?
答：所以只能在原有结构基础上进行修改，不能进行格式的调整，格式部分只能修改填充这类非结构内容，如果非要修改，那么可以直接用VBA模拟锁定工作表的某一列，也就是在某一列所有单元格上触发select事件，可以自动取消select，转移到其他位置或者直接提示报警框，下面是个示例：结果如下：这种保护并不是加密 ...
