Excel VBA 无法跟踪通过复制和粘贴更改的所有行

Question

我是 VBA 新手，我需要在 excel 中跟踪所有修改的行。 excel 文件预计将有数百万条记录，而用户预计只有少数列或行会被修改。为了节省时间，我计划只将修改后的记录更新回 sql rest 删除它。我设法让下面的代码按照预期工作，但前提是用户手动修改。如果用户复制并粘贴多行，则仅将第一条记录标记为已修改，其余则不标记。

我要求通过手动或复制粘贴到该工作簿中来跟踪任何更改

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rw As Long
    Dim cw As Long
    rw = [Sheet1!b8].CurrentRegion.Rows.Count
    cw = [Sheet1!b8].CurrentRegion.Columns.Count
    lcw = ColumnLetter(cw)
    Dim xrng As Range   
    Set xrng = Range("c1:" &lcw & rw)
    If Not Application.Intersect(xrng, Range(Target.Address)) _
        is Nothing Then
           If Target.Row > 1 Then Cells(Target.Row, 1) = "M"
           End If
    End If  
        
End Sub

Public Function ColumnLetter(ColumnNumber As Long) As String
    ColumnLetter = Split(Cells(1, ColumnNumber).Address(True, False), "$")(0)
End Function

Answer 1

你要用 Intersect 做的事情并不完全干净，但在这里你是一个 sn-p，在第一列用 M 标记所有受影响的行：

Private Sub Worksheet_Change(ByVal Target As Range)
    
     Dim v

     Application.EnableEvents = False
     For Each v In Target
         if v.Row > 1 And v.Column > 1 Then Cells(v.Row, 1) = "M"
     Next
     Application.EnableEvents = True

End Sub

注意事项：

For Each 循环管理多个单元格选择。

需要Application.EnableEvents = False 以防止子在更改Cells(..., 1) 时触发

此代码并不完美，因为它覆盖Cells(..., 1) 的次数是受影响范围包含的列数的倍数。但是如果它不是太慢的话，你可以保持这个简单。试试看吧。