[已解决]请高手帮忙一个清除光标所在行的vba代码

qiongmei

我想用vba实现以下功能，当光标在a5的时候我执行该代码的时候，他会清除a5：w5之间的内容，如果光标在e8的时候，他则会清除a8：w8之间的内容，如此等等，在站里搜寻半天也没找到类似的代码，谢谢高手的帮忙。

最佳答案

月排行榜 / 总排行榜

adders

2011-8-22 23:33

回复 qiongmei 的帖子

sub deltt()
      Dim refrow as long
      refrow = ActiveCell.row
      Range(cells(refrow,"A"),cells(refrow,"W")).clearcontents
end sub

跳转到最佳答案楼层

adders

回复 qiongmei 的帖子

sub deltt()
      Dim refrow as long
      refrow = ActiveCell.row
      Range(cells(refrow,"A"),cells(refrow,"W")).clearcontents
end sub

0Mouse

1. Sub test()
   
2.   Range("a" & ActiveCell.Row & ":w" & ActiveCell.Row).Delete
   
3. End Sub

复制代码

0Mouse

或者这样：

1. Sub test()
   
2. Intersect([a:w], ActiveCell.EntireRow).Delete
   
3. End Sub

复制代码

Zipall

哈哈,真是八仙过海啊.

我也来一个


Sub test()
    Range("a:w " & ActiveCell.EntireRow.Address).Clear
End Sub