将整列拆分为多个工作表 [英] Split whole columns into multiple worksheets

问题描述

我想将Excel数据拆分成多个工作表。在该excel文件中，我有15-20列需要拆分在不同的工作表中，然后分配这些列的新名称。我是Macro Programming的新手。如果有人
可以帮助我，我将不胜感激。

I want to split an excel data into multiple worksheets. In that excel file, I have 15-20 columns which need to split in different worksheets and then assign a new name of those columns. I am new to Macro Programming. I would be appreciated if somebody can help me with this.

谢谢。

  V. 

 V. 

推荐答案

您好
varinups，

请使用下面提到的代码。

please use the code mentioned below.

Sub demo()
Dim i As Long
Dim lastColumn As Long
lastColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To lastColumn
Sheets.Add.Name = "New Sheet" & i
Sheets("Sheet1").Columns(i).Copy Destination:=Sheets("New Sheet" & i).Columns(1)
Next i
End Sub

示例我的下表有5列

然后它会用新名称拆分新表格中的每一列。

then it will split each column in new sheet with new name.

问候

Deepak

这篇关于将整列拆分为多个工作表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！