Question

我尝试在现有代码中添加偏移量，但在使用2003时它会一直停止对象错误，并在2007年更改L列中的每个单元格。它似乎只能在Excel 2010中使用

我需要它检查每行的2个单元格＆＃34; L＆＃34;和＆＃34; T＆＃34;如果单词＆＃34; NO_RESULT＆＃34;存在于（Col L） AND ＆＃34; Y＆＃34;存在于（Col T）中，它应该将（Col L）单元格中的文本更改为＆＃34; EXCLUDE＆＃34;如果可能的话，用黄色突出显示整行（我还没试过这一点）

Cell.Offset（，8）=＆＃34; Y＆＃34;

'Find last row
Dim LastRow As Long
Dim Cell As Range

LastRow = Cells.Find("*", searchorder:=xlByRows, SearchDirection:=xlPrevious).Row
'Check to see if the word exists in column L
Dim i As Integer, intValueToFind As String
intValueToFind = "NO_RESULT"
For i = 1 To LastRow
    If Cells(i, 12).Value = intValueToFind And Cell.Offset(, 8) = "Y" Then
        Cells(i, 12).Value = "EXCLUDE"
    End If
Next i

在2列中查找字符串

0 个答案: