Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 基于单元格中的单词筛选主题_Excel_Vba_For Loop_Filtering - Fatal编程技术网

Excel 基于单元格中的单词筛选主题

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”) 对于

我试图根据A:A列中的单词,将C:C列中的特定过滤器/主题分配给每一行

例如,A栏中的内容“贸易信号看起来像什么?”
我想在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列-主题:未捕获|此处宏应选择主题包含单词“交易”,并指定主题“交易”而不是主题“未捕获”。