高难度EXCEL问题

答案:3 悬赏:20 手机版

解决时间 2021-05-01 16:30

提问者网友：美人性情
2021-04-30 18:14

表1中A列有若干内容从A1一直排列到A500~ 想要把A1~A500的内容利用宏转移到表2~表501中B2单元格内!如有需要可传送具体文件给专家演示!

最佳答案

五星知识达人网友：西岸风
2021-04-30 19:39

Sub 宏()
For i = 1 To 500
    x = "a" + i
    y = "Sheet" + (1 + i)
    Sheets("Sheet1").Select
    Range(x).Select
    Selection.Cut
    Sheets(y).Select
    Range("B2").Select
    ActiveSheet.Paste
Next
End Sub

这样就可以啦！不过运行起来可能会很费时间呢

全部回答

1楼网友：山有枢
2021-04-30 21:40

二楼的代码多是冗余，速度会很慢。文件发908856685@qq.com，帮你写。

2楼网友：街头电车
2021-04-30 20:22

你打开宏，在宏里边写代码：

Sub AutoComplete()

Dim col As Integer

'Copy here.... For col = 1 To 500

Sheet2.Range("B" & 500 + col).Value = Sheet1.Range("A" & col).Value Sheet1.Range("A" & col).Value = "" Next

End Sub

然后切换到sheet1，运行宏即可

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息