For b = 1 To 2
        
            Select Case b
                 Case 1
                      rnge = "A1:A30"
                 Case 2
                      rnge = "B1:B30"
            End Select
            
            q(b) = Range(rnge).Value
    Next b

Cells(35 + j, 2).Value = Format(j, "'00.") & Format(Z, "00") & ".24"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Calculate
End Sub

dim baseArray(), LR&

LR = Sheets("DB").Cells(Rows.Count, 2).End(xlUp).Row

redim baseArray(1 to LR)

For i = 1 To ubound(baseArray)
    baseArray(i) = Sheets("DB").Range(Cells(i, 2), Cells(i, 4))
Next i

for i = 1 to LR
 a(i) = Sheets("DB").Range("A" & i).Value
next i

Sub dollar()

Dim textHTTP As Object
Dim URL, Txt, Kurs As String
Dim posUSD, k As String

URL = "https://www.cbr.ru"
Set textHTTP = CreateObject("MSXML2.XMLHTTP")

textHTTP.Open "GET", URL, False
textHTTP.Send
'Ждем загрузку сайта статус 200
If textHTTP.Status = 200 Then
'Получаем текст сайта в переменной txt
    Txt = textHTTP.responseText
'Находим позицию строки USD
    posUSD = InStr(1, Txt, "USD")
    k = InStr(posUSD, Txt, "right mono-num")
    Kurs = Mid(Txt, k + 16, 8)
    MsgBox "Куср доллара ЦБ: " & Kurs
Else
    MsgBox "Нет отклика с сайта"
End If
Set textHTTP = Nothing

End Sub

For Each a in Range ("A1:C1")
If a = 0 then ....
Next

For Each a in Range ("A1:C1")
For Each b in Range ("A2:C1")

Next:Next

Private Sub CommandButton1_Click()
Dim a, b, c

For Each a In Range("A1:A3")
    For Each b In Range("B1:B3")
        For Each c In Range("C1:C3")
            If a <> 0 And b <> 0 And c <> 0 Then
                Debug.Print a & " " & b & " " & c
            End If
        Next
    Next
Next

End Sub

TextBox68.Value = Format(Range("B132").Value, "hh:mm:ss")

Option Explicit

Private Sub CommandButton1_Click()
ToggleButton1.Value = True
End Sub

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
        With ToggleButton1
            .BackColor = vbYellow
            .Caption = "Выйти"
        End With
    Else
        With ToggleButton1
            .Caption = "Войти"
            .BackColor = -2147483633
        End With
End If

MsgBox "ToggleButton.Value должно быть True, но макрос не должнен работать и это сообщение не должно появляться!"
End Sub 

Option Explicit

Sub Numbers()
Dim i&, barr1()

ReDim barr1(1 To 50)
For i = 1 To UBound(barr1)
barr1(i) = Int(9 * Rnd + 0)
Next i

MsgBox Join(barr1, "")

Range("A1").Value = Join(barr1, "")
End Sub

Dim shn&, i&, a()

shn = ActiveWorkbook.Sheets.Count

ReDim a(1 To shn)

For i = 1 To shn
    a(i) = "Задача №" & i
Next 
i

Dim shn&, i&

shn = ActiveWorkbook.Sheets.Count

For i = 1 To shn
    With ActiveWorkbook
        If Sheets(i).Name <> "Задача №" & i Then
            Sheets(i).Name = "Задача №" & i
        End If
    End With
Next i

Option Explicit

Private Sub CommandButton1_Click()
Dim a, j(), i&

a = Split([f1].Value)

ReDim j(0 To UBound(a))

For i = 0 To UBound(a)
    j(i) = a((UBound(a)) * Rnd)
    j(i) = j(i) & " " & j(i) & " " & j(i)
Next i

Range("A1") = Join(j, " ")
End Sub

 j(i) = j(i) & " " & j(i) & " " & j(i) 

Option Explicit

Private Sub CommandButton1_Click()
Dim i&, a(), j(), txt As String, txtlength&, m&, t&

txt = Range("A1").Value
txtlength = Len(Range("A1").Value)
Range("A2:A" & txtlength).ClearContents

m = 1

ReDim a(1 To txtlength)
ReDim j(1 To txtlength, 1 To 1)

t = Timer

For i = 1 To txtlength
    a(i) = Mid(txt, i, 1)
    
    If Mid(txt, i, 1) = " " Then
       j(m, 1) = Join(a, "")
       ReDim a(i To txtlength)
        
            If i <> txtlength Then
                m = m + 1
            End If
                        
     End If
    
Next i

Range("A2").Resize(m, 1).Value = j

MsgBox Timer - t

End Sub

Private Sub ShipRegion_KeyPress(KeyAscii As Integer) 
 Dim strCharacter As String 
 
 ' Convert ANSI value to character string. 
 strCharacter = Chr(KeyAscii) 
 ' Convert character to upper case, then to ANSI value. 
 KeyAscii = Asc(UCase(strCharacter)) 
End Sub

{=СУММ(ЕСЛИ(ЕПУСТО(A2:A100000);0;1/СЧЁТЕСЛИ(A2:A100000;A2:A100000)))}

For i = 1 To 10000
    If Cells(i, 1).Value <= Range("J5") Then
    Cells(i, 1).ClearContents
    End If
Next i

Private Sub CommandButton1_Click()
Dim a(1 To 20) As Integer, i&

Range("A:A").ClearContents

For i = 1 To 20
        a(i) = Int(Rnd() * 21)
        Cells(i, 1).Value = a(i)
Next i


End Sub