Okręt podwodny MergeSelectedCells ()
Ciemnawy tbl Stół
Ciemnawy rng Pasmo
Ciemnawy lCol Jako Integer
Ciemnawy tRow Jako Integer
Ciemnawy rCol Jako Integer
Ciemnawy brew Jako Integer
Ciemnawy r Jako Integer
Ustalony tbl = Selection.Range.Tables (1)
tRow = Selection.Cells (1).RowIndex
brew = Selection.Cells (Selection.Cells.Count) .RowIndex
lCol = Selection.Cells (1).ColumnIndex
rCol = Selection.Cells (Selection.Cells.Count) .ColumnIndex
Dla r = tRow Brew
Ustalony rng = tbl. Komórka (r, lCol). Pasmo
rng. Końcówka = tbl. Komórka (r, rCol). Range.End
rng. Cells.Merge
Następny r
|