[英]changing value of cell based on value of another cell
我有2000行以上的工作表,单元格S中有一些值,基于单元格S我需要更改单元格V中的值
例如,如果单元格S的值<3552小于单元格V = 241,则V = 240
代码需要检查每一行
TNX
需要在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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.