求助单元格数据分列

zshowell

Tienx332570665 发表于 2024-3-15 20:18
您好，老师，我填进函数显示#NAME?

旧版本没有这个函数

世界客都

Tienx332570665 发表于 2024-3-15 20:12
您好，老师为什么我填进函数显示#NAME?

朋友您好，您标注的表格版本为WPS，WPS最新版已经有了TOCOL函数
请您到WPS官网下载最新版的WPS吧。祝您生活愉快，谢谢。

Tienx332570665

zshowell 发表于 2024-3-15 20:40
旧版本没有这个函数

谢谢老师，已经可以了

Tienx332570665

世界客都 发表于 2024-3-15 20:41
朋友您好，您标注的表格版本为WPS，WPS最新版已经有了TOCOL函数
请您到WPS官网下载最新版的WPS吧。祝您 ...

谢谢老师，可以了

世界客都

Tienx332570665 发表于 2024-3-15 21:00
谢谢老师，可以了

有什么需要的可以随时在论坛交流

swl4561255

练练手，来段VBA，见笑了。

1. Sub 分列()
   
2. Dim brr()
   
3. ar = [A65536].End(3).Row
   
4. For i = 2 To ar
   
5.   If Cells(i, 1) <> "" Then
   
6.     s = Replace(Cells(i, 2), ";", ",")
   
7.     arr = Split(s, ",")
   
8.     r = [d65536].End(3).Row + 1
   
9.     Range("D" & r).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
   
10.   End If
    
11. Next
    
12. End Sub
    

复制代码

Tienx332570665

swl4561255 发表于 2024-3-16 07:06
练练手，来段VBA，见笑了。

厉害了，谢谢老师