我想寫一個宏,它將根據其他單元格中的條件打印出數組中的值。我已經獲得了宏在數組中打印出一個值,但不是其他值。電子表格如下:打印數組值可變的次數
Column 1 | Column 2
___________________
L1 |
L1 |
L2 |
L3 |
L1 |
L5 |
L1 |
數組看起來像這樣:列表=陣列(「PERSON1」,「PERSON2」,「Person3可能」)和我所試圖做的是打印PERSON1,PERSON2等。每個值表示L1到最後一個L1值。它應該看起來像下面的例子。
Column 1 | Column 2
___________________
L1 | Person1
L1 | Person2
L2 |
L3 |
L1 | Person3
L5 |
L1 | Person1
下面的宏部分工作,但它只打印一個人,Person3。任何幫助,將不勝感激!
Sub Practice()
Dim i, j, k As Integer
Dim List As Variant
Dim LastRow As Long, CountL As Long
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("Sheet1")
List = Array("Person1", "Person2", "Person3")
LastRow = ws.Cells(Rows.Count, "C").End(xlUp).Row - 1
For i = LBound(List) To UBound(List)
For j = 2 To LastRow
If ws.Cells(j, 3).Value = "L1" Then
ws.Cells(j, 4) = List(i)
Else 'Do Nothing
End If
Next j
Next i
End Sub
注意,「L」值在列C和列d人的名字,在實際的電子表格,這就是爲什麼在宏列不我添加了樣本數據匹配列這裏。