1

如果单元格具有特定的value ("vv"). 我发现的一个解决方案是每次进行更改时检查数组中的每个单元格，但认为有可能cell在它之后检查 a 的值changed？

因此，如果我输入一个空白单元格"vv"（不带引号）并选择一个不同的单元格，我希望该单元格（其中包含 vv）与它下面的那个单元格合并。在我的数组解决方案中，每次更改单元格都需要一秒钟，如果进行大量更改，这并不整洁。有什么帮助吗？

4

1 回答 1

4

在您的工作表中尝试此代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    如果 Target.Value = "vv" Then Target.Resize(2).Merge
结束子

如果您想阻止下面单元格中的任何内容，此代码将询问您是否应合并单元格以防找到任何内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    如果 Target.Value = "vv" 那么
        如果 Target.Offset(1).Value "" 那么
             if MsgBox("是否覆盖下面的单元格（包含'" & _
                 Target.Offset(1) & "?", vbYesNo) = vbYes 然后
                 Target.Resize(2).Merge
            万一
        别的
            Target.Resize(2).Merge
        万一
    万一
结束子

注意：代码需要进入目标工作表，而不是新模块，因为它是一个事件过程：

代码放置

于 2013-02-01T12:24:30.107 回答