根据另一个单元格的值改变单元格的值

时间:2014-03-04 19:06:51

标签: excel vba excel-vba

我有2000+行的表格,在单元格S中我有一些值,基于单元格S我需要更改单元格V中的值

例如,如果单元格S的值是< 3552比单元V = 241,否则V = 240

代码需要检查每一行

TNX

1 个答案:

答案 0 :(得分:1)

  

需要在vba中完成

试试这个:

Sub test()
    Dim lastrow As Long
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet1")
        'find lastrow in column S
        lastrow = .Cells(.Rows.Count, "S").End(xlUp).Row
        'change V1 to, say, V2 if your data starts from V2
        With Range("V1:V" & lastrow)
            'calculate result with formula
            .Formula = "=IF(S1<3552,241,240)" 'change S1 to, say, S2 if your data starts from S2
            'rewrite formula with values
            .Value = .Value
        End With
    End With
End Sub