potřeboval bych pomoci s mým makrem.
Co řeším - V cca 100 dokumentech, kde jsou cca 3 listy musím sloučit buňky stylem A1:B1; C1:D1, atd ... Musím je sloučit pouze v dané oblasti.
Co mám - makro, které toto dělá. Proměnná poc_rad a poc_slo je řádek a sloupec první buňky a kon_rad a kon_slo zase poslední buňka.
Co potřebuji - vymyslet lehký způsob na přepisování první a poslední buňky. Představuji si, že bych otevřel dokument, klikl na požadovaný list a například označil všechny buňky, které chci sloučit podle pravidla (viz "co řeším"), na něco klikl a bylo by.
Snad chápete a děkuji za případnou pomoc
Kód: Vybrat vše
Sub SlucBunky()
'Program na slouceni bunek
'Pocatek
poc_rad = 3
poc_slo = 4
'Konec
kon_rad = 28
kon_slo = 31
a = 0
For i = poc_rad To kon_rad
For j = poc_slo To kon_slo Step 2
If j < kon_slo Then
a = j + 1
Else
a = j
End If
Range(Cells(i, j), Cells(i, a)).Merge
Next
Next
End Sub