excel VBA 如何在数组中每个数值都乘以20？

请问 我想数组（arr1）里面 每个值都乘以20.然后再减去100...该怎样输入?
还有想问个问题..在不用循环下..如何直接判断在数组里面查找小于0的有多少个? COUNTIF(arr1,"<=0")...这公式如何代入VBA？ 小菜鸟初学VBA。求高手指教。谢谢

两个例子，为了说的清楚，分别说明下，方法肯定不只这两种，请参考


Sub aaa()
'数组（arr1）里面 每个值都乘以20.然后再减去100
Dim arr, x
arr = Range("a1:a10")
For x = 1 To UBound(arr)
Dim arr1(1 To 10, 1 To 1)
        k = k + 1
        arr1(k, 1) = arr(x, 1) * 20 - 100
Next x
Stop
End Sub




Sub afd() '查数组的值大于4的个数
Dim arr, x, k
arr = Split("1\2\3\4\5", "\")
For x = 1 To UBound(arr)
Cells(x, 2) = arr(x)
Next x
MsgBox Application.CountIf(Range("b:b"), ">4")
End Sub