Question

如果工作表3中的单元格值与工作表2中的单元格值匹配，则工作表2中指定的单元格包含给定的文本替换为...

（编辑 - 评论的补充说明）：我想将表格中的D列（“新”）与表格中的A列（“alljobs”）进行比较。如果这些匹配我想要转到表格G列（“alljobs”）并且取决于它是否包含GTB或WDTC，我想更改表格的B列（“新”）来表示迪斯尼WDTC或迪士尼DCL。

知道为什么会跑，但什么都不做？

Sub changedisney()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim wb As Workbook
Dim ws As Worksheet
Dim lookupvalue As Variant

Set wb = ActiveWorkbook
Set ws1 = wb.Sheets("April")
Set ws2 = wb.Sheets("alljobs")
Set ws3 = wb.Sheets("New")

y = ws3.Cells(ws3.Rows.Count, 2).End(xlUp).Row
    For i = y To 2 Step -1
        lookupvalue = ws3.Cells(i, 4)
        For x = ws2.Cells(Rows.Count, 4).End(xlUp).Row To Step - 1
            Set rng = ws2.Cells(x, 4)
            If rng = lookupvalue And ws2.Cells(x, 7) Like "wdtc*" Then
                ws3.Cells(x, 2) = "Disney WDTC"
            End If
        Next x
    Next i


Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Answer 1

这样的事情对你有用：

find ~ -name autopep8

编辑：根据OP的评论更新了代码：

我想将wsNew中的D列与wsALL中的A列进行比较。如果这些匹配我想去 wsNew 的G列，具体取决于是否它包含GTB或WDTC，我想改变wsNew的B列说迪士尼WDTC或DIsney DCL

（在你的评论中，你说要查看wsNew的G列，但我想你的意思是说wsAll的G列，这是更新的代码所做的。）

如果工作表（3）中的单元格值与工作表（2）中的单元格值匹配，则工作表（2）中的指定单元格包含给定的文本替换为

1 个答案: