同一列中的多个数据系列到多个列
里卡多·桑托斯（Ricardo Santos）
我有一个Excel文件，其中同一列中有多个系列，我希望每个系列都进入一个单独的列中
源表：
A | B
-----------|---------
Series 1.1 | Series 3.1
Series 1.2 | Series 3.2
Series 1.3 | Series 3.3
|
|
Series 2.1 | Series 4.1
Series 2.2 | Series 4.2
Series 2.3 | Series 4.3
结果表：
A | B | C |D
-----------|------------|------------|-----------
Series 1.1 | Series 2.1 | Series 3.1 | Series 4.1
Series 1.2 | Series 2.2 | Series 3.2 | Series 4.2
Series 1.3 | Series 2.3 | Series 3.3 | Series 4.3
有什么建议？
梅84
您可以尝试下面的代码将一列中的数据拆分为多列，拆分数据基于该列上的空白单元格。（对于多列，您可以再次调用此模块）
下面的代码从Sheet1中读取单元格：Column（'A'）：读取500行
Public Sub break_data()
Dim row As Integer: row = 500 'Number of rows to read on a column
Dim wks As Object 'Source Sheet
Set wks = ThisWorkbook.Sheets("Sheet1")
Dim wkr As Object 'Result Sheet
Set wkr = ThisWorkbook.Sheets("Sheet2")
Dim i As Integer: i = 1
Dim j As Integer: j = 1 'Column that you want to split
Dim x As Integer: x = 1
Dim y As Integer: y = 1
Do While (i <= 500)
If (Len(Trim(wks.Cells(i, j).Value)) > 0) Then
wkr.Cells(x, y).Value = wks.Cells(i, j).Value
x = x + 1
ElseIf (Len(Trim(wks.Cells(i, j).Value)) = 0) And (x <> 1) Then
x = 1
y = y + 1
End If
i = i + 1
Loop
End Sub
资源：
结果：（运行vba之后）
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
遍历多个数据表（共享同一列）
- 2
使用 join 从同一列返回多个数据单元格
- 3
在R中多个数据框中的一列中创建唯一值列表
- 4
在R中的多个数据框中的一列中创建唯一值列表
- 5
比较 Pandas 中的多个数据帧时在数据帧中创建一列
- 6
从第一列或多个数据创建列表/向量
- 7
基于一列添加多个数据框
- 8
按一列右连接多个数据框
- 9
网格中一列中来自多个数据源的数据
- 10
连续将多个数据添加到我的excel数据库中，但仅在同一列中
- 11
根据Python中的多个条件，将一列从多个数据框合并到另一数据框
- 12
将多个数据框连接在一起，并确保正确的数字进入同一列
- 13
如何在表的同一列的多行中从单一格式插入相同名称的多个数据
- 14
如何在表的同一列的多行中从单一格式插入相同名称的多个数据
- 15
在同一列中插入了多个值
- 16
使用同一列中的多个LIKE进行查询？
- 17
SQL-比较同一列中的多个值？
- 18
GROUP BY同一列中的多个值
- 19
从表的同一列中获取多个值
- 20
同一列中的多个过滤器
- 21
在多个工作表的同一列中的查找值
- 22
根据同一列中的多个ID选择
- 23
使用同一列中的多个LIKE进行查询？
- 24
从表的同一列中获取多个值
- 25
在同一列中插入了多个值
- 26
更新同一列中的多个值
- 27
与同一列中的多个值进行比较？
- 28
SQLite-在同一列中存储多个值
- 29
如何合并一列中具有多个元素的两个数据框
我来说两句