Доброго времени, Уважаемые форумчане. Прошу помощи в корректировке макроса, он вычитает из одной таблицы другую, но если в одной из таблицы не число, то ошибка., а надо чтобы он в эту же ячейку возвращал либо данные, если мы вычитаем из текста число то вычитаемое, если из числа текст, то уменьшаемое. Заранее благодарен
Код |
---|
Sub iSubtract()
Dim Arr1
Dim Arr2
Dim i As Integer
Dim j As Integer
Arr1 = Range("A2:B10").Value
With Worksheets("Лист2")
Arr2 = .Range("A2:B10").Value
For i = 1 To UBound(Arr1)
For j = 1 To UBound(Arr1, 2)
Arr1(i, j) = Arr1(i, j) - Arr2(i, j)
Next
Next
[A2].Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1
End With
End Sub |