Sub bor()Sheet1.Range("A1:IV65536").Borders.LineStyle = xlNoneSheet1.UsedRange.Borders.LineStyle = xlContinuousEnd Sub可根据实际情况将sheet1修改为你所在的表格名称。
Sub ideal()Me.UsedRange.Borders.LineStyle = xlContinuousEnd Sub