怎么让EXCEL里，单词音标词意分列，菜鸟一枚求指点

Question

第一张事例花了一整个晚上，剪切黏贴，半条命已不在，有办法最

好，谢谢

Answer 1

亲，对您的精神表示无比的敬佩……
B1粘贴公式：
=TRIM(LEFT(A1,FIND("/",A1)-1))
C1：=TRIM(MID(A1,FIND("/",A1),FIND("☆",SUBSTITUTE(A1,"/","☆",2))-FIND("/",A1)+1))
D1：=TRIM(RIGHT(A1,LEN(A1)-FIND("☆",SUBSTITUTE(A1,"/","☆",2))))
选中B1~D1，全部下拉。

最后，把B~D列复制、粘贴为数值，删除A列。

追问

哇塞，更有用，但最后那一招不是很懂，黏贴为数值就不知道是什么了

追答

亲，选中B~D列，右键——复制。这个会吧。

然后，还是这个选中状态，立马再点右键——粘贴123（这个就是粘贴为数值）

 

追问

好的，谢谢你

Answer 2

Option Explicit
Sub fl()
Dim i As Integer, j As Integer, h As Integer
Dim arr, arr1(1 To 50000, 1 To 3)
For i = 1 To Sheets.Count
 h = Sheets(i).Range("a65536").End(xlUp).Row
 arr = Sheets(i).Range("a1:a" & h)
 For j = 1 To UBound(arr)
  arr1(j, 1) = Split(arr(j, 1), "/")(0)
  arr1(j, 2) = "/" & Split(arr(j, 1), "/")(1) & "/"
  arr1(j, 3) = Split(arr(j, 1), "/")(2)
 Next j
 Sheets(i).Range("a1").Resize(UBound(arr1), 3) = arr1
Next i
End Sub

VBA小代码直接运行就ok

Answer 3

先用替换功能将两个//替换成@@@
然后再分列。。最后再将@@@替换成//即可

Answer 4

用数据-分列 功能，分隔符号为 /

追问

谢谢，很好用，可是这样//这个符号就没有了。。

追答

加上很容易，在D1输入：=“/"&b1&"/" 下拉填充，就加回来了。