Question

我的RowsToAdd代码存在问题，其中我只在D列中为每个数字存储一个值。我的问题是例如将有3个数字1＆＃39; s单个数字2，单个数字3和2个数字4等等，如果该值不等于我正在查找的内容，我希望能够为D列中的每个数字存储所有这些值在我的数组中，但是我的代码替换了数字，因为它发现它们只留下一个值。任何帮助将不胜感激：

Sub tester()

max_targets = 6
Dim RowsToMiss(1 To 6)
Dim RowsToAdd(1 To 6)

lrow = 2
Do Until Sheets("Result").Cells(lrow, 1) = ""
    If Sheets("Result").Cells(lrow, 9) = "MISS" Then
        RowsToMiss(Sheets("Result").Cells(lrow, 4)) = lrow
    End If
    lrow = lrow + 1
Loop

lrow = 2
Do Until Sheets("Result").Cells(lrow, 1) = ""
    If RowsToMiss(Sheets("Result").Cells(lrow, 4)) <> lrow Then
        RowsToAdd(Sheets("Result").Cells(lrow, 4)) = lrow
    Else
    End If
    lrow = lrow + 1
Loop
End Sub

Answer 1

似乎问题在于这一行：

RowsToMiss（表格（＆＃34;结果＆＃34;）。细胞（lrow，4））= lrow

你正试图放在D列中的任何数字lrow，lrow。我不知道为什么这样做没有意义。你可以保存在RowsToMiss（1）= something1，RowsToMiss（2）= something2，RowsToMiss（3）= something3等等......

但是在这里，你的意思是拯救D在Drow中的任何一列，但是。

看到逻辑？

在数组中为特定数字存储多个值

1 个答案: