excel 按'/'分行

发布网友 发布时间：2022-04-24 12:31

我来回答

共3个回答

热心网友 时间：2023-10-12 22:34

有一个不是很直接的办法：

将A列复制到B列，分列，以“/”区分，分到B-F列

使用数组函数：

ctrl+shift+enter

热心网友 时间：2023-10-12 22:34

将单元格复制到Word中，在Word中执行替换, / 替换成 ^p，再复制回来即可。
这个方法偶尔用应是非常实用的，如果要经常用，还是编个VBA代码方便些。

先选中顶上第一格，再执行宏。（注意这一列中间不能有空格，遇空格即停止执行）

Sub Macro1()
Do
x = ActiveCell.Value
y = InStr(x, "/")

If x = "" Then End
If y <> 0 Then
ActiveCell.Value = Left(x, y - 1)
ActiveCell.Offset(1, 0).Select '下移一行
If Len(x) <> y Then
Selection.EntireRow.Insert '插入一行
ActiveCell.Value = Right(x, Len(x) - y)
End If
Else
ActiveCell.Offset(1, 0).Select '下移一行
End If
Loop
End Sub

热心网友 时间：2023-10-12 22:35

Sub LKJL()
Set d = CreateObject("scripting.dictionary")
For i = 2 To [a65536].End(3).Row
   ss = Split(Cells(i, 1), "/")
   For x = o To UBound(ss)
       If ss(x) <> "" Then
       d(i & " " & x) = ss(x)
       End If
   Next
Next
Range("B2").Resize(d.Count, 1) = Application.Transpose(d.items)
Set d = Nothing
End Sub