想请问各位老师如何自动分割并排列单一单元格的资料

haven1988

想请问各位老师，关于字符串的分割与规则排序的方式

原始数据内的项目条目有许多分类

如图

我现在需要把项目与分类变得一项一项的向下排

请问有什么写法能完成这样的动作吗?

TEST FILE.zip (420.61 KB, 下载次数: 4)

2020-6-14 19:51 上传

点击文件名下载附件
TEST

shuidisyy

1. Sub test()
   
2.     Dim arr, arrT, brr, i%, k&, j%
   
3.     arr = Sheets("比对信息1").Range("a1").CurrentRegion.Value
   
4.     ReDim brr(1 To UBound(arr) * 20, 1 To 4)
   
5.     For i = 1 To UBound(arr)
   
6.         arrT = Split(arr(i, 4), ",")
   
7.         For j = 0 To UBound(arrT)
   
8.             k = k + 1
   
9.             brr(k, 4) = arrT(j)
   
10.             brr(k, 1) = arr(i, 1)
    
11.             brr(k, 2) = arr(i, 2)
    
12.             brr(k, 3) = arr(i, 3)
    
13.         Next j
    
14.     Next i
    
15.     Sheets("结果").Range("a1").Resize(k, 4) = brr
    
16. End Sub

复制代码

金樽空对月

详见附件，请查阅

心正意诚身修

这个题 也可以借助WORDR的替换+EXCEL的定位填充技巧来完成。见动图  可能GIF 不是很清楚。我再把细节描述 一下。WORD查找 ,替换为^13  勾选使用通配符。 回到EXCEL里面。F5定位空  在编辑栏输入=A1 按CTRL+ENTER批量填充完成。