如何用VBA实现跨列靠左合并

lilianban · 发表于 2012-5-20 13:41

本帖最后由 lilianban 于 2012-5-20 18:38 编辑

工作簿3.rar (8.04 KB, 下载次数: 18)
由于行数经常变动，如何用VBA让A16单元格进行跨列合并（A16：H16），如A18单元格设置，

谢谢！

wj2368 · 发表于 2012-5-20 13:47

什么意思？？、、、、、、、、

6688 · 发表于 2012-5-20 18:01

wj2368 发表于 2012-5-20 13:47
什么意思？？、、、、、、、、

sub kk()
range("A1") = range("c1") & range("i1")
msgbox "A1"
end sub

wj2368 · 发表于 2012-5-20 18:10

6688 发表于 2012-5-20 18:01
sub kk()
range("A1") = range("c1") & range("i1")
msgbox "A1"

我以为是楼主，我说太的附件在说什么

lilianban · 发表于 2012-5-20 18:40

附件注明有误我重新编辑了一下，我要实现A16：H16进行跨列合并（由于工作表行数经常变动，不一定都是第16行），请再帮忙解决一下

zzq0101 · 发表于 2012-5-20 18:50

Sub test()
With Cells(16, 1)
      .Resize(, 8).Merge
      .RowHeight = 30.75
      .HorizontalAlignment = xlLeft
      .VerticalAlignment = xlCenter
      .WrapText = True
End With
End Sub

zzq0101 · 发表于 2012-5-20 18:51

吧 16 可换成 [a65536].end(3).row

wj2368 · 发表于 2012-5-20 19:08

lilianban 发表于 2012-5-20 18:40
附件注明有误我重新编辑了一下，我要实现A16：H16进行跨列合并（由于工作表行数经常变动，不一定都是第16行 ...

不知是否是你要的

lilianban · 发表于 2012-5-20 22:28

六楼正解，谢了

lukeluckc · 发表于 2019-1-21 13:47

zzq0101 发表于 2012-5-20 18:50
Sub test()
With Cells(16, 1)
.Resize(, 8).Merge

感谢答主，这段代码能够实现合并单元格，但是如果是不合并单元格前提下能否实现跨列对齐呢？
如这个问题：http://club.excelhome.net/forum. ... p;page=1#pid9800106

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA实现跨列靠左合并

最新热点 /1