VBA常用技巧代码解析

liaurnHOME

谢谢 楼主分享

menghuazhang

非常感谢你一_一，分享的快乐，我喜欢Excelhome

yumoym

原帖由 yuanzhuping 于 2009-2-26 15:54 发表

不错，address属性可以返回区域，但是如果事件中代码改成这样的：
If Target.Address(0, 0) = "A1:B1" Then
那就只有在选择A1和B1两个单元格的情况下才触发事件，选中其中一个是不会触发的。如果希望选中A1或B1的 ...

谢谢版主指教，辛苦了，注意身体！

liusongs

谢谢版主！

lin885

ding,ding,ding,ding

xacs

原帖由 yuanzhuping 于 2009-2-12 07:41 发表
#001  Sub Mergerng()
#002      Dim IntRow As Integer
#003      Dim i As Integer
#004      Application.DisplayAlerts = False
#005      With Sheet1
#006          IntRow = .Range("A65536").End(xlUp).Row
#007          For i = IntRow To 2 Step -1
#008              If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then
#009                  .Range(.Cells(i - 1, 2), .Cells(i, 2)).Merge
#010              End If
#011          Next
#012      End With
#013      Application.DisplayAlerts = True
#014  End Sub

第6行代码 Range("A65536")与题目B列 不相符吧？

谢谢楼主分享这么好的技巧。受教了。

nowarmy

有时间学习学习

humengqiang

学习了，谢谢斑竹的无私奉献

ExceLove

支持一下！

迅岐同心

在一张表格中可以同时使用两个或两个以上的VBA命令吗