在列中搜索动态值并根据需要更新值

如何解决在列中搜索动态值并根据需要更新值

我是 excel VBA 世界的新手，我想我的问题很简单，但我无法解决。

在 sheet 1 中，我的客户编号是 Won，意思是 client。

在 sheet 2 中，我得到了客户的号码，如果他是 client（赢）、prospect 或 lost。

我想更新 Sheet 2，以便在我运行宏时，Person1、Person2...成为客户的事实显示在工作表中并更新。

我的想法是在Sheet 1中选择客户编号，然后转到Sheet 2中的客户编号。如果旁边的值与 Client 不同，则将客户端放入其中。

我正在使用特定行和列的测试截图。

我愿意接受建议。提前致谢！

解决方法

我假设您看到了“开发人员”标签。

如果没有，请转到“文件”>“选项”。在出现的 Excel 选项窗口中，查找并单击“自定义功能区”。在“从中选择命令”下拉列表中，查找“开发人员”。单击它，然后单击右侧的“添加>>”。这会将“开发人员”添加到右侧部分名称“主选项卡”。单击此处选中“开发人员”，然后单击“确定”。

现在转到开发人员 > Visual Basic。

这将打开 Visual Basic 编辑器。转到插入 > 模块。这将在 Project Explorer 的 Modules 下添加 Module1。

将以下代码粘贴到该模块中，然后通过将光标放在子例程内的任意位置按 F5 运行。

如果你想通过点击一个按钮来运行它。在工作表上插入一个形状。右键单击形状，然后单击“分配宏”。在打开的窗口中，双击所需子程序的名称。在这种情况下，它是 AssigningClientStatus。

Sub AssigningClientStatus()

Dim ws1 As Worksheet,ws2 As Worksheet,rng As Range,fndRng As Range


Set ws1 = ThisWorkbook.Worksheets("Feuil1")
Set ws2 = ThisWorkbook.Worksheets("Feuil2")


    For Each rng In ws1.Range("O2",ws1.Range("O" & Rows.Count).End(xlUp))
    
        Set fndRng = ws2.Range("B1",ws2.Range("B" & Rows.Count).End(xlUp)).Find(What:=rng.Value)
        
        If Not fndRng Is Nothing Then
        
            fndRng.Offset(0,1).Value = "Client"
            
        End If
        
    Next rng
    
End Sub