根据单元格值将字符串变量设置为通配符

Question

我正在创建一个电子表格，其中可以根据"数据创建者"的"数据创建者"限制宏，这是一个基于输入数据的每个数据行的名称的列。<<<<<<<<<<<<<。/p>

例如" dan"输入数据行，将其标记为" dan"在Z。

中

您可以选择哪个"数据创建者"要根据单元格中的下拉列表贯穿宏，并具有完整的名称列表。
在这里，您还可以选择一个星号以查看所有记录，理想情况下可以充当VBA中的通配符。
原始数据在第一张上，下拉列表在" d29"单元格中。在第2页上。

如果选择了一个名称，则仅在代码中处理该数据。

选择星号时，它不会充当通配符，没有处理数据。

Dim Record as Variant, cell As Range
Record = Sheets("Sheet 2").Range("D29") 'Dropdown cell that can be a data creator or an asterisk
    
For Each cell In Sheets("Sheet 1").Range("Z3:Z100")
    If cell = Record Then
        'Execute Code
    Else
    End If
Next cell

我可以通过另一项选择案例语句的语句来处理此问题，但我希望使用星号会缩小代码。

我正在为Mac运行Excel 2017。

Answer 1

有点安全，并且可能更有效地替代：

Dim Record As String, cell As Range
Record = Sheets("Sheet 2").Range("D29") 
For Each cell In Sheets("Sheet 1").Range("Z3:Z100")
    If cell = Record Or Record = "*" Then
        'Execute Code
    End If
Next cell