.SpecialCells(xlCellTypeConstants).ClearContents

=HYPERLINK(CONCATENATE("https://yandex.ru/images/search?text=";A2))

Sub Dividing_names()
 
    i = 1 'счетчик
    Do
        i = i + 1 
        If Range("B" & i) = "" Then Exit Do ' если в столбце B пусто, то выходим из цикла
        myFIO = Split(Range("B" & i), " ") '  с помощью оператора Split разделяем ФИО по пробелам и получаем массив myFIO
        Range("C" & i).Resize(, UBound(myFIO) + 1) = myFIO ' Переносим массив myFIO в ячейки
    Loop
 
End Sub

Option Explicit
    
'----------------------------------------------------------------------------
'This module contains 3 functions for determing the public IP, the local IP
'and the MAC address of the computer that runs those functions.

'Written By:    Christos Samaras
'Date:          22/11/2014
'E-mail:        xristos.samaras@gmail.com
'Site:          http://www.myengineeringworld.net
'----------------------------------------------------------------------------
        
Function GetMyPublicIP() As String

    Dim HttpRequest As Object
    
    On Error Resume Next
    'Create the XMLHttpRequest object.
    Set HttpRequest = CreateObject("MSXML2.XMLHTTP")

    'Check if the object was created.
    If Err.Number <> 0 Then
        'Return error message.
        GetMyPublicIP = "Could not create the XMLHttpRequest object!"
        'Release the object and exit.
        Set HttpRequest = Nothing
        Exit Function
    End If
    On Error GoTo 0
    
    'Create the request - no special parameters required.
    HttpRequest.Open "GET", "http://myip.dnsomatic.com", False
    
    'Send the request to the site.
    HttpRequest.Send
        
    'Return the result of the request (the IP string).
    GetMyPublicIP = HttpRequest.ResponseText

End Function

Sub m()
    Application.ScreenUpdating = False
    myTXT = ReadTXTfile(ThisWorkbook.Path & "\EXP_2.txt")
    myBase = Split(myTXT, vbCrLf)
    
    For i = LBound(myBase) To UBound(myBase)
        DoEvents
        If myBase(i) <> "" Then
            myB = Split(StrConv(myBase(i), 64), Chr(0))
            Sheets(1).Range("A" & i + 1).Resize(, UBound(myB) + 1) = myB
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Готово"
End Sub

Function ReadTXTfile(ByVal filename As String) As String
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Function

Aapplication.Calculation=xlCalculationManual
myTime = Now + TimeValue("00:00:30")
Application.OnTime myTime, "myTimerCount"
 
Sub myTimerCount()
     Application.Calculation=xlCalculationAutomatic
End Sub

Array("SELECT Данные.Time, Данные.`4A1` " & "FROM Данные where Данные.Time BETWEEN cdate('" & x & " " & z & "') And cdate('" & y & " " & b & "');" )

Private Sub CommandButton1_Click()

y = 0
On Error Resume Next
For Each Flag In Controls
    
    If Flag.Value = True Then
     ReDim Preserve nst(y)
     nst(y) = Flag.Caption
     Debug.Print nst(y)
     y = y + 1
     
    End If
Next
On Error GoTo 0
End Sub

Array("SELECT Данные.Time, Данные.`4A1` " & "FROM Данные where Данные.Time BETWEEN cdate('" & x " " & z & "') And cdate('" & y & " " b & "')" 

CommandText = Array("SELECT Данные.Time, Данные.`4A1` " & "FROM Данные where Данные.Time BETWEEN cdate('" & x & "') And cdate('" & y & "')") 

x = Format(UserForm1.DTPicker1.Value, "mm.dd.yyyy hh:mm:ss") 'ранняя дата
y = Format(UserForm1.DTPicker2.Value, "mm.dd.yyyy hh:mm:ss") 'поздняя дата

=SUMIFS(лист1!D:D;лист1!A:A;A2;лист1!B:B;B2;лист1!C:C;лист2!C2) 

Private Sub Сортировка(byref List)