如何将单元格中的数据拆分

ling00027 · 发表于 2017-12-17 14:43

本帖最后由 ling00027 于 2017-12-17 15:17 编辑

请高手帮忙，如何将左侧单元格的数据拆分成右侧的格式。谢谢

活在理想的世界 · 发表于 2017-12-17 14:47

一行分多行。

两个循环。

外循环就是数组本身

内循环就是数组的第二列。

ling00027 · 发表于 2017-12-17 14:53

活在理想的世界发表于 2017-12-17 14:47
一行分多行。

两个循环。

谢谢，请问有没有类似的代码？
我刚接触EXCEL VBA，

jiangxiaoyun · 发表于 2017-12-17 14:54

可以用powerquery，业可以使用vba

fxl447098457 · 发表于 2017-12-17 14:57

ling00027 · 发表于 2017-12-17 15:04

jiangxiaoyun 发表于 2017-12-17 14:54
可以用powerquery，业可以使用vba

嗯嗯，只是很多电脑装的都是2007，所以想用VBA代码更好实现。

ling00027 · 发表于 2017-12-17 15:12

fxl447098457 发表于 2017-12-17 14:57

谢谢。这个是用的 POWER QUERY 吧？

duquancai · 发表于 2017-12-17 15:18

ling00027 发表于 2017-12-17 15:04
嗯嗯，只是很多电脑装的都是2007，所以想用VBA代码更好实现。

边框加粗，自己玩！！！

Sub shishi()
Dim arr, brr(1 To 9000, 1 To 2)
arr = [b2].CurrentRegion
For i = 2 To UBound(arr)
      For j = 1 To arr(i, 2)
         n = n + 1
         brr(n, 1) = arr(i, 1)
         brr(n, 2) = 1
      Next
Next
[g3].Resize(n, 2) = brr
End Sub

ling00027 · 发表于 2017-12-17 15:31

duquancai 发表于 2017-12-17 15:18
边框加粗，自己玩！！！

Sub shishi()

恩恩谢谢。

yaozong · 发表于 2017-12-17 15:38

Sub test()
Dim arr, brr(1 To 60000, 1 To 2), i%, j&, k&, m&, n&
arr = Range("B3", Cells(Rows.Count, 3).End(3)).Value
For i = 1 To UBound(arr)
n = arr(i, 2)
For k = 1 To n 'arr(i, 1)
brr(m + k, 1) = arr(i, 1)
brr(m + k, 2) = 1
Next
m = m + k - 1
Next
[G2].Resize(1, 2) = [B2:C2].Value
[G2].Offset(1).Resize(m, 2) = brr
[G2].Resize(m + 1, 2).Borders.LineStyle = 1
[G2].Offset(1).Resize(m, 2).BorderAround , 3, 1
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[已解决] 如何将单元格中的数据拆分

最新热点 /1