Hurtowe Scalanie Komorek

[mr.adrian...@gmail.com]

Witam,
szukam sposobu na hurtowe scalenie 2 komorek "w pionie".
Wierszy jest 800, kolumn 3. W kazdej kolumnie wpisy, ktore potrzebuje
scalic do jednej- pierwszej- komorki.
Pytanie: Czy mozna tutaj zastosowac makro, VB czy pozostaje recznie
scalac wiersz po wierszu, bo Excel ma ograniczenia?
Czy w przypadku OO Calc jest to samo?

[strach]

<mr.adrian...@gmail.com> wrote in message
news:e23b798a-77c1-40bb...@e53g2000hsa.googlegroups.com...

> Witam,
> szukam sposobu na hurtowe scalenie 2 komorek "w pionie".
> Wierszy jest 800, kolumn 3. W kazdej kolumnie wpisy, ktore potrzebuje
> scalic do jednej- pierwszej- komorki.
> Pytanie: Czy mozna tutaj zastosowac makro, VB czy pozostaje recznie
> scalac wiersz po wierszu, bo Excel ma ograniczenia?

Ponizsze makro scala wg reguly: A1 z A2, B1 z B2, C1 z C2, A3 z A4, B3 z B4,
C3 z C4. Wartosci z dolnych komórek par zostana utracone. W razie potrzeby
dostosuj sobie zmienne w naglówku.

Sub Macro1()
row_first = 1
row_last = 800
col_first = 1
col_last = 3

Application.DisplayAlerts = False

For r = row_first To row_last Step 2
For c = col_first To col_last
Range(Cells(r, c), Cells(r + 1, c)).Merge
Next c
Next r

End Sub

[andie]

Uzytkownik <mr.adrian...@gmail.com> napisal w wiadomosci:

> szukam sposobu na hurtowe scalenie 2 komorek "w pionie".
> Wierszy jest 800, kolumn 3. W kazdej kolumnie wpisy, ktore potrzebuje
> scalic do jednej- pierwszej- komorki.

Mozna tez zastosowac kopiowanie formatów.
Scalasz dwie komórki, kopiujesz je (ja) i 'wklejasz specjalnie' (formaty) do
zaznaczonego obszaru.

pozdr
Andie