Tổng các số được lựa chọn -

Tính tổng tất cả các số trong vùng đã chọn và đặt tổng vào "A1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Lặp lại từng ô trong vùng lựa chọn Đối với mỗi ô Trong vùng chọn' Thêm giá trị vào biến tổng sum = sum + ô. Giá trị Ô tiếp theo Ô (1, 1) = sum Kết thúc Phụ