icount1 = [B1].CurrentRegion.Rows.Count '统计工作表行非空行数Range(Cells(2, 4), Cells(icount1, 11)).SelectSelection.ClearContentsFor hang1 = 2 To icount1