新手求助

jinbinghao

我按《别怕，Excel其实很简单》里的批量对数据分类粘出去的数据怎么没有表头呢，书上演示的有啊，代码如下。
Sub 粘贴()
Dim i As Long, bj As String, rng As Range
i = 2
bj = Cells(i, "C").Value
Do While bj <> ""
Set rng = Worksheets(bj).Range("a65536").End(xlUp).Offset(1, 0)
Cells(i, "A").Resize(1, 7).Copy rng
i = i + 1
bj = Cells(i, "C").Value
Loop
End Sub

jinbinghao

有高手来帮帮忙呀！这个应该不难吧

jinbinghao

现在再看看以前问的东西好白痴。呵呵！

abcat

半年过去了都没有人回复你
不过看来半年你的长进不少
不知道半年后我能看懂你写的啥不

jinbinghao

abcat 发表于 2016-1-20 08:31
半年过去了都没有人回复你
不过看来半年你的长进不少
不知道半年后我能看懂你写的啥不

呵呵！要学的话到也挺快的，多试着写一些代码，前期写的有些吃力，慢慢就好了。主要是多用。