[已解决]解析代码？

yyyydddd8888

sdfsdfs 发表于 2013-9-16 22:50
再问一个，复制过来的数据自动一行一行往下粘贴，不会把原来的数据覆盖，这代码怎么运行的

它是在循环中，把复制的内容粘贴在从上行数据往下数的第二行，前面的数据不改变。只有在代码开头的时候写一句清除内容的语句：Columns("A:I").ClearContents 。如果运行第二次，它才会执行这一句清除内容，就会清除原来的内容，重新提取数据。
而后面的语句中，循环复制粘贴时，它会首先判断上一次的数据在哪一个位置。它是由End(3)来判断的。每一次粘贴后，End(3)的值会增加粘贴内容的行数，然后在它的下面一行（即End(3) （2））这一行进行粘贴，所以不会覆盖上一次的数据。

sdfsdfs

yyyydddd8888 发表于 2013-9-16 23:00
它是在循环中，把复制的内容粘贴在从上行数据往下数的第二行，前面的数据不改变。只有在代码开头的时候写 ...

明白了，再问一个
WOK = Dir(ThisWorkbook.Path & "\*.xls") 这里的Dir是指目录 文件名还是文件夹？

sdfsdfs

yyyydddd8888 发表于 2013-9-16 23:00
它是在循环中，把复制的内容粘贴在从上行数据往下数的第二行，前面的数据不改变。只有在代码开头的时候写 ...

End(3)(W)相当于End(3).Cells(W) 是不是？

yyyydddd8888

sdfsdfs 发表于 2013-9-16 23:24
End(3)(W)相当于End(3).Cells(W) 是不是？

对的，它们的作用相同。

yyyydddd8888

sdfsdfs 发表于 2013-9-16 23:11
明白了，再问一个
WOK = Dir(ThisWorkbook.Path & "\*.xls") 这里的Dir是指目录 文件名还是文件夹？

dir显示括号中的指定路径的中的文件名。
即dir得到的是文件名。

sdfsdfs

yyyydddd8888 发表于 2013-9-16 21:48
如果只有A1有数据，那么W=10,这时，range("A1")(10)的意思就是把数据粘贴在从A1为1开始往下数的第10个位置 ...

如果A列数据超过一行，执行代码后复制过来第一行数据紧靠A列数据最后一行，现在想在它们之间有个空行，代码怎么修改，谢谢！

yyyydddd8888

sdfsdfs 发表于 2013-9-17 18:37
如果A列数据超过一行，执行代码后复制过来第一行数据紧靠A列数据最后一行，现在想在它们之间有个空行，代 ...

                    Else
                        W = 2

把W=2改成

W = 3

sdfsdfs

yyyydddd8888 发表于 2013-9-17 19:45
Else
                        W = 2

不是这个效果，复制过来的数据每行之间不能空一行

yyyydddd8888

那是什么意思啊？

yyyydddd8888

你重新发个帖子，用附件把要达到的效果模拟一下，我看能不能做到你的要求。