2012-02-20 115 views
1

我試圖獲取列(B列)中的一個單元格的值。該小區是同一行作爲在另一個(列A)有一個值最後一個單元格在變量中存儲單元格引用並訪問該單元格的值

maxrowina = ws.Range("A1").Offset(ws.Rows.Count - 1, 0).End(xlUp).Row 
maxcellinb = "B" & str(maxrowina) 
MsgBox (ws.Range(dbhobcell).Value) 

中,但我不斷收到一個運行時錯誤:91 我怎麼能做到這一點?

回答

0

兩件事情:)

1)你不需要STR(maxrowina)。您可以使用此

maxcellinb = "B" & maxrowina 

2)不應該MSGBOX(ws.Range(dbhobcell).value的)

MsgBox (ws.Range(maxcellinb).Value) 

完整代碼

maxrowina = ws.Range("A1").Offset(ws.Rows.Count - 1, 0).End(xlUp).Row 
maxcellinb = "B" & maxrowina 
MsgBox (ws.Range(maxcellinb).Value) 
0

只是一個MaxRow代碼更緊:

MaxRowInA = ws.Range("A" & Rows.Count).End(xlUp).Row 
MsgBox ws.Range("B" & MaxRowInA).Value 

Tigher還是:

MsgBox ws.Range("A" & Rows.Count).End(xlUp).Offset(,1).Value