Excel 基于单元格中的单词筛选主题
我试图根据A:A列中的单词,将C:C列中的特定过滤器/主题分配给每一行 例如,A栏中的内容“贸易信号看起来像什么?”Excel 基于单元格中的单词筛选主题,excel,vba,for-loop,filtering,Excel,Vba,For Loop,Filtering,我试图根据A:A列中的单词,将C:C列中的特定过滤器/主题分配给每一行 例如,A栏中的内容“贸易信号看起来像什么?” 我想在C列中用名称“贸易信号”来指定特定的行 它不能正确过滤。它在所有行的所有C-单元格中粘贴“未捕获” 子主题() 将搜索范围变暗为范围 Dim InsertRng As范围 暗淡单元格作为范围 范围(“C8:C10000”)。清除 设置搜索范围=工作表(“数据”)。范围(“A7:A1500”) Set InsertRng=工作表(“数据”).范围(“C7:C1500”) 对于
我想在C列中用名称“贸易信号”来指定特定的行 它不能正确过滤。它在所有行的所有C-单元格中粘贴“未捕获”
子主题()
将搜索范围变暗为范围
Dim InsertRng As范围
暗淡单元格作为范围
范围(“C8:C10000”)。清除
设置搜索范围=工作表(“数据”)。范围(“A7:A1500”)
Set InsertRng=工作表(“数据”).范围(“C7:C1500”)
对于SearchRange中的每个单元格
如果像“*Chart*”这样的Cell.Value=True,那么
InsertRng.Value=“图表”
ElseIf Cell.Value,如“*Investor*”=则为真
InsertRng.Value=“投资者”
ElseIf Cell.类似“*贸易信号*”的值=True
InsertRng.Value=“贸易信号”
ElseIf Cell.Value,如“*Account*”=True,则
InsertRng.Value=“账户”
ElseIf Cell.值,如“*观察列表*”&“*交易*”&“*订单*”=True
InsertRng.Value=“交易”
其他的
InsertRng.Value=“未捕获”
如果结束
下一个细胞
端接头
您在SearchRng
中迭代,但不更新InsertRng
中的相应单元格,但每一步都覆盖整个InsertRng
最后,你总是会有空的单元格,这些单元格与任何条件都不匹配,你只会在任何地方得到“未捕获”
调试代码总是一个好主意,这样您就可以看到在运行每一行代码之后发生了什么
您可以执行以下操作:
Intersect(Cell.EntireRow,InsertRng).Value=“…”
还请添加一些示例输入和所需输出,以帮助我们更好地理解您的问题e.g。我有一行内容如下:a列-主题:FW:新列添加到交易记录中| B列-日期:2020年11月3日| C列-主题:未捕获|此处宏应选择主题包含单词“交易”,并指定主题“交易”而不是主题“未捕获”。