将新数据添加到工作表时，自动将整行从一列复制到另一列

Question

我有一个包含数据日志的主电子表格。数据日志包含复杂的公式，因此当新数据添加到工作表时，我希望将整行作为值（无公式）自动复制到不同的列。我开始使用以下代码创建一个模块，该模块只会重复复制第一行。

Dim sh As Worksheet
Dim lRow1 As Long
Dim lRow2 As Long
Dim i As Long

Set sh = ActiveSheet

lRow1 = sh.Range("AE" & Rows.Count).End(xlUp).Row
lRow2 = sh.Range("AM" & Rows.Count).End(xlUp).Offset(1, 0).Row

With sh.Range("AE13" & ":AJ" & lRow1)
sh.Cells(lRow2, "AM").Resize(1, .Columns.Count).Value = .Value
lRow2 = lRow2 + 1
End With
End Sub

我真的希望每次将新数据添加到工作表时自动发生这种情况。请提供帮助，非常感谢您提供任何信息。

Answer 1

尝试以下操作：首先使用 Target 检查 AE:AJ 是否在列 Intersect 中，然后在复制之前确保 AE:AJ 中的所有单元格都已满，使用 {{ 1}}。

CountBlank