1樓：匿名使用者
因為你的x和y並不是讀取行數 而是variant 是陣列
所以必須要先activate那一頁才對
給你舉個例子
dim i%,j%
dim x,y
workbooks.open "d:\2.xls"
workbooks("2.xls").activate
i=worksheets(1).[a65535].end(xlup).row 'i 和j是sheet1,2應用了行數 是整數，不用去啟用那張sheet
j=worksheets(2).[a65535].end(xlup).row
worksheets(1).activate
x=worksheets(1).range("a2:a" & range("a65535").end(xlup).row)
worksheets(2).activate
y=worksheets(2).range("a2:a" & range("a65535").end(xlup).row)
2樓：姓王的
從**中看不出你返回的兩個表的行數在何處。x、y應該是單元格物件，前面應有 set。而range("a65535").
end(xlup).row都是代表當前表a列已使用的最大行號，而不會反應兩個表的。
vba excel怎麼獲取指定工作表的行數、列數
3樓：_夏初烲
excel獲取指定工作表的行數、列數的具體操作方法如下：
1.首先，開啟excel軟體
2.開啟源資料檔案，假如需要根據****顯示出行業名稱。現在，在i1單元格輸入」****「，在j1單元格輸入」nnindnme"。
3.如圖，選中j2單元格，單擊工具欄中的"插入函式「4.彈出」插入函式「對話方塊，選擇插入if函式5.
在彈出的」函式引數「對話方塊中，設定logical_test引數為」i2=「」，將value_if_true設定為「」，在value_if_false引數框中輸入「vlookup(i2,a2:b2846,2)，然後點選確定
4樓：朱仕平
當前工作表總行數
k=activesheet.usedrange.rows.count指定sheet1工作表總列數
j=sheets("sheet1").usedrange.columns.count
前提是頂部和左側無空行空列
5樓：
vba 取行數
sheets（1）.[a65536].end(xlup).row '''該列最後一行
vba 取列數
cells(14, 256).end(xltoleft).column'''該14行最後一列
6樓：靜靜邁除人
列sub 列()
a = columns("c:h").count 'c:h的長度
b = cells(1, columns.count).address '列的最大值
c = cells(1, columns.count).end(xltoleft).column '有效列(包含空值）
d = activesheet.usedrange.columns.count '有效列(包含空值）
n = 12
g = range(chr(65 + n) & "1").address '求第12列
end sub
2.行sub 行()
a = cells(rows.count, 1).address '行的最大值
b = cells(rows.count, 1).end(xlup).row '有效行(包含空值）
c = activesheet.usedrange.rows.count '有效行(包含空值）
end sub
請問如何用vba獲取excel某一單元格中文字的行數？（單元格是自動換行格式）
7樓：落葉l無情
function lines(r) 'r 為某單元格，如a1r.wraptext = false
x = r.height
r.wraptext = true
y = r.height
lines = y / x
end function
使用方法 lines(range("a1"))思路：設定該單元格不自動換行，得到此時的高度x，恢復自動換行，得到此時的高度y，行數=y/x
8樓：餘凌曉堯時
搜一下：請問如何用vba獲取excel某一單元格中文字的行數？（單元格是自動換行格式）
excel vba讀取行不同內容到行
9樓：慶年工坊
sub s()
set d = createobject("scripting.dictionary")
x = cells(rows.count, 3).end(3).row
y = 3
k = 1
do while k < 8
t = cells(x, y)
if not d.exists(t) thend.add t, ""
cells(5, 9 + k) = t
k = k + 1
end if
if y < 9 then
y = y + 1
else
x = x - 1
y = 7
end if
loop
end sub
Excel請問如何用VBA提取這個網頁上的開獎號碼
sub cc cells.clearcontents set odoc createobject htmlfile a1 c1 array 時間 開獎號碼 冠亞軍和 f1 1 5龍虎 可以提取，哪個網頁？excel 如何用vba提取網頁資料 1 首先開啟excel 2007工作表，點選想要把資料匯入...
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1.xls s...
EXCEL如何用公式或VBA實現自動算出可用庫存
如下，詳見附件 private sub commandbutton1 click for i 2 to a65536 end 3 row if cells i,1 cells i 1,1 then cells i,5 cells i 1,6 if cells i,5 0 then cells i,5...