VBA excel将价格从一列复制到另一列，但在此之前与另一列进行核对

Question

嗨，我需要帮助，我可能爬了整个互联网，但我找不到答案，请告知。

我有一张excel表，看起来像下图，我需要一个VBA脚本，可以从D2中获取价格并将其复制到F2中——这显然很简单，但我不知道的是，在复制之前，我需要根据E2中的购买价格检查D2中的价格，如果D2中复制的价格不会比E2中的价格高出至少10%，我需要将其提高到比E2中的购买价格高出至少10%，当然，如果D2中的价格将比E2中高出10%以上，那么没有必要做任何事情，只需将价格从D2复制到F2(我想更改百分比(。

当然，逐行重复此过程，直到纸张结束

请帮忙。

我的真实示例表单excel

Answer 1

Sub Prices()
Dim percentage As Double
percentage = 1.1

Dim i As Long
Dim lastrow As Long
lastrow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To lastrow
If Range("D" & i) <= Range("E" & i) * percentage Then
Range("F" & i) = Range("E" & i) * percentage
Else
Range("F" & i) = Range("D" & i)
End If
Next i
End Sub