Sub bbb()’将已插入的矩形框自动居中并填充满(矩形框所在的)单元格Dim sh As ShapeDim rng As RangeDim x&, y&, a%, b%With ActiveSheetFor Each shIn .Shapessh.Selectx = Selection.Topy = Selection.LeftFor i = 100 To 1 Step -1 If .Rows(i).Top <= x Then
a = i
Exit For End IfNext iFor j = 256 To 1 Step -1 If .Columns(j).Left <= y Then
b...