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**中的行數和列數》
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
Excel VBA讀取檔案，把中的 13 10 換成換行
在close 1前新增下面的語句 print 1,不是txt不行麼？txt好像只有回車，沒有換行一說 你試試換成word之類的 excel中vba怎麼獲取乙個txt檔案的固定行資料？剛才試了一下，你說的這種型別的txt好像可以直接用excel開啟，所以我錄了個巨集，改了一下 你可內以試試 sub 提...
excel中如何選次大值，EXCEL中如何用公式求次高值 次低值？
這個可以用large函式來做到 比如要得到a列資料的第二大值,則可以在a列以外的某單元格寫入公式 large a a,2 large 返回資料集中第 k 個最大值。使用此函式可以根據相對標準來選擇數值。例如，可以使用函式 large 得到第一名 第二名或第三名的得分。語法large array,k ...
如何使用Excel vba快速提取需要的資訊
vba不是萬能的，也需要資料比對的邏輯，即對照表，才能寫 需要基礎資料進行比對，工號對應姓名，vlookup進行匹配。計算相同工號，相同產品的出現次數，countifs計算符合姓名和產品號相同的數量 按照要求的格式抓取對應的資料 excel 用vba將 中有需要的資訊提取出來，到另一張表中 對vba...
如何在Excel VBA中使用字典Dictionary物件
sub test dim dic as object set dic createobject scripting.dictionary end sub 這樣就建立了乙個字典物件。使用字典很簡單，但要運用自如，需要思考編寫大量的例項來實現。以下 簡要說明字典的常見方法 sub dic dim odi...
excel vba如何獲取當前工作薄名
vba獲取excel工作表的名稱用 activesheet.name1 activeworkbook.name 返回活動工作薄的名稱 2 thisworkbook.name 返回當前工作簿名稱 3 thisworkbook.fullname 返回當前工作簿路徑和名稱 1 首先我們開啟乙個工作樣表作為...