1个回答
展开全部
这个只能用VBA来解决了。但必须知道你的表格结构。你发的图没有列标，不好确认。
更多追问追答
追问
是这样的 总共有七十多行 就两列
求VBA代码，感谢/(ㄒoㄒ)/~~
追答
Private Sub CommandButton1_Click()
Dim i%, st$, str$, arr
For i = 2 To [b65536].End(3).Row
st = Cells(i, 2)
arr = Split(st, "；")
str = "1）" & arr(0)
If UBound(arr) > 0 Then
For j = 1 To UBound(arr)
str = str & Chr(10) & j + 1 & "）" & arr(j)
Next
End If
Cells(i, 3) = str
Next
End Sub
效果图如下：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这里暂时保留了原有的数据。
如果想在原有数据中修改，只需要将后面的Cells(i, 3) = str，中的3改为2就行了。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
