当前位置：首页 - 正文

请教excel高手如何把A列,变成B列,A列数字展开

发布网友发布时间：2022-05-09 19:23

共4个回答

热心网友时间：2023-10-14 22:59

工作表标签上单击右键--查看代码

在代码窗口粘贴下面的代码后,按F5执行

Sub test()
For i = 1 To Range("a65536").End(xlUp).Row
    For j = 1 To Range("A" & i)
        Range("B" & Range("B65536").End(xlUp).Row + 1) = j
        Next
    Next
    Range("B1").Delete
End Sub

热心网友时间：2023-10-14 22:59

Sub aa()
Range("b:b").Clear
k1 = [a65536].End(3).Row
For i = 1 To k1
y = 1
k = [b65536].End(3).Row
If k = 1 Then k = 0
For m = 0 To Cells(i, 1) - 1

Cells(m + k + 1, 2) = y
y = y + 1
Next

Next
End Sub

热心网友时间：2023-10-14 23:00

最后将E，筛选，删除空白行

热心网友时间：2023-10-14 23:00

看错题意了。。。。要用VBA才能解决的

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com