stocker une référence de cellule dans une variable et accéder à la valeur de cette cellule

Question

J'essaie d'obtenir la valeur d'une cellule dans une colonne (colonne B). cette cellule est dans la même ligne que la dernière cellule qui a une valeur dans une autre (colonne A)

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

, mais je continue à obtenir une erreur d'exécution: 91. comment puis-je faire cela?

Answer 1

Deux choses :)

1) Vous n'avez pas besoin str (maxrowina). Vous pouvez utiliser cette

maxcellinb = "B" & maxrowina 

2) ne devrait pas MsgBox (ws.Range (dbhobcell) .Value) être

MsgBox (ws.Range(maxcellinb).Value) 

code complet

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

Answer 2

Juste un légèrement plus serré sur le code MaxRow:

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

Tigher encore:

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