将值从 - 更改为+并将它们复制到新工作表中

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