Sub zapros_mtr()
Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String, msg As String
myurl = "https://site.com";
msg = "ARNum=22304901394"
xmlhttp.Open "POST", myurl, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send msg
otvet = xmlhttp.responseText
Cells(2, 1) = otvet
End Sub

Sub Фильтр_буфер()
On Error Resume Next
Dim i As Integer
Dim Test As String
Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject

clipboard.GetFromClipboard
Test = clipboard.GetText

Test = Replace(Test, Chr(13), "@%$")
Test = Trim(WorksheetFunction.Clean(Test))

Dim ab() As String

ab = Split(Test, "@%$")

ReDim Preserve ab(UBound(ab) - 1)

ActiveSheet.UsedRange.AutoFilter Field:=Selection.Column, Criteria1:=ab, Operator:= _
    xlFilterValues


End Sub
 

Sub ppp()

On Error Resume Next

Set nazv = CreateObject("scripting.dictionary")
nazv.CompareMode = vbTextCompare

n = 20
With ActiveSheet
    Do While .Cells(n, 1) <> ""
        komment = .Cells(n, 170)
        If InStr(1, komment, "поставлен", vbTextCompare) = 0 And InStr(1, komment, "отгружен", vbTextCompare) = 0 Then
            nazv.Add komment, 0
        End If
    n = n + 1
    Loop
End With
Uniq_1D_Array = nazv.Keys
ActiveSheet.UsedRange.AutoFilter Field:=170, Criteria1:=Uniq_1D_Array, Operator:=xlFilterValues

End Sub

Table.FromRecords(
    Json.Document(
        Web.Contents(
            "https://etp.gpb.ru/nsi/kimapi/publicpriceorderlist?limit=50&page=1",
            [
                Headers = [
                    Accept="application/json",
                    #"X-Requested-With"="XMLHttpRequest",
                    #"Content-Type"="application/json"
                ],
                Content = Json.FromValue([
                    opt = []
                ])
            ]
        )
    )[entries]
)

let
    Запрос2 = Table.FromRecords(
    Json.Document(
        Web.Contents(
            "https://etp.gpb.ru/nsi/kimapi/publicpriceorderinfo?id=230295",
            [
                Headers = [
                    Accept="application/json",
                    #"X-Requested-With"="XMLHttpRequest",
                    #"Content-Type"="application/json"
                ],
                Content = Json.FromValue([
                    opt = []
                ])
            ]
        )
    )[positions]
)
in
    Запрос2

Sub svod()
Dim a(), i&, dict As Object, itemkey()
Sheets(3).Activate
a = [a8:ah60000].Value

Set dict = CreateObject("scripting.dictionary")
With dict
    For i = 1 To UBound(a)
        If Not .exists(a(i, 34)) Then
                .Item(a(i, 34)) = Array(a(i, 6), a(i, 7), a(i, 8), a(i, 9), a(i, 5), a(i, 11), a(i, 10), a(i, 34))
        End If
    Next
    itemkey = .Items
End With
Sheets(5).[a1:h1].Resize(UBound(itemkey), 7) = itemkey
End Sub