Question

一个工作表。 103列。我需要填充第104列，查看一列（列O又名.15）。该列中只有两个值，1或3。如果该列中有1，则该行的第104列单元格需要一个表示法;如果它是3然后它需要一个不同的表示法。我对公式有所了解，对vba有点了解，这让我无处可去。我有其他宏用于转换列中的值，但它们都在同一列中工作，我似乎无法使那些适应我现在需要的。是否有一个相对较快的小宏我可以通过查看列o中的值并以两个符号之一弹出到我的上一列？

在那里编辑了第一部分。我猜想一下子想到两件事。这是专栏。有近3600行。我需要遍历每一行并根据列O中的值是1还是3来在最后一列（第104列）中输入表示法。因此，从第1行开始并在最后一列中输入x或y取决于列o中的值，然后对每一行重复。

Answer 1

试试这个：

Sub HTH()

    With Range("O1", Cells(Rows.Count, "O").End(xlUp)).Offset(, 89)
        .Formula = "=IF(O1=3,""x"",""y"")"
        .Value = .Value
    End With

End Sub

根据另一列填充一个列单元格

1 个答案: