将单元格引用存储在变量中并访问该单元格的值

时间:2012-02-20 02:10:46

标签: excel excel-vba vba

我正在尝试获取列中一个单元格的值(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。 我怎么能这样做?

2 个答案:

答案 0 :(得分: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)

答案 1 :(得分:0)

MaxRow代码稍微紧缩:

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

更严厉:

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