请求协助：将Excel报表数据按列均分为两个工作表

方案1：公式实现（无需VBA） #

1. 统计有效列数 #

在数据源工作表（假设名为「数据源」）的空白单元格（比如BI1）输入公式，统计1-60列中至少含1个非空值的列数：

=SUMPRODUCT(--(MMULT(--(A1:BH1000<>""),ROW(A1:A1000)^0)>0))

注：A1:BH1000是默认数据范围，若你的数据行数更多/更少，可自行调整行号；BH是第60列

2. 拆分表1取数 #

在「拆分表1」的A1单元格输入公式，下拉、右拉填充至所需范围：

=IF(COLUMN()<=ROUNDUP(数据源!$BI$1/2,0),INDEX(数据源!$A:$BH,ROW(),COLUMN()),"")

逻辑：仅当当前列数≤有效列数的向上取整值时（比如29列时取前15列），从数据源对应位置取数，否则留空。

3. 拆分表2取数 #

在「拆分表2」的A1单元格输入公式，下拉、右拉填充：

=IF(COLUMN()<=ROUNDDOWN(数据源!$BI$1/2,0),INDEX(数据源!$A:$BH,ROW(),COLUMN()+ROUNDUP(数据源!$BI$1/2,0)),"")

逻辑：当前列对应数据源的列=当前列+拆分点（有效列数向上取整值），仅取后半部分列（比如29列时取16-29列）。

方案2：VBA宏一键拆分（高效批量处理） #

如果公式填充繁琐，用VBA自动完成：

1. 按Alt+F11打开VBA编辑器，右键点击工作簿→插入→模块
2. 粘贴以下代码：

Sub SplitValidColumns()
    Dim srcWs As Worksheet, ws1 As Worksheet, ws2 As Worksheet
    Dim validColCount As Integer, splitAt As Integer
    Dim col As Integer
    
    ' 指定数据源工作表
    Set srcWs = ThisWorkbook.Worksheets("数据源")
    
    ' 创建或获取拆分工作表
    On Error Resume Next
    Set ws1 = ThisWorkbook.Worksheets("拆分表1")
    If Err.Number <> 0 Then Set ws1 = ThisWorkbook.Worksheets.Add(After:=srcWs): ws1.Name = "拆分表1"
    Set ws2 = ThisWorkbook.Worksheets("拆分表2")
    If Err.Number <> 0 Then Set ws2 = ThisWorkbook.Worksheets.Add(After:=ws1): ws2.Name = "拆分表2"
    On Error GoTo 0
    
    ' 统计1-60列中的有效列数
    validColCount = 0
    For col = 1 To 60
        If Application.CountA(srcWs.Columns(col)) > 0 Then validColCount = validColCount + 1
    Next col
    
    ' 计算拆分点
    splitAt = Application.WorksheetFunction.RoundUp(validColCount / 2, 0)
    
    ' 清空并复制数据
    ws1.Cells.Clear: ws2.Cells.Clear
    srcWs.Columns(1).Resize(, splitAt).Copy ws1.Columns(1)
    srcWs.Columns(splitAt + 1).Resize(, validColCount - splitAt).Copy ws2.Columns(1)
End Sub

3. 将原工作表命名为「数据源」（或修改代码中srcWs的指向），按F5运行宏即可。

内容的提问来源于stack exchange，提问作者Aj Gootee