Как взять значения из одного столбца и перейти к другому столбцу, получая при этом абсолютное значение каждой записи?

Question

У меня есть один столбец H для наград.Формат значения - Число.Я хочу взять все значения в H (кроме заголовка) и поместить их в другой столбец I.Тем не менее, я хочу, чтобы вывод был абсолютным значением.Если возможно, я хочу добавить в свой текущий код для объединения двух столбцов

Sub concatenate()

    Dim lngLastRow As Long

    'Uses Column A to set the 'lngLastRow' variable _
    (find the last row) - change if required.
    lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row

    Range("C2:C" & lngLastRow).Value = Evaluate("=A2:A" & lngLastRow & "&""_""&" & "B2:B" & lngLastRow)

Answer 1

Попробуй это.Бит Row() преобразует результат в массив, который в противном случае Evaluate не сработает.

Range("C2:C" & lngLastRow).Value = Evaluate("=if(row(2:" & lngLastRow & "),abs(A2:A" & lngLastRow & ")&""_""&" & "abs(B2:B" & lngLastRow & "))")

Или, может быть, просто

lngLastRow = Cells(Rows.Count, "H").End(xlUp).Row
Range("I2:I" & lngLastRow).Value = Evaluate("=if(row(2:" & lngLastRow & "),abs(H2:H" & lngLastRow & "))")