停止从新行中的打印单元格地址插入行

如何解决停止从新行中的打印单元格地址插入行

我的代码有一个特殊的问题。当它在表中的活动单元格下面插入一行时，由于某种原因，它将在新行中打印新单元格的地址。例如，如果在单元格U9下方插入一行，则文本“ U10”出现在S10中。

我不记得它何时开始执行此操作，但是可以肯定的是，当我第一次开始对该宏进行操作时，它并不存在-在开始时它完全插入了空白行。我不知道是什么原因导致了此更改，因为插入行的行保持不变。

这就是我所拥有的：

Sub TestSub()

Dim LCU As ListColumn
Set LCU = Worksheets("On-going").ListObjects("Table4").ListColumns("Redos (no.)")
    
Dim rng As Range
Set rng = Range(LCU.DataBodyRange,LCU.DataBodyRange.End(xlUp).Offset(1,0))

If rng.Columns.Count > 1 Then Exit Sub
    
    For Each cell In rng
        
        If Not Intersect(rng,LCU.DataBodyRange) Is Nothing And Len(cell.Value) <> 0 Then
            
            ActiveCell.EntireRow.Select
            Selection.Rows.Insert Shift:=xlDown,CopyOrigin:=xlFormatFromLeftOrAbove

            If rng.Cells(2).Row = Selection.Row Then rng.Cells(1).Value = "WTF" 'Call ConditionalFormattingChange
    
        End If

    Next

End Sub

我的最终目标是，只要具有条件格式的某个ListColumn（“ Redos（no。）”列）中的单元格值发生变化，就会在其下方自动插入一行。我已经准备好一个事件处理程序，但是我使用此TestSub来确认代码可以正常工作。

如果ListColumn的第一个单元格被更改，那么我需要更改条件格式设置规则，为此我有一个单独的宏（ConditionalFormattingChange）。为了进行简单的测试，我将其更改为在第一个单元格中写入WTF。

除了在新行中奇怪地添加了单元格地址外，这段代码的所有工作都与我期望的一样。

我试图在插入行之前插入Application.CutCopyMode=False，以防剪贴板中有多余的东西，但地址仍然出现。在最坏的情况下，我可能会写一行以清除单元格中的地址，但我想弄清楚是什么原因并解决根本原因。

永远感激任何可以帮助的人！

干杯，艾玛