將值從 - 更改爲+並將它們複製到新工作表中

Question

此處的成員幫助我構建此代碼。

我想，而不是在一個表中的所有負值轉變爲積極它取整排它應該是這樣的：

和移動該行在與所有新的工作表數字轉換爲正數。

Sub ntp() 
    Dim ws As Worksheet 
    Dim cel As Range 
    With ActiveWorkbook.Worksheets("originalNeg") 
     For Each cel In .Range("I2:I" & .Range("I" & Rows.Count).End(xlUp).row) 
      If cel.value < 0 Then cel.value = Abs(cel.value) 
     Next cel 
    End With 
End Sub 

Answer 1

最快的方法是將數據加載到數組中，處理它，然後將其寫入新的工作表。

Sub ntp2() 
    Dim values As Variant 
    Dim x As Long 
    With ActiveWorkbook.Worksheets("originalNeg") 
     values = .Range("A1" , .Range("I" & .Rows.Count).End(xlUp)).value 
    End With 

    For x = 2 To UBound(values) 
     If values(x, 9) < 0 Then values(x, 9) = Abs(values(x, 9)) 
    Next 

    With ActiveWorkbook.Worksheets("NewSheet") 
     .Range("A1").Resize(UBound(values), UBound(values, 2)).value = values 
    End With 
End Sub