Question

我想将Excel表格分成多张

例如：

假设有一张包含7列的工作表，如下所示

Column1，Column2，Column3，Column4，Column5，Column6，Column7

我想把它分成3张，如下图所示，Column1在所有表格中都很常见。

Column1，Column2，Column3 - Sheet 1

Column1，Column4，Column5 - Sheet 2

Column1，Column6，Column7 - Sheet 3

这可能吗？我已经在互联网上搜索了近一天的解决方案，但我没有任何相关的解决方案。

Answer 1

这将做你想要的：

Sub DataToDiffSheets()
Dim count As Long

    count = Application.CountA(Range("A:A"))

    Range("A1:A" & CStr(count)).Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("D1:E" & CStr(count)).Cut
    Sheets("Sheet2").Select
    Range("B1:C" & CStr(count)).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("F1:G" & CStr(count)).Cut
    Sheets("Sheet3").Select
    Range("B1:C" & CStr(count)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Sheet1").Select

End Sub

这不是最好的，它不是最干净的，但它会起作用。

将Excel工作表拆分为多个工作表

1 个答案: