跳到主要内容

如何在Excel中将长列拆分为多列?

doc拆分为多个列4
如果您在Excel中有很长的列数据,则在查看它们时会很麻烦。 但是现在,如果您可以在Excel中将如此长的列表拆分为多个列,则将使查看变得很方便。
使用VBA将长列拆分为多列
使用 Kutools for Excel 将长列拆分为多列 好主意3

箭头蓝色右气泡 使用VBA将长列拆分为多列

1。 按 Alt + F11键 钥匙一起打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块 并将下面的VBA代码复制到弹出的窗口中。

VBA:将长列拆分为多列。

Sub SplitColumn()
	'Updateby20141106
	Dim rng As Range
	Dim InputRng As Range
	Dim OutRng As Range
	Dim xRow As Integer
	Dim xCol As Integer
	Dim xArr As Variant
	xTitleId     = "KutoolsforExcel"
	Set InputRng = Application.Selection
	Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
	xRow         = Application.InputBox("Rows :", xTitleId)
	Set OutRng   = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
	Set InputRng = InputRng.Columns(1)
	xCol         = InputRng.Cells.Count / xRow
	ReDim xArr(1 To xRow, 1 To xCol + 1)
	For i = 0 To InputRng.Cells.Count - 1
		xValue = InputRng.Cells(i + 1)
		iRow = i Mod xRow
		iCol = VBA.Int(i / xRow)
		xArr(iRow + 1, iCol + 1) = xValue
	Next
	OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub

3。 点击 运行 按钮或按下 F5 键以运行VBA,并弹出一个对话框,用于选择数据列表,然后单击 OK 在下一个对话框中指定一列中需要多少行,然后单击 OK 并选择一个单元格以输出结果。 查看屏幕截图:

doc分割为多个栏1
文档箭头
doc分割为多个栏2
文档箭头
doc分割为多个栏3


4。 点击 OK,那么您可以看到长列被拆分为多列,每列有15个单元格。
doc分割为多个栏4


箭头蓝色右气泡 使用 Kutools for Excel 将长列拆分为多列

也许有些人不喜欢使用VBA代码,幸运的是,您可以使用 变换范围 实用程序 Kutools for Excel 快速轻松地将长列转换为固定数量的列。

Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。 

安装后 Kutools for Excel,请执行以下操作:(立即免费下载Kutools for Excel!)

1.选择要拆分的列数据,然后单击 库工具 > 范围 > 变换范围。 看截图:
doc 拆分 kte 1

2.在弹出的对话框中,选中 单列到范围 选项,然后检查 固定值 选项,然后在文本框中输入所需的列数。 看截图:doc 拆分 kte 2

3。 点击 Ok 并选择一个单元格以输出拆分数据。 看截图:
doc 拆分 kte 3

4。 点击 OK 完成操作。 现在,长列数据已分为三列。
doc 拆分 kte 4

它比VBA代码容易吗? 带T变换范围 实用程序,您可以将行转换为范围,将范围转换为行或一列。

箭头蓝色右气泡 将单列/行转置到范围,反之亦然



根据定界符快速将一个单元格拆分为列或行

在Excel中,使用向导逐步将单元格拆分为列很麻烦。 但是随着 Kutools for Excel's 分裂细胞 实用程序,您可以:1,根据定界符将一个单元格转换为列或行; 2,将字符串转换为文本和数字; 3,根据具体的宽度,点击转换字符串。  点击获取全功能 30 天免费试用!
doc拆分单元格
 
Kutools for Excel:拥有300多个便捷的Excel加载项,可以在30天内免费试用。

最佳办公生产力工具

热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

kte选项卡201905


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Really awesome...
This comment was minimized by the moderator on the site
Thank you so much!It's a big problem to copy web table to Excel.Thanks to your script I finally managed it.
This comment was minimized by the moderator on the site
Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations