usedrange的范围

/;f_/v二十二

在使用vba收集学生数据的时候，其中有一个文件（其他文件都正常），本来应该只有9行4列（作了简化），使用 usedrange赋值给一个数组 arr，arr居然是 19行4列！？（我尝试了把格式全部清除就正常了，但是一直没有弄明白为什么会多出一些单元格，也没有找到是哪个单元格的格式出了问题）。

ykcbf1100

你的表中，第10行到第19行一定有内容的，只是你看不见而已。

你可以选择第10行至第100行区域，选择删除，你的Usedrange范围就是9行4列了。

qline302

可以用Ctrl+End查看已使用范围的右下角位置。

3190496160

usedrange所包含的范围，既包括有数据的区域也包括没有数据，但是，加了边框的区域

剑指E

需要精准获取区域数据时最好不要用usedrange，除非你对工作表有“洁癖”。

山海风云轩

usedrange的范围保护了单元格中有内容的区域，也包含单元格有变动的区域，比如调节了行高

tmplinshi

把 test.xlsm 用压缩软件解压出来，打开 xl\worksheets\sheet1.xml 可以看到单元格 C19 设置了一个样式 s="1" (参考 http://officeopenxml.com/SSstyles.php)



将 C19 的格式清除，然后保存文件，再按 Ctrl+End 会正确定位到单元格 D9。

tmplinshi

可以用 Range.End(xlUp):

1. Range(Cells(1), Cells(Cells.Rows.Count, "d").End(xlUp)).Select

复制代码

或者 .Find

1. Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Select

复制代码

LIUZHU

qline302 发表于 2024-1-15 08:33
可以用Ctrl+End查看已使用范围的右下角位置。

学到了一招，原来快捷键还可以这样使用

fenghuaxue

可以这么写

1. Sub 按钮1_Click()
   
2. Dim arr As Variant, lastRow As Long
   
3. With Worksheets("sheet1")
   
4.     lastRow = .Range("a" & Rows.Count).End(xlUp).Row '.UsedRange
   
5.     arr = .Range("a1:D" & lastRow)
   
6.     Stop
   
7. End With
   
8. End Sub

复制代码