Cách ghi công thức dang R1C1 trong VBA

[MinhCong]

Các Anh, Chị cho Tôi hỏi cách ghi công thức dạng R1C1 trong VBA như thế nào?
VD: Tôi muốn tính tổng từ ô A1:A10 => Kết quả thể hiện ở ô A11
Tôi dùng code sau:

Range("A11").FormulaR1C1 = "=SUM(R[-[COLOR=blue]10[/COLOR]]C:R[-1]C"

Tuy nhiên bây giờ Tôi không biết vị trí ô cuối cùng để tính tổng là A10 (có thể 11,12....). Thì viết như thế nào? Tôi viết như sau:

eR = Range("A65536").End(Xlup).Row
Range("A" & eR+1).FormulaR1C1 = "=SUM(R[-[COLOR=red]eR[/COLOR]]C:R[-1]C"

=> Tuy nhiên code trên bị lỗi => Không hiển thị được công thức. Nhờ các Anh, Chị hướng dẫn cách ghi như thế nào cho đúng nhé!

 

[Hai Lúa Miền Tây]

Các Anh, Chị cho Tôi hỏi cách ghi công thức dạng R1C1 trong VBA như thế nào?
VD: Tôi muốn tính tổng từ ô A1:A10 => Kết quả thể hiện ở ô A11
Tôi dùng code sau:

Range("A11").FormulaR1C1 = "=SUM(R[-[COLOR=blue]10[/COLOR]]C:R[-1]C"

Tuy nhiên bây giờ Tôi không biết vị trí ô cuối cùng để tính tổng là A10 (có thể 11,12....). Thì viết như thế nào? Tôi viết như sau:

eR = Range("A65536").End(Xlup).Row
Range("A" & eR+1).FormulaR1C1 = "=SUM(R[-[COLOR=red]eR[/COLOR]]C:R[-1]C"

=> Tuy nhiên code trên bị lỗi => Không hiển thị được công thức. Nhờ các Anh, Chị hướng dẫn cách ghi như thế nào cho đúng nhé!

Bạn thử sửa lại như sau coi được không nhé

Range("A" & eR + 1).FormulaR1C1 = "=SUM(R[-" & eR & "]C:R[-1]C)"