就是把选中的部分删除,包括单元格内容以及表格设置的边框
选中就删除?没有条件吗?
以下代码是单元格事件自动完成。选择单元格就清除数据,删除边框
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target
Rng.ClearContents
Rng.Borders.LineStyle = 0
End Sub
以下代码选择单元格或单元格区域后运行此宏即清除数据,删除边框
Sub bb()
Dim Rng As Range
Set Rng = Selection
Rng.ClearContents
Rng.Borders.LineStyle = 0
End Sub
或
Sub bb()
With Selection
.ClearContents
.Borders.LineStyle = 0
End With
End Sub
以下代码是单元格事件自动完成。选择单元格就清除数据,删除边框
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target
Rng.ClearContents
Rng.Borders.LineStyle = 0
End Sub
以下代码选择单元格或单元格区域后运行此宏即清除数据,删除边框
Sub bb()
Dim Rng As Range
Set Rng = Selection
Rng.ClearContents
Rng.Borders.LineStyle = 0
End Sub
或
Sub bb()
With Selection
.ClearContents
.Borders.LineStyle = 0
End With
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2011-08-08
直接selection.delete不就ok了吗?