[已解决]用公式或VBA实际按相关要求分列显示提取数据

zhuying5221 · 发表于 2017-5-9 17:48

如何用公式或VBA根据店铺名称列中“，”进行分列，把数据分行提取出来进行转换成分行显示

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2017-5-9 19:01

Option Explicit
Sub test()
Dim arrSrc, arrRst(), arrName
Dim lrow&, lCnt&
Dim irow%
arrSrc = Range("a1").CurrentRegion.Value
For lrow = 1 To UBound(arrSrc)
arrName = Split(arrSrc(lrow, 2), "，")
For irow = 0 To UBound(arrName)
lCnt = lCnt + 1
ReDim Preserve arrRst(1 To 2, 1 To lCnt)
arrRst(1, lCnt) = arrSrc(lrow, 1)
arrRst(2, lCnt) = arrName(irow)
Next
Next
Range("c1").Resize(lCnt, 2) = Application.Transpose(arrRst)
End Sub

复制代码

跳转到最佳答案楼层

Excel学徒123 · 发表于 2017-5-9 19:01

这个最佳答案由 Excel学徒123 给出，感谢 Excel学徒123 的回答。

单击隐藏图章

Option Explicit
Sub test()
Dim arrSrc, arrRst(), arrName
Dim lrow&, lCnt&
Dim irow%
arrSrc = Range("a1").CurrentRegion.Value
For lrow = 1 To UBound(arrSrc)
arrName = Split(arrSrc(lrow, 2), "，")
For irow = 0 To UBound(arrName)
lCnt = lCnt + 1
ReDim Preserve arrRst(1 To 2, 1 To lCnt)
arrRst(1, lCnt) = arrSrc(lrow, 1)
arrRst(2, lCnt) = arrName(irow)
Next
Next
Range("c1").Resize(lCnt, 2) = Application.Transpose(arrRst)
End Sub

复制代码

zhuying5221 · 发表于 2017-5-9 19:56

好的，谢谢，我试一下

zhuying5221 · 发表于 2017-5-9 20:09

可以实现大概说明一下这些语句的意思呢

zhuying5221 · 发表于 2017-5-9 20:10

Excel学徒123 发表于 2017-5-9 19:01

可以实现，能不能大概说明一下这些语句的意思呢

Excel学徒123 · 发表于 2017-5-9 20:23

zhuying5221 发表于 2017-5-9 20:10
可以实现，能不能大概说明一下这些语句的意思呢

就一个拆分然后写入数组，没其他什么东西，要是看不懂，说明基础还不到位，加油学吧

zhuying5221 · 发表于 2017-5-9 20:25

Excel学徒123 发表于 2017-5-9 19:01

我想从第4列才开始按这样的方法进行显示（1-3列按第4列重复的分列进行），如何进行更改VBA的，如附件的图片一样

Excel学徒123 · 发表于 2017-5-9 20:26

zhuying5221 发表于 2017-5-9 20:25
我想从第4列才开始按这样的方法进行显示（1-3列按第4列重复的分列进行），如何进行更改VBA的，如附件的图 ...

自己改吧，哪有那么多精力来帮你整这些呢

Excel学徒123 · 发表于 2017-5-9 20:28

ReDim Preserve arrRst(1 To 4, 1 To lCnt)
         arrRst(1, lCnt) = arrSrc(lrow, 1)
         arrRst(2, lCnt) = arrSrc(lrow, 2)
         arrRst(3, lCnt) = arrSrc(lrow, 3)
         arrRst(4, lCnt) = arrName(irow)

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