高谈阔论话人间
高谈阔论话人间
签名是一种态度，我想我可以更酷...
关注数: 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
下一页
