Galima padaryti transpoze susirūšiuoti duomenis ir dar kartą transpoze

"Raimis" <no@mail.com> wrote in message news:h8att6$4na$1@trimpas.omnitel.net...
> :))) nebijok, neskaudes, o standartinem excelio priemonem tai nemanau, kad pavyktu padaryti.
> 
> gali ikelti koki mygtuka i forma ir priskirti jam si makro arba kas karta paprastai Tools-Macro-Macros ... Run
> 
> 
> "siGis" <s@s.s> wrote in message news:h8at26$359$1@trimpas.omnitel.net...
>> :)
>> Biski baisoka.
>> Nu mazdaug aisku. Meniu tokio punkto matyt ieskoti neverta.
>> 
>> "Raimis" <no@mail.com> wrote in message news:h8angv$q81$1@trimpas.omnitel.net...
>>> na pvz, kad ir taip (pasikoreguok stulpeliu ir eiluciu skaiciu pagal poreiki - pavyzdyje tikrinama 6000 eiluciu ir 200 stulpeliu):
>>> 
>>> Sub SleptiStulpelius()
>>> Dim st As Integer
>>> Dim eil As Integer
>>> Dim yra As Boolean
>>> 
>>> Application.ScreenUpdating = False
>>> 
>>> For st = 1 To 200     ' kiek stulpeliu tikrinti
>>>    yra = False
>>>    For eil = 1 To 6000    ' kiek eiluciu tikrinti
>>>        If Cells(eil, st).Value <> "" Then
>>>            yra = True
>>>            Exit For
>>>        End If
>>>        
>>>    Next eil
>>>    If yra = False Then
>>>        Columns(st).Select
>>>        Selection.EntireColumn.Hidden = True
>>>    End If
>>> Next st
>>>    
>>> Application.ScreenUpdating = True
>>>    
>>> End Sub
>>> 
>>> 
>>> 
>>> 
>>> "siGis" <s@s.s> wrote in message news:h8ag8f$eou$1@trimpas.omnitel.net...
>>>> 
>>>> 
>>>> "Raimis" <no@mail.com> wrote in message news:h8af70$d92$1@trimpas.omnitel.net...
>>>>> galima, su VBA
>>>> 
>>>> O kaip? :)