Nhờ các bác giúp em viết VBA tính tổng của cột có dữ liệu

[frantliem]

Như tiêu đề mình muốn tính tổng của cột G. Mình đã viết code tính đến dòng cuối cũng của cột G
Nhưng viết tổng thì không được . Nhờ các Bác sửa giúp :
Dim Lr As Long
Lr = Range("A" & Rows.Count).End(xlUp).Row
Range("G" & (Lr + 3)).Value = Application.WorksheetFunction.Sum(Range("G2:G&Lr"))


Thanks

 

[BuiQuangThuan]

Dim Lr As Long

Sửa tiêu đề.Bạn đăng bài là cần giúp rồi. Không cần nhất thiết phải Nhờ các bác giúp em nữa
Có thể đính kèm cái file lên trên này được không

 

[SA_DQ]

. . . . mình muốn tính tổng của cột G. Mình đã viết code tính đến dòng cuối cũng của cột G
Nhưng (1) viết tổng thì không được . Nhờ các Bác sửa giúp :
Dim Lr As Long
Lr = Range("A" & Rows.Count).End(xlUp).Row
Range("G" & (Lr + 3)).Value = Application.WorksheetFunction.Sum(Range("G2:G&Lr"))
(2) Thanks

(1) Có nghĩa là sao vậy:
a./ Không tính tổng;
b./ Tổng tính được nhỏ hơn so với thực tế
c./ Báo lỗi dòng lệnh nào đó trong 2 dòng lệnh cơ bản của bạn
D./ Gì khác (cần nêu rõ hơn để mọi người hiểu)
. . . . . . . .
(2) Chúc các bạn ngon giấc!

 

[frantliem]

(1) Có nghĩa là sao vậy:
a./ Không tính tổng;
b./ Tổng tính được nhỏ hơn so với thực tế
c./ Báo lỗi dòng lệnh nào đó trong 2 dòng lệnh cơ bản của bạn
D./ Gì khác (cần nêu rõ hơn để mọi người hiểu)
. . . . . . . .
(2) Chúc các bạn ngon giấc!

Nó báo lỗi dòng tính tổng Á bạn. Dòng lệnh range("G2:G&Lr) mình viết thế có sai Ko vậy

 

[tranchautrungduong]

Nó báo lỗi dòng tính tổng Á bạn. Dòng lệnh range("G2:G&Lr) mình viết thế có sai Ko vậy

range("G2:G" & Lr) sửa lại vậy nhé

 

[frantliem]

range("G2:G" & Lr) sửa lại vậy nhé

Thanks . Được rồi bạn ơi