求大神指教，wps表格在单个表格中，字数不相同的情况下怎么快速的拆分并向下填充呢

Question

求大神指教，wps表格在单个表格中，字数不相同的情况下怎么快速的拆分并向下填充呢

Answer 1

你好！看了楼主的问题，没有一个示例，确实不太理解楼主的意思，也就大致给出两种方案：

①如果是按行向下快速填充，此时可以采用分列的方法进行处理。即：点击【数据】、【分列】，再以“/”为分隔符。

②如果要单独拆分成一列向下填充，此时还是使用VBA程序处理比较快捷，程序代码如下：

Sub Chaifen()

Dim i1, i2, i3, i4, i5

On Error Resume Next

Set mysheet4 = ThisWorkbook.Worksheets("Sheet4")  '定义Sheet4

i5 = 1  '从B列第2行开始填充

For i1 = 2 To 1000  '从第2行到1000行

If mysheet4.Cells(i1, 1) <> "" Then

i4 = 0

For i2 = 1 To 20  '执行约20次循环

i3 = i4

i4 = InStr(i3 + 1, mysheet4.Cells(i1, 1), "/")  '获取“/”所在的位置

i5 = i5 + 1

If i4 <> 0 Then

mysheet4.Cells(i5, 2) = Mid(mysheet4.Cells(i1, 1), i3 + 1, i4 - i3 - 1)  '填充到B列的单元格

Else

mysheet4.Cells(i5, 2) = Right(mysheet4.Cells(i1, 1), Len(mysheet4.Cells(i1, 1)) - i3)

Exit For

End If

Next

End If

Next

End Sub

Answer 2

B1单元格输入公式=IFERROR(MID(A$1,FIND("@",SUBSTITUTE("/"&A$1&"/","/","@",ROW(A1))),FIND("@",SUBSTITUTE("/"&A$1&"/","/","@",ROW(A2)))-1-FIND("@",SUBSTITUTE("/"&A$1&"/","/","@",ROW(A1)))),"")

下拉公式。 如图：

本回答被提问者采纳