[已解决]vba怎样删除不固定区域的数据？

FVOOL

Sub 删除()
g = Range("A5000").End(xlUp).Row
     Range("A7:Z300").Select  '怎样让这个区域随g的改变而改变呢？
     Range("A7").Activate
    Selection.ClearContents
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2014-12-4 11:16

最后1行改为
range(cells(g,"A"),cells(8,"Z")).ClearContents

最好上附件，不然不知道为什么这么表达，以及到底想删什么区域

跳转到最佳答案楼层

爱疯

Sub 删除()
    Dim g
    g = Range("A5000").End(xlUp).Row
    Range("A7:Z" & g).Select   '怎样让这个区域随g的改变而改变呢？
    Range("A7").Activate
    Selection.ClearContents
End Sub

Sub 删除2() '也可以写成一句
    Range("A7:Z" & Range("A5000").End(xlUp).Row).ClearContents
End Sub

FVOOL

爱疯 发表于 2014-12-3 09:29
Sub 删除()
    Dim g
    g = Range("A5000").End(xlUp).Row

Sub ghhggh()
Range("A7:Z" & Range("A5000").End(xlUp).Row).ClearContents   ’A7变不了，
End Sub
Sub kjfgdk()'运行出错
    Dim g
    g = Range("A5000").End(xlUp).Row
    Range("A7:Z" & g - 7).Select '怎样让这个区域随g的改变而改变呢？
    Range("A7").Activate
    Selection.ClearContents
End Sub
Sub ghhggh()
g = Range("A5000").End(xlUp).Row
Range("A" & g - 8 & ":Z" & Range("A5000").End(xlUp).Row).ClearContents'这样怎么就运行不了。
End Sub

爱疯

最后1行改为
range(cells(g,"A"),cells(8,"Z")).ClearContents

最好上附件，不然不知道为什么这么表达，以及到底想删什么区域

fffox

FVOOL 发表于 2014-12-4 10:52
Sub ghhggh()
Range("A7:Z" & Range("A5000").End(xlUp).Row).ClearContents   ’A7变不了，
End Sub

1. range(cells(g-8,"a"),cells(g,"z")).clearcontents

复制代码

FVOOL

爱疯 发表于 2014-12-4 11:16
最后1行改为
range(cells(g,"A"),cells(8,"Z")).ClearContents

谢谢呵呵就这样改决了。