高谈阔论话人间
高谈阔论话人间
签名是一种态度,我想我可以更酷...
关注数: 27
粉丝数: 9
发帖数: 11,457
关注贴吧数: 9
大家好!请教大家问题,这里为什么不用with语句就达不到效果呢 问题是这样,取消合并合并区域并写值,效果就是:取消合并的区域,并把合并前的单元格值写到取消合并后的每个单元格。即下图中,能达到效果的是注释起来的部分,用了with语句可以,但红框所示不能。 这里为什么不用with语句就达不到效果呢?期待高手指点迷津。感谢!! Sub 取消合并() Dim rng1 As Range, rng2 As Range, s As String Set rng2 = Application.InputBox("请选择需要取消合并的区域", "取消合并", , , , , , 8) For Each rng1 In rng2 If rng1.MergeCells = True Then s = rng1.Value rng1.MergeArea.UnMerge rng1.MergeArea.Value = s ' With rng1.MergeArea ' .UnMerge ' .Value = s ' End With End If Next rng1 Set rng2 = Nothing End Sub
1
下一页