Sub Kuzmich()
Function iBegin(Cell As Range) As String
   If InStr(1, Cell, "-") <> 0 Then
    iBegin = Split(Cell, "-")(0)
   End If
End Function
End Sub
 

   2015   2015   2014   2014   2013   2011   2011   2011   2010   2010   2010   2010   2009   2009   2009   2008   2008   2008   2008   2008   2007   2007   2007   2007  

   1950-1960:  23    1960-1970: 2   1980-1990: 89  

aNGo   AP PD                        2
aNGra   CCS                        1
aNGri   AP   BEN   BUR   CAE   GST   MD   MW   PD   PW   PWG   SCH   SHS   STC   VCP   WIL   YAT         16

Sub tt2()
    Dim cc As Range, a
    For Each cc In Selection
        a = Split(cc.Value, "-")
        a(0) = Application.Roman(a(0))
        a(1) = --a(1)
        cc = Join(a, "-")
    Next
End Sub

<[0-9]{1;}

<[0-9]{4}>

<[IVX]{1;}>-

вместо 0007 = 7, вместо 0205 = 205

1-0007
1-1030
2-1054
6-0205
7-1679

I-7
I-1030
II-1054
VI-205
VII-1679

Sub List()
LastRow = ThisWorkbook.Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Row
LastCol = ThisWorkbook.Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Column

For i = 1 To LastRow
    Cells(i, LastCol + 1).End(xlToLeft).Select
        If ActiveCell.Column <> 1 Then
                Cells(i, LastCol + 1).Value = ActiveCell.Value
        End If
Next i
End Sub

=СЧЁТЕСЛИ(Source!H:H;02!A1)

Jakobson 1985
Yngve 1996, 22
Lehmann, Malkiel 1982

Jakobson R. (1985) Selected Writings. – Berlin: Walter de Gruyter, 1985.
Yngve V. H. (1996) From Grammar to Science: New Foundations for General Linguistics. – Am-sterdam: John Benjamins, 1996.
Lehmann W. Ph., Malkiel Y. (1982) Perspectives on Historical Linguistics: Amsterdam Studies in the Theory and History of Linguistic Science. – J. Benjamins, 1982.

=ПОДСТАВИТЬ(ПРАВСИМВ(ПСТР(" "&ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A1);" ";ПОВТОР(" ";999));1;999*1);999);" ";"")
 

=ЛЕВСИМВ(A2;ПОИСК("-";A2;1)-1)
 

pAri--jAta------haraRa-campU
vy--a/Sva---sAraTy-AyuDa
druta--tara----gati

pAri
vy
druta

campU
AyuDa
gati