Clear 清除单元格,包括数据内容和格式
ClearContents 只清除单元格内容
'清空单元格内容
With wb.Sheets("sheet名字").Range("I3:K20")
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.HorizontalAlignment = xlLeft
.ClearContents
End With