vba - 宏在行中查找特定文本并复制到同一行中的单元格

Question

我有一本工作簿，我想做的是在 B 和 G 之间的一行中找到“假期”一词，并将“假期”一词放在 A 列同一行的单元格中，我附上了一张图片工作表，我需要忽略包含“休息”的单元格，只需将“假期”放在包含"is"的单元格中

Sub dural()
    Dim AB As Range, r As Range, K As Long
     Set AB = Range("B:G").Cells.SpecialCells(xlCellTypeConstants)
    K = 1
        For Each r In AB
        If InStr(1, r.Value, "holiday") > 0 Then
        r.Copy Cells(K, "A")
        K = K + 1
    End If
    Next
End Sub

我在网站的其他地方找到了这段代码，但它所做的是将“假期”放在第 1 行的 A 列中，按照它找到“假期”的次数

谁能帮我吗？

Answer 1

您也可以创建 For 循环 执行此任务:

Sub Holiday()

lastrow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To lastrow
        If Cells(i, 1).Value = "Yes" Then
            If Application.WorksheetFunction.CountIf("B" & i & ":G" & i, "holiday") > 0 Then
                    Cells(i, 1).Value = "holiday"
            End If
        End If
    Next i

End Sub

由于您在示例中还包含颜色编码，因此我添加了一条线，该线还将您的单元格的颜色更改为绿色。