如何在循环中保存单元地址

debugcn 发表于 Dev

克里斯滕森

我有一个完全为零的电子表格，但是某些单元格具有值。这些值表示错误，我想知道这些错误的位置。这是我的电子表格：

这是我的代码：

Sub FindErrors()

Worksheets("Realisering Flow - aggregeret").Activate

For Each c In Range("EC3:IX1372").Cells
  If c.Value <> 0 Then
    Value = c.Value
    Address = c.Address

    MsgBox "Der er fundet fejl i celle " & Address & _
       "; som har værdien " & Value
  End If

Next

Worksheets("OPS_Volume").Activate

MsgBox "Der er ikke nogen fejl"

End Sub

现在，我为每个错误得到一个msgbox，但是我想要一个不同电子表格中所有错误的列表，但是我不知道如何在循环中保存地址。我也想保存错误列的标题。

希望有人能帮助我-预先感谢。

戴夫

Sub FindErrors()
Dim myArray() ' declare array as dynamic so we can adjust its size later
ReDim myArray(2,0) ' redim it so it's 2 dimensional
With Worksheets("Realisering Flow - aggregeret")

    For Each c In .Range("EC3:IX1372").Cells
        If c.Value <> 0 Then
            Value = c.Value
            Address = c.Address
            Header = .Cells(1, c.Column).Value

            'MsgBox "Der er fundet fejl i celle " & Address; som har værdien " & Value
            myArray(0, UBound(myArray,2)) = Value
            myArray(1, UBound(myArray,2)) = Address
            myArray(2, UBound(myArray,2)) = Header
            ReDim Preserve myArray(2, UBound(myArray, 2)+1) ' increase size of array by 1
      End If

    Next
End With

Dim Destination As Range
Set Destination = Worksheets("OPS_Volume").Range("A1") ' point Range to A1
' Now push the array into OPS_Volume starting from A1 (adjust Destination as necessary) 
Destination.Resize(UBound(myArray, 2)+1, UBound(myArray, 1)+1).Value = myArray
'MsgBox "Der er ikke nogen fejl"

End Sub

上面的代码将在二维数组中收集所需的详细信息，然后将该数组输出回Sub中具有的第二个工作表中。您可以对其输出数组的位置进行足够容易的修改。让我知道这里是否有您不了解的东西？

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。