在列中搜索文本并将下一个单元格中的值加 1

Question

在我的工作表的“G”列中，我的单元格中包含文本“已计费月数” - 我有搜索此文本的代码，并且在文本旁边的单元格中将值增加 1。

我在此站点上找到了代码，但由于某种原因，我收到运行时错误 13 - 更改所有值后的类型不匹配。编辑 - 我做了一步，一旦代码运行通过列 G 并更改了所有值，它就会循环回 For Each 语句，然后我在 found.offset 语句中得到运行时错误。

这是我的代码：

Sub UpdateMonthsBilled()

Dim findRng As Range, _
    targetRng As Range, _
    findCell As Range, _
    found As Range
Dim firstFound As String, _
    columnName As String
Dim Month As Integer

Month = 1
columnName = "G"
Set findRng = Range("G5:H650")
For Each findCell In findRng
    Set targetRng = Range(columnName & "2", Range(columnName & Rows.Count).End(xlUp))
    With targetRng
        Set found = .Find(findCell.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not found Is Nothing Then
            firstFound = found.Address
            Do
                found.Offset(0, 1).Value = found.Offset(0, 1).Value + 1

                Set found = .FindNext(found)
            Loop While Not found Is Nothing And found.Address <> firstFound
        End If
    End With
Next findCell


End Sub

任何帮助将不胜感激，因为我不知道我哪里出错了？

Answer 1

我将您的代码复制到 VBA 并运行它。

G1 到 G4 行似乎也在递增。

但是没有错误。这是 Excel 2003。