需要的輸出原表我需要回圈瀏覽A列，如果單元格包含數字500或600或700，我需要將F列乘以-1，使其成為負數，即-500、-600或-700。F列是A列的重復。
例如，A3列是500，F3是500，我想把F3變成-500
。'回圈并將500、600、700乘以-1。
Dim lr As Long, i As Long
lr = Cells(Rows.Count, "a").End（xlUp）.Row
For i = 2 To lr
If UCase(Cells(i, "a")) = "500" Then Cells(i, "f"/span>)*(-1)
如果 UCase(Cells(i, "a")) = "600" Then Cells(i, "f"/span>)*(-1)
如果 UCase(Cells(i, "a")) = "700" Then Cells(i, "f"/span>)*(-1)
接下來 i
uj5u.com熱心網友回復：
請嘗試下一段代碼。它將克隆A:A的范圍，但500、600、700的值被乘以-1:
Private Sub MultiplyMinus1SomeValues()
Dim astRow As Long
lastRow = Range("A" & rows.count).End（xlUp）.row
With Range("F2:F" & lastRow)
.公式 = "=IF(OR(A2=500,A2=600,A2=700),A2*-1,A2)"。
.Value = .Value
結束 與
結束 Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/309981.html
標籤：