MS Excel：如果单元格中的内容<>最后一行单元格中的内容，则自动插入一行？

Question

如果单元格中的内容与最后一行单元格中的内容不同，我想自动添加一行？

例如，B1 包含"K1234"，

B2 包含"K1235"，然后在第 1 行和第 2 行之间添加一个空行，因此 B2 变为 B3。 之后，继续检查整个工作表的B列。

如果 B5 包含"K2345"，

B6 包含"K2345"，则无需执行任何操作，只需连续检查整个工作表的 B 列即可。

Answer 1

嗨@Anita我建议你一个bttr，有更多的多样性，试试这个，， ☺

Sub InsertRowsAsValueChange((

调暗范围将工作范围调暗

出错时恢复下一个

xTitleId = "插入范围">

设置 WorkRng = 应用程序.选择

set workRng = Application.InputBox( "range" ， xTitleId， WorkRng.Address， Type：=8(应用程序.屏幕更新 = 假

对于 i = WorkRng.Rows.Count To 2 步骤 -1

如果 WorkRng.Cells(i， 1(。值 <> WorkRng.Cells(i - 1， 1(.那么值

WorkRng.Cells(i， 1(.EntireRow.Insert结束如果

下一个

应用程序.屏幕更新 = 真

结束子

注意：当您运行时，将显示输入框以插入数据范围。 😁

希望这对你有帮助。