时间戳

首页 > 解决方案 > 对文本使用 IF 函数

excel - 对文本使用 IF 函数

问题描述

我正在尝试制作一个 VBA 宏，它将在 D 列中查找特定值并将文本输入到其他 3 个中。我相信我已经接近获得所需的答案，但我不确定我缺少什么才能让它发挥作用。

这是我到目前为止所拥有的：

Dim rng As range
Dim i As Long

'Set the range in column D you want to loop through
**Set rng = range("D3:D")**
For Each cell In rng
    'Test cell for CR
    If cell.Value = "CR" Then
        'write to adjacent cell
        cell.Offset(0, 3).Value = "CREDIT"
        cell.Offset(0, 5).Value = "CREDIT"
        cell.Offset(0, 6).Value = "CREDIT"
    End If
Next
**Set rng = range("G3:G")**
For Each cell In rng
    'test for empty cell
    If cell.Value = "" Then
        'write to adjacent cell
        cell.Offset(0, 0).Value = "FREIGHT"
        cell.Offset(0, 2).Value = "FREIGHT"
        cell.Offset(0, 3).Value = "FREIGHT"
    End If
Next

End Sub

带有 ** 的行是我遇到错误的地方。

任何帮助是极大的赞赏！

标签： excelvba

解决方案

尝试这个：

Set rng = Range("D3", Cells(Rows.Count, "D").End(xlUp))

推荐阅读