在目标数组中使用For Each（Excel VBA）
我试图捕捉用户在工作表上所做的更改。
我有我的worksheet_change事件设置，但问题是如果Target.Range大于单个单元格？
基本上，我需要评估每个单元格更改以使用函数来validation有效性。 我的问题是Target.Range当然可以是任何大小，并且testing有效性的函数会查看周围的单元格。
我试图使用这样的事情来捕获更改的单元格的地址：
i = 1 j = 1 For Each aCell In Target DiffAddys(i, j) = aCell.Address NewValues(i, j) = aCell.Value2 If i < Target.Rows.Count Then i = i + 1 If j < Target.Columns.Count Then j = j + 1 Next 这样，我可以捕获单元格的地址，然后使用aCell.Row或aCell.Column等，但如果Target.Range大于2列，则失败，因为i索引增长得比它应该更快。
无论如何find目标范围内的“aCell”的位置，因为它是由For Each循环的？ 或者是最好的信任，对于每一个总是去1,1 1,2 1,3 2,1 2,2等？
任何更好的方法？ 也许只是将每个aCell的地址复制到一个等于Target.Range的rows *列的1D数组中，这样i / j索引就无关紧要了 – 然后处理这个1D数组而不是2D数组？
谢谢，BT
更多的信息，你需要做什么与arrays和你如何做会有所帮助。 但至于你发布的内容…像你这样的build议，使用一维数组，应该做的伎俩：
Private Sub Worksheet_Change(ByVal Target As Range) Dim DiffAddys() As String, NewValues() As Variant Application.EnableEvents = False ReDim DiffAddys(Target.Cells.Count) ReDim NewValues(Target.Cells.Count) i = 1 'it is generaly not recommended to start array indexes on 1 For Each aCell In Target.Cells DiffAddys(i) = aCell.Address NewValues(i) = aCell.Value2 i = i + 1 Next aCell Application.EnableEvents = True End Sub
或者你可以把aCell.Address和aCell.Value2放到一个二维数组中。
感谢所有的build议。 我只是继续前进，并采取我自己的build议，并与1Darrays去存储更改单元格的地址。
If Range("aq" & Target.Row).Value <> "p" And Target.Cells.Count <= 1 Then Range("aq" & Target.Row).Value = 1 Application.EnableEvents = True Exit Sub End If Application.ScreenUpdating = False ReDim OldValues(1 To (Target.Rows.Count * Target.Columns.Count)) ReDim NewValues(1 To (Target.Rows.Count * Target.Columns.Count)) ReDim DiffAddys(1 To (Target.Rows.Count * Target.Columns.Count)) i = 1 For Each aCell In Target DiffAddys(i) = aCell.Address NewValues(i) = aCell.Value2 If i < (Target.Rows.Count * Target.Columns.Count) Then i = i + 1 Next Application.Undo 'turn back time For i = 1 To UBound(NewValues, 1) 'rows OldValues(i) = Sheet5.Range(DiffAddys(i)).Value Next i