Question

在我的工作表的“G”栏中，我的单元格中包含“Months Billed”文本 - 我有搜索此文本的代码，并且在文本旁边的单元格中将值递增1。

我在这个网站上找到了代码但由于某种原因我得到了一个运行时错误13 - 在更改了所有值后键入Mismatch。编辑 - 我进入了一步，一旦代码运行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。

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

1 个答案: