3个回答
展开全部
在A2用这个公式
=IF(LEN($A$1)>=INT((ROW()-2)/LEN($A$1))+MOD(ROW()-2,LEN($A$1))+2,MID($A$1,INT((ROW()-2)/LEN($A$1))+1,1) & MID($A$1,INT((ROW()-2)/LEN($A$1))+MOD(ROW()-2,LEN($A$1))+2,1),"")
有点长,也会有一些空白格,但能通过排序来去除.
=IF(LEN($A$1)>=INT((ROW()-2)/LEN($A$1))+MOD(ROW()-2,LEN($A$1))+2,MID($A$1,INT((ROW()-2)/LEN($A$1))+1,1) & MID($A$1,INT((ROW()-2)/LEN($A$1))+MOD(ROW()-2,LEN($A$1))+2,1),"")
有点长,也会有一些空白格,但能通过排序来去除.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
VBA 可以吗?
右键单击工作表标签——查看代码——把下面代码粘贴上后按F5即可
Sub 排列组合()
Dim i As Integer, j As Integer, l As Integer, k As Integer
k = 2
l = Len(Range("a1"))
For i = 1 To l - 1
For j = i + 1 To l
Cells(k, 1) = Mid(Range("a1"), i, 1) & Mid(Range("a1"), j, 1)
k = k + 1
Next
Next
End Sub
右键单击工作表标签——查看代码——把下面代码粘贴上后按F5即可
Sub 排列组合()
Dim i As Integer, j As Integer, l As Integer, k As Integer
k = 2
l = Len(Range("a1"))
For i = 1 To l - 1
For j = i + 1 To l
Cells(k, 1) = Mid(Range("a1"), i, 1) & Mid(Range("a1"), j, 1)
k = k + 1
Next
Next
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=left($A$1,1)&mid($A$1,row(),1)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询