关于使用Sheet1.Range("A1").CurrentRegion.Offset(1).Clear带来的困惑

xiaoangel

使用Sheet1.Range("A1").CurrentRegion.Offset(1).Clear这条代码，可以在保留第一行表头的情况下，把其他行的数据都彻底删除。
但又有一个问题，这条代码使用后会使得usedrange.select为两行（即第一行表头加上第二行空数据）。这个比较不爽。
如何才能在保留第一行表头的情况下，删除其他行数据，又能使usedrange.select只限于第一行呢？

谢谢

蓝桥玄霜

改为：
Sheet1.Range("A2:Q5000").Clear

yiyiyicz

Sheet1.Range("A1").CurrentRegion.Offset(1).Clear
逻辑上有问题
既然是选择当前区域，为什么还要偏置
Sheet1.Range("A1").CurrentRegion.Clear 应该是合理的
如果要保留第一行，可以选择了当前区域后，将当前区域的第一行和第一列，以及总行数和总列数提出来（用rangge的属性）
然后重新构造一个区域，也就是当前区域去掉第一行
然后clear

xiaoangel

最后只好用了Range.Delete的办法，唉

jbjbzjb

晕死了，还唉呢！
设置行高了吧？依你认为改变Excel的默认行高，该行是否依然是UsedRange中的区域呢？

xiaoangel

Sub tt2()
Dim kk As Range
Dim i&, j&
Set kk = Sheet1.Range("A1").CurrentRegion
i = kk.Rows.Count
j = kk.Columns.Count
Sheet1.Range(Cells(2, 1), Cells(i, j)).Clear
Sheet1.UsedRange.Select
End Sub


Sub tt3()
Dim kk As Range
Dim i&, j&
Set kk = Sheet1.UsedRange
i = kk.Rows.Count
kk.Resize(i - 1).Offset(1, 0).Clear
Sheet1.UsedRange.Select
End Sub

战战如疯

Sub test()
Sheet1.UsedRange.Offset(1).Clear
Sheet1.UsedRange.Select
End Sub
Sub test2()
[a1].CurrentRegion.Offset(1).Clear
Sheet1.UsedRange.Select
End Sub
用这两个代码测试了下，都没有发现楼主说的usedrange.select会选择两行的问题，应该是楼主的第二行出了问题了，代码应该是没问题的吧

coby001

楼主的代码和想法都对，可能是Excel 的bug，  UsedRange 不会及时更新

xiaoangel

coby001 发表于 2013-9-20 09:27
楼主的代码和想法都对，可能是Excel 的bug，  UsedRange 不会及时更新

的确如此，在公司的电脑上发现的问题。在家里的电脑就没有问题了。
谢谢

zhangcheng6688

yiyiyicz 发表于 2013-9-18 14:47
Sheet1.Range("A1").CurrentRegion.Offset(1).Clear
逻辑上有问题
既然是选择当前区域，为什么还要偏置

Sheet1.Range("A1").CurrentRegion.Offset(1).Clear这个确实不好理解;
Sheet1.Range("a2:c" & sheet1.range("a65536").end(xlup).row).Clear这个逻辑上更好理解，也方便记忆。