[已解决]请教提取符合条件的数据，且数据部分变成负数

乱世太子

学习了index函数，GOOD，留个标记。
Sub 查询()
    Dim arr, arr1(1 To 10000, 1 To 5), x As Integer, k As Integer
    arr = Range("a1").CurrentRegion
    For x = 1 To UBound(arr)
        If arr(x, 1) Like "*多品*" Then
        k = k + 1
        arr1(k, 1) = arr(x, 1)
        arr1(k, 2) = arr(x, 2) * -1
        arr1(k, 3) = arr(x, 3) * -1
        arr1(k, 4) = arr(x, 4) * -1
        arr1(k, 5) = arr(x, 5) * -1
        End If
    Next
    Range("h1").Resize(1, 5) = Application.WorksheetFunction.Index(arr, 1, 0)
    Range("h2").Resize(k, 5) = arr1
End Sub