使用Excel VBA复制100多个表相同位置的列的数据汇总到一个新表中

你的意思应该是将每个表中特定的一列取出来汇总到新表中吧？
Sub QuLieHuiZong()

Const colNo As Integer = 1 '我现在写的1，表示取A列，取哪一列就把列号改一下，B列是2，以此类推

Dim i As Integer
Dim bk As Workbook
Dim sht As Worksheet

Set bk = ActiveWorkbook
Set sht = bk.Worksheets.Add '新建一个工作表存放汇总的数据
sht.Name = "汇总"

For i = 2 To bk.Worksheets.Count
bk.Worksheets(i).Columns(colNo).Copy '拷贝每个表中特定的那一列
sht.Columns(i - 1).Select
sht.Paste '粘贴到汇总表中
Next i
sht.Cells(1, 1).Select '汇总表的光标归位
End Sub

实际上不管你是什么表名，不要叫汇总表即可，新建一个叫汇总表的工作表，把其他工作表你要的数据汇总在一起来，实际上你不是计算的汇总，而是把一定的数据集中到一起罢了。
你要哪列数据呢？结果又是怎么排列的？

100多个表文件名有规律么