excel：与表格的列一起使用

有什么方法可以使用UsedRange从表中的第一列到最后一列进行select？

这是原始代码：

Worksheets("Sheet1").UsedRange.Columns("E").Cells 

但它从第一行到最后一个Excel，我不想要这个。 所以我试图做这样的事情：

 Dim LastRow As Integer Dim ws As Worksheet Set ws = Worksheets("Sheet1") LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row With ws.UsedRange.Columns("E2:E & LastRow").Cells 

虽然这似乎在这里工作，所以我怀疑是否有一个正确的方法来做到这一点或UsedRange这不是最好的。

另外，在这之后我想用Jeeped提供的THIS代码，但是我需要知道是否有可能先解决这个问题。

Answer 1

你可以直接使用范围，

 with ws with .range(.cells(1, "E"), .cells(.rows.count, "E").end(xlup)) 'do something with the cells in column E end with end with 

你可以使用.UsedRange与Intersect

 with Intersect(ws.UsedRange, ws.columns("E")) 'do something with the cells in column E end with 

Answer 2

试试这个，但不要使用。select。

 With ws .Range("E2:E" & LastRow).Select End with