excel - 如何根据 if 语句更新单元格?
问题描述
我正在尝试将单元格值(AA 中的单元格)更新为“已关闭 - 重复”,只要列 G = True(重复名称)并取消描述(AA 列),如“已关闭”。因此,基本上,如果重复名称相同并且其中一行在 AA 列下具有“已关闭”值,则将该单元格更新为新值。这是我到目前为止得到的,但由于某种原因,它给了我一个错误,我不知道为什么(参见图片作为参考):
这行代码出现错误: If d = True And d.Offset(0, -7).Value = " Closed " Then
并且错误显示“运行时错误 1004 - 应用程序定义或对象定义错误
Public Sub HighlightDuplicates()
Application.ScreenUpdating = False
Dim Mwb As Workbook
Dim ws As Worksheet
Dim rngVis As Range
Dim rngVis2 As Range
Dim c As Range
Dim d As Range
Dim Table As ListObject
Set Mwb = ThisWorkbook
Set ws = Mwb.Worksheets("Commission")
Set Table = ws.ListObjects("Comm_Table")
LR = ws.cells(ws.Rows.Count, 1).End(xlUp).Row
Table.ListColumns.Add 2
Table.HeaderRowRange(2) = "Duplicate ESIID"
ws.Range("B2:B" & LR).Value = "=SUMPRODUCT(--($A2=A:A))>1"
Set rngVis = ws.Range("B2:B" & LR).SpecialCells(xlCellTypeVisible)
For Each c In rngVis.cells
If c = True Then
c.EntireRow.Columns("A").Interior.ColorIndex = 36
End If
Next c
Table.ListColumns(2).Delete
Table.ListColumns.Add 7
Table.HeaderRowRange(7) = "Duplicate Name"
ws.Range("G2:G" & LR).Value = "=SUMPRODUCT(--($F2=F:F))>1"
''This is where im having trouble:below''
Set rngVis2 = ws.Range("G2:G" & LR).SpecialCells(xlCellTypeVisible)
For Each d In rngVis2.cells
If d = True And d.Offset(0, -7).Value = "*Closed*" Then
d.EntireRow.Columns("AA").Value = "Closed - Duplicate"
End If
Next d**
Application.ScreenUpdating = True
End Sub
解决方案
更新!我决定使用这个 for 循环,而不是使用我的旧方法,这似乎更容易阅读,更容易理解,并且它可以满足我的要求。
For i = 2 To Lr
If ws.cells(i, "B").Value = "True" And ws.cells(i, "H").Value = "True" And
ws.cells(i, "AB").Value Like "*CLOSED*" Then
ws.cells(i, "AB").Value = "CLOSED-DUPLICATE"
End If
Next i
推荐阅读
- python - 使用 django 和 nginx 在静态路径中缺少“/”
- django - Django 服务器的自动 React 构建
- scroll - 覆盖背景颜色滚动
- r - 比较具有不同行长的两个不同数据帧的两列返回第三行
- python - scipy.optimize 中可调用函数中的 Python 多处理
- wget - 使用带有 `--page-requisites` 选项的 wget 时不要创建目录
- java - 当您添加超过 3 个元素时,BottomNavbar 会中断
- javascript - puppeteer 找不到元素
- javascript - JQuery Ajax 数据上传完成事件
- html - CSS悬停在背景图像之后和之前