急急急急急急！操作excel，合并Excel单元格应该怎么写呀？跪求大佬指教。。。。

最近一次发帖

等枫叶等你

活跃会员

已加入: 2年前

帖子: 13

30/12/2020 2:34 下午

比如我想合并A1和A2单元格，我写了下面的VB代码

Dim ws As Object = GetWorksheet(Handle, Workbook, Worksheet)

ws.Range("A1:A2").MergeCells = True
ws.Range("A1:A2").Merge

不管是MergeCells还是Merge好像都不行,是我写的哪里不对吗？跪求各位大佬指教。

引用

Johnason

活跃会员

已加入: 1年前

帖子: 12

30/12/2020 9:34 下午

尝试一下这么写。

Range("A1:B1").Select

Selection.Merge

回复引用

等枫叶等你

活跃会员

已加入: 2年前

帖子: 13

31/12/2020 9:39 上午

@20f745b642fbb4c3b0c3f18bdfeb02f5昨天我又试了一下ws.Range("A1:A2").Merge这种方法又可以了，但是又有一个新的问题居中不好使

回复引用

等枫叶等你

活跃会员

已加入: 2年前

帖子: 13

31/12/2020 1:15 下午

发布者: @1048731071

比如我想合并A1和A2单元格，我写了下面的VB代码

Dim ws As Object = GetWorksheet(Handle, Workbook, Worksheet)

ws.Range("A1:A2").MergeCells = True
ws.Range("A1:A2").Merge

不管是MergeCells还是Merge好像都不行,是我写的哪里不对吗？跪求各位大佬指教。

总结一下，问题解决了

ws.Range("A1:A2").Merge是没问题的

居中的话ws.Range("A1:A2").HorizontalAlignment = xlcenter

改为ws.Range("A1:A2").HorizontalAlignment = -4108 就可以实现了

回复引用

Johnason

活跃会员

已加入: 1年前

帖子: 12

04/01/2021 3:25 下午

发布者: @1048731071

发布者: @1048731071

比如我想合并A1和A2单元格，我写了下面的VB代码

Dim ws As Object = GetWorksheet(Handle, Workbook, Worksheet)

ws.Range("A1:A2").MergeCells = True
ws.Range("A1:A2").Merge

不管是MergeCells还是Merge好像都不行,是我写的哪里不对吗？跪求各位大佬指教。

总结一下，问题解决了

ws.Range("A1:A2").Merge是没问题的

居中的话ws.Range("A1:A2").HorizontalAlignment = xlcenter

改为ws.Range("A1:A2").HorizontalAlignment = -4108 就可以实现了

谢谢，很受用！！！

回复引用