摘要：If ActiveCell.Text = "" Then Exit SubDim Startrowno As Integer, Startcolno As Integer, Endrowno As Integer, Endcolno As IntegerStartrowno = Target.RowStartcolno = Target.ColumnEndrowno = Target.Rows.Count + Startrowno - 1Endcolno = Target.Columns.Count + Startcolno - 1ActiveSheet.Name = &q 阅读全文