let
    Source = Facebook.Graph("https://graph.facebook.com/v2.8/"&Text.From(Excel.CurrentWorkbook(){[Name="dan"]}[Content]{3}[ind1])&"?fields=posts{id,status_type,created_time,description,name,message,feed_targeting}"),
    posts = Source[posts],
    #"Split Column by Delimiter" = Table.SplitColumn(posts, "id", Splitter.SplitTextByDelimiter("_", QuoteStyle.Csv), {"id.1", "id.2"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"id.1", type number}, {"id.2", type text}}),
    #"Added Prefix" = Table.TransformColumns(#"Changed Type", {{"id.2", each "link" & _, type text}}),
    #"Removed Columns" = Table.RemoveColumns(#"Added Prefix",{"id.1"}),
    #"Replaced Value" = Table.ReplaceValue(#"Removed Columns","link","https://www.facebook.com/"&Text.From(Excel.CurrentWorkbook(){[Name="dan"]}[Content]{4}[ind1])&"/posts/",Replacer.ReplaceText,{"id.2"}),
    #"Removed Other Columns" = Table.SelectColumns(#"Replaced Value",{"id.2", "status_type", "created_time", "name", "message"})
in
    #"Removed Other Columns"

Sub button_click()
Dim MyData As New MSForms.DataObject
MyData.SetText ActiveCell.Text, 1
MyData.PutInClipboard
End Sub

=ЕСЛИОШИБКА(ПСТР(A2;НАЙТИ("RT @";A2)+1;НАЙТИ(":";A2&":";НАЙТИ("RT @";A2))-НАЙТИ("RT @";A2)-1); )

Sub Макрос2()
    Range("D4:D80").Select
    Selection.Copy
End Sub

Sub RNDcell()
Dim Ur As Range, a&, b&, aa, adrR$, adrC$, c&
Set Ur = [A3:A221]
adrR = Ur.EntireRow.Rows.AddressLocal(0, 0)
adrC = Ur.EntireColumn.Columns.AddressLocal(0, 0)
aa = Split(adrR, ":"): c = CLng(aa(0))
a = c + (Rnd * (Ur.Rows.Count - c))
c = Asc(adrC) - 64
b = c + (Rnd * (Ur.Columns.Count - c))
Cells(a, b).Activate
[r1] = ActiveCell.Address
End Sub