[已解决]筛选后在对应行的另外一列输入预定文字

日月和

小白求助   每次都要筛选很多数据再在隔壁一列写上对应的文字     求大神救救

最佳答案

月排行榜 / 总排行榜

mathking77

2016-7-8 15:55

日月和 发表于 2016-7-8 15:22
筛选是用“包含”条件

附件
把所有要命名后的名称种类写在A列就行
Sub xx()
  For i = 2 To Range("B65536").End(xlUp).Row
        Cells(i, "C") = ""
     For j = 2 To Range("A65536").End(xlUp).Row
       If InStr(1, Cells(i, "B"), Cells(j, "A")) > 0 Then
          Cells(i, "C") = Cells(j, "A")
        Exit For
       End If
    Next
  Next
End Sub

跳转到最佳答案楼层

日月和

筛选是用“包含”条件

baksy

需要楼主提供分类清单。

mathking77

日月和 发表于 2016-7-8 15:22
筛选是用“包含”条件

附件
把所有要命名后的名称种类写在A列就行
Sub xx()
  For i = 2 To Range("B65536").End(xlUp).Row
        Cells(i, "C") = ""
     For j = 2 To Range("A65536").End(xlUp).Row
       If InStr(1, Cells(i, "B"), Cells(j, "A")) > 0 Then
          Cells(i, "C") = Cells(j, "A")
        Exit For
       End If
    Next
  Next
End Sub

日月和

mathking77 发表于 2016-7-8 15:55
附件
把所有要命名后的名称种类写在A列就行
Sub xx()

真的非常感谢  没想到这么快就有回复  用了下   感觉效果还不错  嘿嘿

日月和

baksy 发表于 2016-7-8 15:34
需要楼主提供分类清单。

    谢谢   已经解决   这个论坛的活跃度真高