RPA社区具有邮件自动通知功能,可以关注帖子实时追踪答复情况。需要在账号中 正确添加邮箱哦(⊙o⊙)
比如我想合并A1和A2单元格,我写了下面的VB代码
Dim ws As Object = GetWorksheet(Handle, Workbook, Worksheet)
ws.Range("A1:A2").MergeCells = True
ws.Range("A1:A2").Merge
不管是MergeCells还是Merge好像都不行,是我写的哪里不对吗?跪求各位大佬指教。
尝试一下这么写。
Range("A1:B1").Select
Selection.Merge
@20f745b642fbb4c3b0c3f18bdfeb02f5昨天我又试了一下ws.Range("A1:A2").Merge这种方法又可以了,但是又有一个新的问题 居中不好使
比如我想合并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 就可以实现了
比如我想合并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 就可以实现了
谢谢,很受用 !!!