Question

在VBA中，如果另一个单元格包含任何文本，有没有办法添加到单元格？

前：

F列中包含文本

的FOREACH单元格

在G栏中写下“已分配”

IF Cell F为空白，跳过单元格

我知道有一个公式为这个[“= IFERROR（IF（SEARCH（”“*”“，RC [-1]，6），”“ASSIGNED”“），”“”“）”]，但我导入此文件的应用程序不接受包含公式的工作簿。

提前感谢您的帮助。

Answer 1

Sub Test()

    Dim rng As Range

    Set rng = Workbooks("My Tracker").Sheets(4).Range("F1:F" & Cells(Rows.Count, "F").End(xlUp).Row)

    For Each Cell In rng
        If Len(Cell.Value) > 0 Then
            Cell.Offset(0, 1).Value = "ASSIGNED"
        End If
    Next

End Sub

Excel VBA条件文本

1 个答案: