在VBA中循环字符串看似简单的任务

Question

我在使用Excel VBA中的循环工作时遇到一些麻烦，它在每行中搜索单元格E以获取字符串，然后将该字符串放在该行的单元格N中。代码如下：

Dim i As Long
For i = 1 To Rows.Count
Next i
If Cells(i, 5).InStr(1, ActiveSheet.Range("ActiveCell").Value, "Smith") > 0 Then
Cells(i, 14).ActiveCell = "Smith"
End If

任何人都可以提供有关我出错的地方的见解吗？

Answer 1

尝试：

Dim i As Long
For i = 1 To Rows.Count
    If Cells(i, 5).InStr(1, ActiveSheet.Range("ActiveCell").Value, "Smith") > 0 Then
        Cells(i, 14).ActiveCell = "Smith"
    End If
Next i

你甚至在做任何事之前就结束了你的循环。

我认为你还需要替​​换

Cells(i, 14).ActiveCell = "Smith"

使用

Cells(i, 14).Value = "Smith"