请问如何通过VBA查找A2:E200区域中有内容的最后一行(如:A36:E36)并清除其内容,谢谢!

58591067

请问如何通过VBA查找A2:E200区域中有内容的最后一行(如:A36:E36)并清除其内容,谢谢!
示例.rar (7.93 KB, 下载次数: 6)

2018-7-15 12:15 上传

点击文件名下载附件

tudarong

示例.rar (15.17 KB, 下载次数: 1)

2018-7-15 13:03 上传

点击文件名下载附件

如有帮助，请送几朵小花

1. Sub test()
   
2. Dim i%
   
3. i = [a65536].End(xlUp).Row
   
4. Rows(i) = ""
   
5. End Sub

复制代码

58591067

tudarong 发表于 2018-7-15 13:04
如有帮助，请送几朵小花

您好,我只需要清除A2:E200这个区域的内容,不要整行清除,因为我其他列有其他的内容.请问要怎么写?谢谢

zhjlgaojuan

Sub test()
i = [a65535].End(xlUp).Row
j = Range(Cells(i, 255), Cells(i, 255)).End(xlToLeft).Column
Cells(i, j).ClearContents
End Sub

58591067

zhjlgaojuan 发表于 2018-7-15 14:06
Sub test()
i = [a65535].End(xlUp).Row
j = Range(Cells(i, 255), Cells(i, 255)).End(xlToLeft).Column ...

您好,能否按一次就清除A36:E36的内容呢?谢谢

zhjlgaojuan

Sub test()
i = [a65535].End(xlUp).Row
j = Range(Cells(i, 255), Cells(i, 255)).End(xlToLeft).Column
range(cells(i,1),Cells(i, j)).ClearContents
End Sub

58591067

zhjlgaojuan 发表于 2018-7-15 14:14
Sub test()
i = [a65535].End(xlUp).Row
j = Range(Cells(i, 255), Cells(i, 255)).End(xlToLeft).Column ...

您好,VBA是不是清除内容要清就只能清一整行?不能选择性的区域清除?

zhjlgaojuan

58591067 发表于 2018-7-15 14:18
您好,VBA是不是清除内容要清就只能清一整行?不能选择性的区域清除?

不是你要求清除a36:e36这个区域的吗?你到底想要清除什么?
刚开始说要清除E36这个单元格,我给你代码了
你又要清除A36:E36我也给你代码了
能不能把想要干什么先自己想想清楚再提问题啊?

58591067

zhjlgaojuan 发表于 2018-7-15 14:21
不是你要求清除a36:e36这个区域的吗?你到底想要清除什么?
刚开始说要清除E36这个单元格,我给你代码了
...

可是我按照您的代码也是整行都清除的,是我弄错了吗?不好意思,打扰了

hasyh2008

Sub 清除内容()
    Range("A:E").Rows(Range("A" & Rows.Count).End(xlUp).Row).Clear
End Sub