Fråga : Makroen till sammanfogningkolonner uttrycker in bordlägger

Tacka dig för din skulle något liknande för help.

I till sammanfogningkolonner, men inte ror i olikt bordlägger mig har producerat i Microsoft Word.  Förmiddag som I undrar, om någon kan ge mig med en makro att ska utför detta.  Jag måste olika kolonner för sammanfogning beroende av att bordlägga.  Plusen jag önskar inte till sammanfogning som kolonnerna i första ror av bordlägga (titeln bommar för).  Den skulle är ideal som har en makro som skulle precis sammanfogning (över kolonner) allt vad celler jag har selected. " klar "

Svar : Makroen till sammanfogningkolonner uttrycker in bordlägger

Denna makro planläggs för att göra det
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

UnderMergeSelectedCells ()
    Dunkel tbl som bordlägger
    Dunkel rng som spänner
    Dunkel lCol som heltal
    Dunkel tRow som heltal
    Dunkel rCol som heltal
    Dunkelt krön som heltal
    Dunkelt r som heltal
    
    Fastställd tbl = Selection.Range.Tables (1)
    tRow = Selection.Cells (1) .RowIndex
    krön = Selection.Cells (Selection.Cells.Count) .RowIndex
    lCol = Selection.Cells (1) .ColumnIndex
    rCol = Selection.Cells (Selection.Cells.Count) .ColumnIndex
    För r = tRow till krön
        Fastställd rng = tbl. Cell (r, lCol). Spänna
        rng. Avsluta = tbl. Cell (r, rCol). Range.End
        rng. Cells.Merge
    Nästa r
Andra lösningar  
 
programming4us programming4us