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

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

最快的方法是将数据加载到数组中，处理它然后将其写入新工作表。

Bar