mám napsané makro, viz níže na sloučení buněk stylem stylem A1:B1; C1:D1, atd.
Potřeboval bych pomoci upravit makro, aby fungovalo stylem označím si myší oblast, spustím makro a makro sloučí buňky podle mého pravidla. Mělo by se jednat o rychlou úpravu mého kódu, kdo tomu aspoň trochu rozumí. Já jsem úplný začátečník.
Doplňující otázka: Pokud získám upravené makro, jak ho snadno spustit při otevření nového dokumentu. Abych takto mohl projet více excelů stylem: Otevřu soubor, označím oblast na sloučení, spustím makro, uložím a otevřu další dokument.
Děkuji za případnou pomoc. Pokud bych to dělal mým neupraveným makrem, trvalo by mě to 3x déle
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