ขอความช่วยเหลือเกี่ยวกับ VBA ครับ

[bigbomb]

ผมต้องการหาค่า Average ของแต่ละคอลัมน์โดยใช้คำสั่งของ VBA
จำนวน แถวของข้อมูลไม่คงที่อาจมากน้อยแล้วแต่โอกาส แต่ จำนวนคอลัมน์คงที่
ถ้ามีลิงก์เกี่ยวกับ Code รบกวนลิงก์ให้หน่อยนะครับหาไม่เจอ

[snasui]

ไม่ว่าคอลัมน์หรือแถวจะคงที่หรือไม่คงที่ก็สามารถใช้ฟังก์ชั่นหาค่าได้เช่นกันครับ ไม่ทราบว่าจำเป็นต้องใช้ VBA เท่านั้นหรือไม่ครับ

[bigbomb]

จำเป็นต้องใช้VBA ครับเพราะต้องการนำข้อมูล จากหลายสมุดงานมารวมกันแล้วนำมาสรุปผลครับ
และ ทุกสมุดงานที่นำมาหาค่าจะมีรูปแบบข้อมูลแบบเดียวกัน แต่จำนวนข้อมูลต่างกัน
แนบไฟล์ตัวอย่างมาให้ดูด้วยครับ
ยกตัวอย่างตามสมุดงาน ผมต้องการหาค่า Average Max Min ของ Column C-L
แล้วก็จะมีอีกหลายสมุดงานที่ต้องทำงานแบบเดียวกัน บางครั้งอาจถึง20สมุดงานซึ่งมีความจำเป้นต้องใช้ VBA ในการคำนวนหาแค่ Average เพื่อนำไปรวบรวมสรุปไว้ในที่เดียวกันครับ
ขอบคุณครับ

[snasui]

ลองปรับใช้ Code ข้างล่างดูครับ

Code: Select all

Option Explicit
Option Base 1
Sub AddCal()
Dim wb As Workbook
Dim a As Variant
Dim i As Integer, j As Integer, k As Integer
a = Array("Average", "Min", "Max")
For Each wb In Workbooks
wb.Activate
    k = Sheets("Sheet1").Range("A65536").End(xlUp).Row
    For j = 1 To 3
         For i = 3 To 12
            Cells(k + j, i) = "=" & a(j) & "(" & Cells(2, i).Address & ":" & Cells(k, i).Address & ")"
        Next i
    Next j
Next wb
End Sub

[bigbomb]

ขอบพระคุณอย่างสูงครับ ได้รับคำตอบและความช่วยเหลืออย่างรวดเร็ว
ขอบคุณครับ