vba - 使用 .Replace 撤消 ID

问题描述

第一次在这里发帖，如果我的格式不正确，请见谅。这是我的问题（请参阅下面我尝试解决的问题）：我有一个工作列表，其中分配有工作人员的 ID。前任。在一张“IDsheet”中

Job       Id

M1       S1 S4

M2       S15

M3       S2

M4       S6          etc

在另一张“工人”中，我有

Name    ID

Andy    S1

Dave    S2

Hilda   S3

Kerri   S4            etc

我正在尝试（失败）为 excel 编写一点 VBA，以便我可以用正确的“名称”替换所有 S1、S2 等。

我环顾四周，我以为我找到了必要的代码，但我错误地实现了它，而且我缺乏 VBA 知识可能让我错误地调用它。

我的子程序是：

Sub StaffReplaceAll(code As String, staffid As String)

Dim fnd As String
Dim rplc As String

fnd = code
rplc = staffid

Worksheets("IDsheet").Cells.Replace _
what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True, _
SearchFormat:=False, ReplaceFormat:=False

End Sub

我的调用函数是：

Function StaffSub(inval As String, outval As String) As Integer

Call StaffReplaceAll(inval, outval)

End Function

在我称之为“StaffSub”的地方，我得到了#VALUE！错误，并且 IDsheet 未更改。

提前感谢您的帮助。顺便说一句：我也看过使用 Vlookup，但我不确定它是否真的适合我在这里所做的，也看到了这个页面，但这让我很困惑！

标签： vbaexcel

解决方案

在这里，我假设在IDsheet上，每个Id都在自己的单元格中，并且这个Ids 块从B2到最多Z100。编码：

Sub david()
    Dim i As Long, N As Long, r As Range, v1 As String, v2 As String
    With Sheets("Workers")
        N = .Cells(Rows.Count, "A").End(xlUp).Row
        For i = 2 To N
            v1 = .Cells(i, "A")
            v2 = .Cells(i, "B")
            For Each r In Sheets("IDsheet").Range("B2:Z100")
                If r.Value = v2 Then r.Value = v1
            Next r
        Next i
    End With
End Sub

像这样的工人：