vba按列拆分工作表保留公式

您可以使用VBA按列拆分工作表并保留公式。下面是一些可以帮助您实现此功能的示例代码：

Sub SplitColumns()
    Dim i As Integer
    Dim lastRow As Integer
    Dim lastCol As Integer
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 2 To lastCol
        Columns(i).Insert Shift:=xlToRight
        Range(Cells(1, i), Cells(lastRow, i + 1)).Formula = _
            Range(Cells(1, i - 1), Cells(lastRow, i - 1)).Formula
        i = i + 1
    Next i
End Sub
这个代码会将选中的工作表中的每一列拆分成两列，并将拆分后的第二列插入到原来的位置。这个代码还会将每一列的公式复制到新插入的列中。
请注意，这个代码仅适用于选中的工作表。如果您要在多个工作表中使用此代码，请修改代码以适应您的需求。
希望这个代码能够帮助您实现您的需求。如果您有任何问题，请告诉我。