valsorna

Sub KopiujOznaczeniaDoSchowka()
'
' Kopiuje oznaczenia z kolumn w tabeli przewodow
' Zaznaczamy tylko 3 kolumny Ozn1, Konc2, Ozn2
' zadna z komorek nie moze byc scalona
'
    Dim rowsCount, cellsCount, i As Integer
    Dim ozn1Txt, ozn2Txt, oznGotowe As String
    Dim col1, col2 As Object