内容重写

春日秋水

想要的结构是以A列为依据，如果不包含“.",则放到D列，一个放到e列，二个放到F列。三个放到G列，依次类推。

工作簿1.rar (7.61 KB, 下载次数: 6)

2017-12-7 14:53 上传

点击文件名下载附件

如何利用VBA做呢？

此用户被禁言

1. Sub test_demo()
   
2. Dim brr(1 To 25000, 1 To 80) '''按最多79个.来操作
   
3. irow = Cells(Rows.Count, 1).End(xlUp).Row
   
4. arr = Range("A1:B" & irow)
   
5.     For k = 1 To UBound(arr)
   
6.        s = Len(arr(k, 1)) - Len(Replace(arr(k, 1), ".", ""))
   
7.        n = n + 1
   
8.        brr(n, s + 1) = arr(k, 2)
   
9.     Next
   
10.     Range("D1").Resize(n, 80) = brr
    
11.     MsgBox "完成"
    
12. End Sub
    

复制代码

ahnyt

你试试这个，看看如何