在excel中合并单元格，具体取决于它的值

如果单元格具有一定的value ("vv")我想要将单元格与下面的单元格自动合并。 我发现的一个解决scheme是检查数组中的每个单元格，每次进行更改时，但是认为在changed之后可能会检查cell的值？

所以，如果我input一个空白单元格"vv" （不含引号），我select一个不同的单元格，我希望这个单元格（与vv中）合并下一个正确的。 在我的数组解决scheme中，每次更改单元格时都需要一秒钟的时间，如果进行很多更改，这并不是很整洁。 任何帮助？

Answer 1

在工作表中试试下面的代码：

私人小组Worksheet_Change（BYVAL目标作为范围）
    如果Target.Value =“vv”则Target.Resize（2）.Merge
结束小组

如果你想防止下面单元格中的任何内容，这段代码会问你是否合并单元格，以防发现任何内容：

私人小组Worksheet_Change（BYVAL目标作为范围）
    如果Target.Value =“vv”那么 
        如果Target.Offset（1）.Value“”那么
             如果MsgBox（“您是否要覆盖下面的单元格（包含'”＆_
                  Target.Offset（1）＆“？”，vbYesNo）= vbYes Then
                  Target.Resize（2）.Merge
            万一
        其他
             Target.Resize（2）.Merge
        万一
    万一
结束小组

注意：代码需要放在目标工作表中，而不是新模块，因为它是一个Event过程：