Превратить все значения в абсолютные значения в VBA - PullRequest
Новая
       66

Превратить все значения в абсолютные значения в VBA

1 голос
/ 15 октября 2019

Мне нужно преобразовать все значения, имеющие отрицательные значения, в абсолютные значения.

Я работаю с Космическим центром Кеннеди над созданием климатологии, основанной на данных полевой мельницы за 18 лет. Полевые мельницы измеряют электричество в атмосфере, значения могут варьироваться от -10k до 10K. Космический центр не заботится, если он опускается ниже -1k или выше 1k, им просто важно, когда он достигает этого порога. Мне нужно взять 15-минутные средние значения, но когда я делаю это со средним (abs (), я получаю значение, отличное от среднего). Мое решение - преобразовать все в абсолютное значение, так как космический центр не заботится о направлении, в котором находятся числаНиже код, который я использовал, чтобы добавить столбцы после каждой полевой мельницы, и кроме добавления столбца рядом со всеми 34 столбцами, а затем положить = abs (RC [-1]). Мне нужно было бы сделать это для каждого столбца (29) для каждого значения. По сути, этот процесс удвоит размер электронных таблиц. Вместо этого я хотел бы просто заменить отрицательные значения абсолютными, если это возможно. 

Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=ABS(RC[-1])"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C13")
    Range("C2:C530000").Select
...