使用代码如何选择表格中部分数据

使用代码如何选择表格中部分数据。

举例，最典型的应用如下，选择除了表格标题之外的数据。

如果在Excel中，没有直接的快捷键，通常选择A2,CTRL+SHIFT+向右方向键，再按一下CTRL+SHIFT+向下方向键。

这么常用的操作居然没有快捷键，我们如果学过VBA，可以自己开发设置一个。

使用以下代码：

Private Sub CommandButton1_Click() Application.Intersect(Range("a1").CurrentRegion.Offset(1,0), ActiveSheet.UsedRange).SelectEnd Sub

其中 intersect用法是 application.intersect(区域1，区域2) 取相交的部分。

Range("a1").CurrentRegion 指的是当前区域。

Offset(1,0)向下偏移一行，列不动。

Activesheet.usedrange 指用过的区域。

也就是当前的区域向下移动一行再与用过的区域取相交得到的区域。

还可以使用以下代码实现：

Private Sub CommandButton1_Click() Range("a1").CurrentRegion.Select Selection.Offset(1).Resize(Selection.Rows.Count - 1, Selection.Columns.Count).SelectEnd Sub

解释如下：

选择A1所在当前区域

Offset(1)是offset(1,0)缩写，指的是选择的区域向下偏移一行。

Resize(行的数减1，列数不列) 重新扩展的选择了一个区域。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。