作为专业的excel从业人员，请写出vbs代码，将表格中有数据的每一列拆分为个表，将每个表这列数据中按照960列，540行填充数据

以下是vbs代码实现：

'定义Excel对象
Dim objExcel
'创建Excel对象
Set objExcel=CreateObject("Excel.Application")
'设置Excel程序不可见
objExcel.Visible=False
'打开要处理的Excel文件
Set objWorkbook=objExcel.Workbooks.Open("D:\example.xlsx")
'遍历每个工作表
For Each objWorksheet in objWorkbook.Worksheets
    '获取数据范围
    Set objRange=objWorksheet.UsedRange
    '获取列数
    intColumns=objRange.Columns.Count
    '遍历每一列
    For i=1 to intColumns
        '获取列标题
        strColumnName=objWorksheet.Cells(1,i).Value
        '创建新工作表
        Set objNewWorksheet=objWorkbook.Worksheets.Add()
        '重命名新工作表
        objNewWorksheet.Name=strColumnName
        '获取列数据范围
        Set objColumnRange=objWorksheet.Range(objWorksheet.Cells(2,i),objWorksheet.Cells(objRange.Rows.Count,i))
        '获取数据行数
        intRows=objColumnRange.Rows.Count
        '计算需要拆分的表的个数
        intTableCount=Int(intRows/540)+IIf(intRows Mod 540>0,1,0)
        '遍历每个表
        For j=1 to intTableCount
            '计算当前表的起始行和结束行
            intStartRow=(j-1)*540+2
            intEndRow=Int(intRows/intTableCount*j)+IIf(intRows Mod intTableCount>=j,1,0)+1
            '获取当前表的数据范围
            Set objTableRange=objColumnRange.Range(objColumnRange.Cells(intStartRow,1),objColumnRange.Cells(intEndRow,1))
            '计算需要填充的空白行数
            intBlankRows=540-objTableRange.Rows.Count
            '填充空白行
            If intBlankRows>0 Then
                Set objBlankRange=objNewWorksheet.Range(objNewWorksheet.Cells(objNewWorksheet.UsedRange.Rows.Count+1,1),objNewWorksheet.Cells(objNewWorksheet.UsedRange.Rows.Count+intBlankRows,960))
                objBlankRange.Value=""
            End If
            '将数据复制到新工作表中
            Set objDestinationRange=objNewWorksheet.Range(objNewWorksheet.Cells(objNewWorksheet.UsedRange.Rows.Count+1,1),objNewWorksheet.Cells(objNewWorksheet.UsedRange.Rows.Count+objTableRange.Rows.Count-1,960))
            objTableRange.Copy objDestinationRange
        Next
    Next
Next
'保存并关闭Excel文件
objWorkbook.Save
objWorkbook.Close
'退出Excel程序
objExcel.Quit
Set objExcel=Nothing

该代码会遍历Excel文件中的每个工作表，将每一列数据拆分为多个表，并将每个表中的数据按照960列，540行填充。具体实现思路如下：

1. 遍历每个工作表；
2. 获取每个工作表的数据范围；
3. 遍历每一列；
4. 获取列标题，创建新工作表并重命名；
5. 获取该列的数据范围；
6. 计算需要拆分的表的个数；
7. 遍历每个表；
8. 计算当前表的起始行和结束行；
9. 获取当前表的数据范围；
10. 计算需要填充的空白行数；
11. 填充空白行；
12. 将数据复制到新工作表中；
13. 重复步骤3-12，直到遍历完所有列；
14. 重复步骤1-13，直到遍历完所有工作表；
15. 保存并关闭Excel文件；
16. 退出Excel程序。