3个回答
展开全部
试下这个VBA代码
Sub AA()
Columns("B") = ""
Dim I, I1, K
For I = 1 To Range("A65536").End(xlUp).Row
For K = Cells(I, "a") To 1 Step -1
Cells(I, "b") = Cells(I, "b") & "," & Cells(I, "a") - K + 1
Next
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在B1中输入或复制粘贴下列公式
=COLUMN(INDIRECT("A1:"&ADDRESS(1,A1,4)))
下拉填充
结果都显示1
但当你选择单元格中的公式等于号后面的所有部分,按F9,得到的就是你要的结果。
=COLUMN(INDIRECT("A1:"&ADDRESS(1,A1,4)))
下拉填充
结果都显示1
但当你选择单元格中的公式等于号后面的所有部分,按F9,得到的就是你要的结果。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询