値を - から+に変更し、新しいワークシートにもコピーします

Question

ここのメンバーがこのコードを作成するのを手伝ってくれました。

私はそれは次のようになり、全行取る代わりに、一枚のシートに正のすべての負の値を変換するの、希望：

とすべてで新しいワークシートに、その行を移動します数字は正に変換されます。

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