MergeSelectedCells secondario ()
Tbl fioco come Tabella
Rng fioco come gamma
lCol fioco come numero intero
tRow fioco come numero intero
rCol fioco come numero intero
Fronte fioca come numero intero
R fioca come numero intero
Regolare il tbl = Selection.Range.Tables (1)
tRow = Selection.Cells (1).RowIndex
fronte = Selection.Cells (Selection.Cells.Count) .RowIndex
lCol = Selection.Cells (1).ColumnIndex
rCol = Selection.Cells (Selection.Cells.Count) .ColumnIndex
Per r = tRow alla fronte
Regolare il rng = il tbl. Cellula (r, lCol). Gamma
rng. Estremità = tbl. Cellula (r, rCol). Range.End
rng. Cells.Merge
R seguente
|