Tạo một macro để trung bình phân đoạn dữ liệu trong một cột nhất định [đã đóng]

Tôi muốn tạo một macro tính trung bình các giá trị của mỗi 12 mục trong một cột trong bảng tính Excel, ví dụ: A1- A12sau đó A13- A24v.v. và đặt kết quả vào các ô C12, C24v.v.

Tôi không chắc bắt đầu như thế nào; bạn có thể vui lòng tư vấn?

Bạn không cần mã cho điều đó. Nhập công thức Trung bình vào ô C12 =AVERAGE(A1:A12). Sau đó chọn C1 đến C12 và kéo xuống núm điều khiển điền.

Chỉnh sửa để làm rõ

Tay cầm điền sẽ sao chép phạm vi đã chọn xuống và nó sẽ giữ lại mẫu của phạm vi đã chọn. Trong trường hợp này, 11 ô đầu tiên của phạm vi đã chọn trống và chỉ có ô thứ 12 chứa công thức. Nếu C1 đến C12 được chọn và tay cầm điền được kéo xuống, 11 ô tiếp theo sẽ để trống và ô C24 sẽ có công thức. Kéo xuống thêm và nó sẽ là 11 ô trống khác cho đến khi ô C36 có công thức.

Đó là mô hình.

Sử dụng trang này làm điểm bắt đầu, bạn có thể sử dụng công thức MOD()để lấy trung bình của mình.

Bắt đầu từ C12, đặt công thức này và kéo xuống:

=IF(MOD(ROW(),12)=0,AVERAGE(OFFSET($A1,(ROW()-ROW($C12))*12,,12,)),"")

Chỉnh sửa: Holy cow ở trên là quá mức cần thiết. Sử dụng cái này thay thế:

=IF(MOD(ROW(),12)=0,AVERAGE(A1:A12),"")

Một vài dòng này có thể giúp bạn tạo MACRO, để lấy trung bình cho mỗi 12 hàng.

Lưu ý, Để lấy Trung bình cho 12 Hàng đầu tiên, hãy chọn bất kỳ ô nào của Hàng 1 như B1, C1 hoặc D1 và Chạy MAcro này, sau đó chỉ cần điền vào Ô xuống để lấy Trung bình của 12 Hàng khác.

Sub Average()
ActiveCell.Formula = "=AVERAGE(OFFSET($A$1, (ROW() - ROW($A$1)) * 12, 0, 12, 1))"
End Sub

Hoặc, bạn cũng có thể sử dụng công thức này làm giải pháp Non VBA .

C2 =AVERAGE(OFFSET($A$2,(ROW()-ROW($C$2))*12,,12,))

Đã chỉnh sửa: Cả hai giải pháp đều có cách tiếp cận thông minh trong đó các hàng để lấy Trung bình có thể chỉnh sửa.

Ví dụ, nếu Average of every 16 rowsđược yêu cầu phải được tính toán sau đó cho giải pháp Non VBA*12,,12, nên được thay thế bằng*16,,16, Tương tự như vậy đối với giải pháp VBA *12,0,12,1 nên*16,0,16,1

Lưu ý

• Điền công thức Non VBA xuống.
• Điều chỉnh tham chiếu ô trong Công thức & Mã khi cần.