如何根据 VBA 中另一列的值从一列中选择值？

Question

我有一个表“数据”，如果第 2 列中的值 = 1，我想根据条件在第 3 列中保存行值（显示行号）

下表显示以下信息。我想过滤这个表，只显示列 a、b、e（1、2、5 列顺序）。列的索引是从第一个表的第 3 列检索的，因为行的顺序与第二个表中的列的顺序相同。

我写了一个代码，但是，它只保存了 1 和 2 个值（来自第 3 列），但数字 5 也应该保存。 如何更改代码以从第一个表中获取正确的第三列值，然后过滤第二个表？

Dim ploeg As Range
   Dim ploeg2 As Range

   For v = 1 To 5
       If rng.Cells(v, 2) = 1 Then
           Set ploeg = Cells(v, 3)
           If ploeg2 Is Nothing Then
               Set ploeg2 = ploeg
           Else
               Set ploeg2 = Union(ploeg2, ploeg)
           End If
           
       End If
   Next v
   

Worksheets("Sheet1").Range("E1").Resize(ploeg2.Rows.Count, ploeg2.Columns.Count).Cells.Value = ploeg2.Cells.Value


End Sub

Answer 1

如果您只想要这些值，请使用数组来“收集”它们。

此代码假定数据在 A1:E5 范围内。

Dim ploeg As Range
Dim arrVals()
Dim cnt As Long
dim v As Long

   ReDim arrVals(1 To 1, 1 To 5)

   For v = 1 To 5
       If Cells(v, 2) = 1 Then
           Set ploeg = Cells(v, 3)
           cnt = cnt + 1
           arrVals(1, cnt) = ploeg.Value          
       End If
   Next v
   
   If cnt > 0 Then
       ReDim Preserve arrvals(1 To 1, 1 To cnt)
       Worksheets("Sheet1").Range("E1").Resize(cnt).Value = Application.Transpose(arrVals)
   End If