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

我的代码有一个特殊的问题。当它在表中活动单元格下方插入一行时，出于某种原因，它会在新行中打印新单元格的地址。例如，如果在单元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

subtestsub（）
作为列表列的Dim LCU
设置LCU=工作表（“正在进行”）.ListObjects（“表4”）.ListColumns（“重做（否）”）
变暗rng As范围
设置rng=范围（LCU.DataBodyRange，LCU.DataBodyRange.End（xlUp）.Offset（1，0））
如果rng.Columns.Count>1，则退出Sub
对于rng中的每个单元
如果Not Intersect（rng，LCU.DataBodyRange）为Nothing，Len（cell.Value）为0，则
ActiveCell.EntireRow.Select
Selection.Rows.Insert Shift:=xlDown，CopyOrigin:=xlFormatFromLeftOrAbove
如果rng.Cells（2）.Row=Selection.Row，则rng.Cells（1）.Value=“WTF””调用条件格式更改
如果结束
下一个
端接头

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

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

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

我已尝试在插入行行之前插入

应用程序。CutCopyMode=False

，以防剪贴板中有任何额外内容，但地址仍不断出现。在最坏的情况下，我可能会写一行代码来清除单元格中的地址，但我宁愿找出原因并修复根本原因

永远感谢任何能帮助你的人

---

干杯，艾玛

一些想法供你详细阐述。新文本在表格中吗？如果您有一个表并插入新行，在某些情况下，它可以填充数据（通常对于公式，它会继续）。我对以下

xlFormatFromLeftOrAbove

几乎没有经验，但我会检查您是否有任何将应用于新行的奇怪自定义格式。测试代码后的感觉是，代码做了预期的事情，因此问题可能是复制区域周围的单元格。似乎您可能有一个插入单元格地址的事件处理程序？