=ИНДЕКС(Таблица1[Код1];ПОИСКПОЗ(G2&"-"&"*";Таблица1[Название];0))

Set curProperty = Worksheets("Лист").PivotTables("Таблица").PivotFields("Поле")

curProp = curProperty.ShowDetail

Set curProp = Worksheets("Лист").PivotTables("Таблица").PivotFields("Поле").ShowDetail

if Worksheets("Лист").PivotTables("Таблица").PivotFields("Поле").ShowDetail Then curProp = true: Else curProp = false

=ПРАВСИМВ(ЛЕВСИМВ(текст;2))

=ЛЕВСИМВ(ПРАВСИМВ(текст;2))

Sub Sravnenie()
 
    Dim lLastRowA As Long
    Dim lLastRowC As Long
    Dim i As Long
    Dim rFind As Excel.Range
    lLastRowA = Cells(Rows.Count, "A").End(xlUp).Row
    lLastRowC = Cells(Rows.Count, "C").End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 2 To lLastRowA Step 1
    Set rFind = Columns("A").Find(What:=Cells(i, "B").Text, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
    If rFind Is Nothing Then
    Cells(lLastRowC, "C").Value = Cells(i, "B").Value
    lLastRowC = lLastRowC + 1
    End If
    Next i
    Application.ScreenUpdating = True
    
End Sub

Function accent(ByVal intext As Variant) As Variant
Dim xx As Long, parts() As Variant, indexes() As Variant, count As Long, _
regex As Object, RegMatchCollection As Object, RegMatch As Object
Set regex = CreateObject("VBScript.RegExp")
With regex
.Global = True
.IgnoreCase = False
.Pattern = "[A-ZА-ЯЁ]+"
End With
Set RegMatchCollection = regex.Execute(intext.Value)
For Each RegMatch In RegMatchCollection
ReDim Preserve parts(count)
ReDim Preserve indexes(count)
parts(count) = RegMatch
indexes(count) = RegMatch.Firstindex + 1
count = count + 1
Next
For xx = 0 To UBound(parts)
intext = Left(intext, indexes(xx) - 1) & Replace(intext, parts(xx), "!" & parts(xx), indexes(xx), 1)
Next xx
accent = intext
End Function

03.12.17 14:42:44 2000052 20171203_144244_2.csv 2 32,535 26,594 1,055 60,184
03.12.17 14:42:35 1500035 20171203_144235_2.csv 2 25,652 24,938 1,055 51,645
03.12.17 14:42:26 1000022 20171203_144226_4.csv 4 18,871 23,051 1,055 42,977
03.12.17 14:42:17 500011 20171203_144217_4.csv 4 12,102 21,074 1,055 34,230
03.12.17 14:41:57 500007 20171203_144157_500007.csv 500 007 4,480 10,453 1,055 15,988

Option Explicit
Sub FileGenerator()
    
    Dim t As Single
    Dim i As Long
    Dim Filename As String
      
    Debug.Print "== Start " & Now
    
    t = Timer
    
    Filename = "C:\Files\in.csv"
    
    Open Filename For Output As #1
    Close #1
    
    Open Filename For Binary Access Write As #2
    Put #2, , """" & "fname" & """" & vbCrLf
    
    For i = 1 To 2748311
    Put #2, , """" & _
    "qplskfmygaelkjgpaatgcwtwlagwkepgaiesgwkseptwaypdl" & _
    "glgsgzwkglkippwlgchkipdlywpvglgsgw43z74zg?qplskfu" & _
    "kepgaiesgkgshelkippgatmgnepmgnetnitsypzwzhimypdly" & i & _
    """" & vbCrLf
    Put #2, , """" & _
    "qplskfmygaelkjgpaatgcwtwlagwkepgaiesgwkseptwaypdl" & _
    "kepgaiesgkgshelkippgatmgnepmgnetnitsypzwzhimypdly" & i & _
    "glgsgzwkglkippwlgchkipdlywpvglgsgw43z74zg?qplskfm" & _
    """" & vbCrLf
    Put #2, , """" & _
    "glgsgzwkglkippwlgchkipdlywpvgldsgw43zs4zg?qplskfm" & i & _
    "qplskfmygaelkjgpaatgcwtwlagwkepgaiesgdkseptsaypdl" & _
    "kepgaiesgkgshelkippgatmgnepmgnetnitsypzszhimypdly" & _
    """" & vbCrLf
    Put #2, , """" & _
    "glgsgzwkglkippwlgchkipdlywpgglgsgw43g74zg?qplskfm" & i & _
    "qplskfmygaelkjgpaatgcwtwlbggkepgaiesgwkseptwaypdl" & _
    "kepgaiesgkgshelkippgatmgnepmgnetnitsgpzwzhiyypdly" & _
    """" & vbCrLf
    Put #2, , """" & _
    "glgsgzwkglkipptlgchkipdlywpvglgegw43z74zg?qplskfm" & _
    "qplskfmygaelkjgpaatgcwtwlafwkepgaiesdwkseptwaypdl" & _
    "kepgaiesgkgshelkippaatmgnepmgnetnftsypzwzhimypdly" & _
    """" & vbCrLf
    Next i
    Close #2
    
    Debug.Print "Generated: " & (i - 1) * 5 & " strings", Round(Timer - t, 3)
    
    End Sub