Excel Macro или VBA для определения абсолютных значений диапазона

Question

Может ли кто-нибудь помочь мне в создании всех значений моих выбранных значений диапазона Абсолют (или применение абсолютной формулы для каждой ячейки в диапазоне) с помощью одной кнопки с использованием Excel VBA?

A    B    C 
5.119999886 -13.06999969 -13.14000034 
-5.76999998 -12.52000046 -12.78999996 
-5.88000011 -13.69999981 -14.13000011 
5.46999979 -12.61999989 -12.48999977 

Answer 1

Вы можете сделать что-то вроде этого:

Sub MakeAbsolute() 

     Dim c As Range 
     Dim rngToAbs As Range 

     'Set the worksheet name and range appropriately 
     Set rngToAbs = Worksheets("Sheet1").Range("A1:C2") 

     For Each c In rngToAbs 
       c.Value = Abs(c.Value) 
     Next c 

End Sub 

Вы должны изменить Sheet1 на ваше имя рабочего листа и A1:C2 на любой диапазон ячеек вы хотите взять абсолютное значение.

Надеюсь, код достаточно прост, чтобы понять, но основная идея заключается в том, что мы объявим конкретный диапазон, пропустим каждую ячейку в этом диапазоне и изменим значение этой ячейки как абсолютное значение, применив Abs функция.

Answer 2

Рассмотрим:

Sub dural() 
    Dim rng As Range 
    Set rng = Range("A1:F10") 
    rng.Replace what:="-", lookat:=xlPart, replacement:="" 
End Sub 

Answer 3

не совсем VBA, но при необходимости могут быть записаны.

Выберите диапазон данных, нажмите Ctrl H (Заменить), найдите Найти, добавьте знак «-» и замените все. Это удалит отрицательный знак из всех чисел, и он станет абсолютным.

Примечание: Как упоминалось в комментарии, OP соглашается с тем, что это работает для него, поэтому отправляя его в качестве ответа.