根据另一列在特定列中填充值的宏

Question

我想寻求帮助。 我正在寻找可以执行此操作的宏：

我有一列称为Comment的列，应根据Comment列填充其他五个列。 如果在“注释”列中有一条消息“重复”，我想在称为“重复1”的列中标记为“ 0”。在这种情况下，也会出现两个值可以表示要填充1的情况-即“左-找到替换项”和“左-不可更换。 对于这两个值，“左列”中应填充1，其他值应为0。

我修改了用于Vlookup的宏，但我只能获取if函数，但只能进行1个特定的逻辑测试（在本示例中为“发现左-替换）。我需要进行1个以上的逻辑测试。因此，在这种情况下，我希望将“左-找到替换”和“左-没有替换”标记为1，将其余标记为0。

Sub Testing_if_function()
Dim FormulaCol As Long
Dim LookupCol As Long
Dim TotalRows As Long
Dim TotalCols As Long
Dim i As Long

Sheets("Data").Select
TotalRows = ActiveSheet.UsedRange.Rows.Count
TotalCols = ActiveSheet.UsedRange.Columns.Count

For i = 1 To TotalCols
    If Cells(1, i).Value = "Test" Then FormulaCol = i
    If Cells(1, i).Value = "Comment" Then LookupCol = i
Next

ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""Left - Replacement Found"",1,0)"
Cells(2, FormulaCol).AutoFill Destination:=Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol))
With Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol))
    .Value = .Value
End With

End Sub

Answer 1

我找到了解决这个问题的方法。 因此，如果有人需要类似的宏，则代码如下：

Sub Testing_if_function()
Dim FormulaCol As Long
Dim LookupCol As Long
Dim TotalRows As Long
Dim TotalCols As Long
Dim i As Long

Sheets("Data").Select
TotalRows = ActiveSheet.UsedRange.Rows.Count
TotalCols = ActiveSheet.UsedRange.Columns.Count

For i = 1 To TotalCols
    If Cells(1, i).Value = "Test" Then FormulaCol = i
    If Cells(1, i).Value = "Comment" Then LookupCol = i
Next

ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""Left - Replacement Found"", 1, IF(RC[-2]=""Left - No Replacement"", 1, 0 ))"
Cells(2, FormulaCol).AutoFill Destination:=Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol))
With Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol))
    .Value = .Value
End With

End Sub