Hàm Evaluate chỉ nhận một biểu thức có giá trị là string:
a = Evaluate(Replace("Choose({1,2,3}, A1:A<sd>,C1:C<sd>,G1:G<sd>)", "<sd>", CStr(lr)))
Nếu không muón dùng Evaluate thì cũng có thể dùng hàm Application.Choose. Nhưng cách gọi hơi rắc rối hơn một chút:
a = Application.Choose([ { 1, 2...