public static void main(String[] args) {
        String txt = "test2";
        if (txt.equals("test")) {
            System.out.println("if");
        }else if(txt.equals("test1")){
            System.out.println("else if 1");
        }else if(txt.equals("test2")){
            System.out.println("else if 2");
        }
    }

LastRow = Range("A1000000").End(xlUp).Row

LastRow = Range("а" & Rows.count).End(xlUp).Row
 

Workbooks("книга куда выводим список")

ThisWorkbook

Sub CollectDataFromAllSheets()
    Dim mainsh As Worksheet
    Dim tvinkbook As Workbook
    Dim sht As Worksheet
    Dim arr(), mrow&, trow&, i&, ipath$
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set mainsh = ThisWorkbook.ActiveSheet
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show Then ipath = .SelectedItems(1) Else Exit Sub
    End With
    With GetObject(ipath)
        For Each sht In .Worksheets
            mrow = mainsh.Range("a" & mainsh.Rows.Count).End(xlUp).Row + 1
            trow = sht.Range("a" & sht.Rows.Count).End(xlUp).Row
            arr = sht.Range("a2:i" & trow).Value
            mainsh.Range("a" & mrow).Resize(UBound(arr), UBound(arr, 2)).Value = arr
            Erase arr
        Next sht
        .Close False
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Combobox.list = Array(1,2,3,4,5)

Sub main()
    Dim dic As Object
    Dim i&, txt$, lrow&
    
    Set dic = CreateObject("scripting.dictionary")
    lrow = Range("f" & Rows.Count).End(xlUp).Row
    For i = 3 To lrow
        txt = Range("f" & i).Value & Range("g" & i).Value
        If Not dic.exists(txt) Then
            dic.Item(txt) = txt
        Else: Range("f" & i).ClearContents
        End If
    Next i
End Sub

' пример на массиве
Sub perenos1()
    Dim i&, last&, sht As Worksheet, sh As Worksheet
    Dim last1&, arr(), j&, k&, t As Date
    Const word1$ = "*Перенос*"
    t = Timer
    Set sht = Worksheets("Данные")
    Set sh = Worksheets("Перенос")
    last = sht.Cells(sht.Rows.Count, 3).End(xlUp).Row
    sht.[c1].Resize(, 6).Copy sh.[a1]
    last1 = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row + 1
    arr = sht.Range("c2", sht.Cells(last, "h")).Value
    For i = 1 To UBound(arr)
        If arr(i, 1) Like word1 Then
            k = k + 1
            For j = 1 To UBound(arr, 2)
                arr(k, j) = arr(i, j)
            Next j
        End If
    Next
    If k > 0 Then sh.Range("a" & last1).Resize(k, UBound(arr, 2)).Value = arr
    Debug.Print Format(Timer - t, "0.00")
End Sub



' пример с использованием фильтра
Sub MoveData()
    Dim sh As Worksheet, t As Date
    Const word1$ = "*Перенос*"
    t = Timer
    Set sh = Worksheets("Перенос")
    With Worksheets("Данные")
        On Error Resume Next
        .ShowAllData
        On Error GoTo 0
        .Range("c1:H" & .Cells(.Rows.Count, 3).End(xlUp).Row).AutoFilter Field:=1, Criteria1:= _
            "=" & word1, Operator:=xlAnd
        .AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1).Copy
        sh.Cells(sh.Cells(sh.Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial
        Application.CutCopyMode = False
        .ShowAllData
    End With
    Debug.Print Format(Timer - t, "0.00")
End Sub