[已解决]如何选择选区中有数据的部分？

zhanglei1371

选择a列到e列，但里面有数据的部分也就是a3：e5，如何获取这一部分，用VBA如何表示

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-10-25 22:19

zhanglei1371 发表于 2021-10-25 22:04
大师好，测试了下，无法选择所有。我希望选中C5：E8区域。

附件如下：

Sub demo()
   Set Rng = [a:e]
   r1 = Rng.Find("*", , , , xlByRows).Row: c1 = Rng.Find("*", , , , xlByColumns).Column
   r2 = Rng.Find("*", , , , xlByRows, xlPrevious).Row: c2 = Rng.Find("*", , , , xlByColumns, xlPrevious).Column
   Range(Cells(r1, c1), Cells(r2, c2)).Select
End Sub

跳转到最佳答案楼层

hfwufanhf2006

1、[a1].CurrentRegion
2、如果工作表只有一个数据区，也可以用UsedRange

cutecpu

Range([a:e].Find("*"), [a:e].Find("*", , , , , xlPrevious)).select

zhanglei1371

cutecpu 发表于 2021-10-25 21:51
Range([a:e].Find("*"), [a:e].Find("*", , , , , xlPrevious)).select

大师好，测试了下，无法选择所有。我希望选中C5：E8区域。

附件如下：
测试文档.rar (6 KB, 下载次数: 9)

2021-10-25 22:04 上传

点击文件名下载附件

cutecpu

zhanglei1371 发表于 2021-10-25 22:04
大师好，测试了下，无法选择所有。我希望选中C5：E8区域。

附件如下：

Sub demo()
   Set Rng = [a:e]
   r1 = Rng.Find("*", , , , xlByRows).Row: c1 = Rng.Find("*", , , , xlByColumns).Column
   r2 = Rng.Find("*", , , , xlByRows, xlPrevious).Row: c2 = Rng.Find("*", , , , xlByColumns, xlPrevious).Column
   Range(Cells(r1, c1), Cells(r2, c2)).Select
End Sub