因为看不出楼主的AS列单元格内容，所以说不好究竟有哪些问题。 不过，我看楼主截图中有单元格合并，而且从前面文字中所给的三行代码来看，它只适合于单元个单元格的处理，如果你同时操作多单元就会出错。这至少是一个看得出来的问题吧。 针对这个问题这样修复：加入一个循环引入一个对象变量m，并用它来替代循环中的Target对象。代码如下：Private Sub Worksheet_Change(ByVal Target As Range)
For Each m In Target
If m = [a2] Then [a1] = Sheets("sheet2").Range("B" & 3 + [a2])
Ne...
