As a first step, you could get all the replies into a single sheet, using something like this:
==============================
Sub ReplyMerge()
' takes individual survey sheets with questions in A2 to A13, answers in B2 to B13
' puts answers into sheet 1 of open book,
' with first set of answers into B2 to B13, second set in C2 to C13, and so on.
Dim wbkReplies As Workbook
Set wbkReplies = ActiveWorkbook
Dim wshReplies As Worksheet
Set wshReplies = wbkReplies.Sheets(1)
' get name(s) of individual survey reply workbooks
SRfilenames = Application.GetOpenFilename( _
fileFilter:="Excel,*.xls", _
Title:="Select one or more survey reply files", _
MultiSelect:=True)
For SRFN = 1 To UBound(SRfilenames) ' GetOpenFilename array starts at 1
SRfilename = SRfilenames(SRFN)
Workbooks.Open (SRfilename)
Dim wbkSR As Workbook
Set wbkSR = ActiveWorkbook
Dim wshSR As Worksheet
Set wshSR = wbkSR.Sheets(1)
' copy set of answers into next column
For q = 1 To 13
wshReplies.Cells(q + 1, SRFN + 1).Value = wshSR.Cells(q + 1, 2).Value
Next
wbkSR.Activate
wbkSR.Close saveChanges:=False
Next
End Sub
==================================
How you analyse the replies depends on whether they need counting, averaging or whatever, but this should make it easier.