Makro - ukrywanie scalonych wierszy

Szukam makra, które:
gdy wartość w kolumnie M="tak" ukryje komórki z kolumn A:R w danym wierszu i przesunie dane do góry o wszystkie scalowane wiersze, czyli jeśli np. wiersz 1 i 2 , w kolumnie M jest scalowny i jeśli w tej komórce widnieje opis "Tak" to oba wiersze (1 i 2) przesuną się do góry

0 3

"szukasz makra" tzn sugerujesz, że ono gdzieś istnieje?

Pachnie jak zadanie szkolne. Nie na Elektrodzie wykonujemy zadań szkolnych.
Zacząłeś już robić? Na konkretny problem można liczyć na pomoc.

0

Gwoli wyjaśnienia, szukam pomocy w zapisie kodu..
Przy użyciu poniższego zapisu, usuwa się tylko jeden wiersz. Nie wiem w jaki sposób zapisać aby jednak usuwało wszystkie scalowane wiersze. Dodam, że nie ma stałej ilości scalowanych wierszy.

Jeśli na Elektrodzie są osoby, które mogą wskazać w jaki sposób można to zrobić (jeśli w ogóle), to będę wdzięczna.
I nie, to nie jest szkolne zadanie, aczkolwiek, dopiero zaczynam się tego uczyć dla własnych potrzeb.

0

Dwa sposoby, żeby sprawdzić ile jest komórek w MergeArea:
1. przypisać do tablicy i sprawdzić rozmiar.
2. Uwaga! Zaznaczyć (Select). Wtedy można sprawdzić ile komórek jest w Selection.

W Twoim wypadku, na skróty, byłoby:
bs.Rows(i).Select
Selection.Delete

0