请问大神查看自己录制的宏，编写的代码运行不对. 请大神帮忙看下.

aooki

请问大神查看自己录制的宏，编写的代码运行不对. 请大神帮忙看下.

Sub fen()

Dim a$, b$, c$, d$, e$, f$
a = A1
b = "b" & [d1] / [d2]
c = "a" & ([d1] / [d2]) + 1
d = "b" & [d1] / [d2] * 2
e = "a" & ([d1] / [d2]) * 2 + 1
f = "b" & [d1]

With Sheet1

    Range("a:b").Select             ' 这里表述的a，b 是上面计算后的a，b；实际运行时变成了A列和B列....
    Selection.Copy
    Range("E1").Select
    ActiveSheet.Paste
    Range("c:d").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("G1").Select
    ActiveSheet.Paste
    Range("e:f").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("I1").Select
    ActiveSheet.Paste

End With
End Sub

kuangben8

楼主说说你想要干什么吧？这样可能还好提供帮助一些。

aooki

就是把左边的A列和B列的数据，平均分到右边的几列.有些数据的行数不一定一样， 所以设置一个行数，和一个平均分几段.