excel VBA中如何選中行數不確定的區域

2022-09-23 10:41:08 字數 1676 閱讀 6974

1樓:魚木混豬喲

用range("o65536").end(xlup).row即可獲取o列的最後一個非空單元格的行數

關於此例中用到的end的相關知識:

range物件有一個end屬性,在別人的例子裡經常會看到如“[a65536].end(xlup).row”這樣的語句,這就是end屬性的利用。

end屬性應用於range物件,同樣也返回一個range物件。該物件代表包含源區域的區域結尾處的單元格。如果還是不明白,那可以在工作表裡試一試,分別按ctrl+上、下、左、右方向鍵,看看得到的是什麼。

end屬性返回的單元格就相當於在源單元格按住ctrl鍵+上(或下、左、右)方向鍵所得到的單元格。它的語句格式簡單寫為:

源區域.end(移動方向)

移動方向可以是:

xltoleft :向左移動,相當於在源區域按ctrl+左方向鍵。

xltoright:向右移動,相當於在源區域按ctrl+右方向鍵。

xlup:向上移動,相當於在源區域按ctrl+上方向鍵。

xldown:向下移動,相當於在源區域按ctrl+下方向鍵。

所以在程式設計的過程中,很多人喜歡用“[a65536].end(xlup).row”語句來返回a列的最後一個非空單元格的行號。

如果當前活動工作表的a列填寫的是學生的姓名,現在想在表中a列最後一個學生的後面增加一個叫“張三”的學生,則**為:

activesheet.cells([a65536].end(xlup).row + 1, 1).value = "張三"

語句 [a65536].end(xlup).row + 1中,行號加1的目的是在最後一個非空單元格的下一個單元格里輸入資料。

需要注意的是:如果a列全為空的話,“[a65536].end(xlup).

row”這個語句返回的是1。

2樓:大聖美猴王

《用vba得到excel**中的行數和列數》

http://hi.baidu.

com/%b4%f3%ca%a5%c3%c0%ba%ef%cd%f5/blog/item/e6143c3f2b8182ef54e723cd.html

dim r as range

3樓:匿名使用者

可以利用range的end屬性取得o行最後一行非空單元格如:dim i as integer

i=sheet1.range("o6536").end(xlup).row

range("f6:o"&i).select

4樓:匿名使用者

方法真的很多

x = worksheetfunction.counta(range("o:o"))

range("f6:o"&x).select

vba中如何選中單元格所在行中的相應資料區域

5樓:匿名使用者

range(cells(activecell.row, 1), cells(activecell.row, range("iv" & activecell.

row).end(xltoleft).column)).

select

6樓:匿名使用者

range("a" & activecell.row & ":d" & activecell.row).select

excel2019 vba中如何引用指定的單元格地址

1樓 匿名使用者 引用單元格的方法比較多,列舉如下, 1 引用單元格a1 a1 或 range a1 或 cells 1 1 2 引用連續單元格a1 b3 2樓 d1 單元格用 r1c1 格式來描述的話就是 第 1 行 第 4 列,即 r1c4,所以,公式應該寫成 rc 1 r1c4 3樓 魚木混豬喲...