Sub fel6_4()
    Dim suly As Integer, szoveg As String, atlsuly As Single
    Dim r As Range
    Set r = Workbooks(1).Worksheets("Munka1").Range("a1:al7")
    Dim i As Long, j As Integer, k As Integer
    Dim o As Integer, s As Integer
    o = r.Columns.Count
    s = r.Rows.Count
    suly = 0
    For i = 1 To s
        For j = 1 To o
            szoveg = r(i, j)
            For k = 1 To Len(szoveg)
                If Mid(szoveg, k, 1) = "(" Or Mid(szoveg, k, 1) = ")" Or Mid(szoveg, k, 1) = "[" Or Mid(szoveg, k, 1) = "]" Or Mid(szoveg, k, 1) = "{" Or Mid(szoveg, k, 1) = "}" Then suly = suly + 1
            Next
        Next
    Next
    'sulyok átlaga suly/count
    Debug.Print suly / r.Count
End Sub