问如何在Excel VBA中将单元格中的数字替换为循环中列表中的名称

EN

正确的sintax如下所示

rplc =ThisWorkbook.Sheets(“值班表”).Cells(17，fnd + 1).Value

这将得到"fnd+1“列和第17行中的单元格的值

此外，您正在遍历工作表，但实际上从未使用过它们，因为您既没有使用" sht“，也没有在任何range对象前加上一个”点“来引用”统治“sht。如下所示：

对于ActiveWorkbook.Worksheets中的每个sht

sht.Range("B2:F54").Replace What:=fnd, replacement:=rplc, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False

来自以下内容：

Schedule before numbers been replaced by the green list of employees

这段代码：

Sub FindReplaceAllTest(numOfEmployees As Integer)

Dim n As Integer
Dim fnd As Integer
Dim rplc As String

fnd = 1

    Do Until n = numOfEmployees + 1

        rplc = ThisWorkbook.Sheets("Duty Roster").Cells(fnd + 1, 17).Value

        Range("B2:F54").Select
        Selection.Replace What:=fnd, replacement:=rplc, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False,_
        SearchFormat:=False, ReplaceFormat:=False

        n = n + 1
        fnd = fnd + 1
    Loop

End Sub

产生了以下结果：

Schedule after numbers been replaced by the green list of employees

非常感谢user3598756为我提供了解决这个问题所需的一切！她/他指出，我在我的代码中编写了不需要的部分，所以我用Do Until Loop替换了我的For Each Loop，还用n替换了sht变量(并根据我的需要重写了它们)，以使其正常工作。他还让我意识到，我混淆了列/行引用的位置。在编辑之后，我的代码开始产生我想要的结果。

因此，我的代码现在所做的是将变量n与变量numOfEmployees + 1进行比较，以确保当n > than numOfEmployees时循环停止。确保所有的数字都包含在内。此外，该循环查看我指定的范围内的fnd，并用在变量rplc处找到的单元格中的值替换出该数字的所有实例。

这就是我(我希望是正确的，我是个新手)对我所做的事情的简单回答。

非常感谢你的帮助！