Kineveztem az 5. sort "adathordozó"-nak. Az ebben lévõ üres cellák alapján rejti az oszlopokat a Rejt makró, a Felfed pedig az összes oszlopot felfedi.
Sub Rejt()
Dim oszlop%, sor%, uoszlop%
sor% = 5 'Ezt írd át annyira, ahányadik sor alapján akarsz rejteni
Informatika és tudomány
