execl vba 代码问题问什么我写的这个代码不能运行啊谁能帮我看看呢

显示全部楼层 · 2011-4-14 09:25:21

Sub 选取单元格()

Dim x As Long

For x = 2 To Range(\"m65366\").End(xlUp).Row

Range(\"m\" defds123 x).Select

Next x

Selection.Copy
Sheets(\"暂存票\").Select

Range(l5).Select

ActiveSheet.Paste

End Sub

千问 · 2011-4-14 09:25:21

<pre class=\"replyask-text\" id=\"content-3063155\">还是不行啊
我把 nextx 放后面之后显示（方法\'range‘作用于对象\'_worksheet\'时失败）
在帮我看看啊
非常感谢

千问 · 2011-4-14 09:25:21

<pre class=\"replyask-text\" id=\"content-3063240\">你说说你的作用，是做什么用的，就是要达到的目的

千问 · 2011-4-14 09:25:21

<pre class=\"replyask-text\" id=\"content-3063355\">你有没有QQ号啊
我能加你吗

千问 · 2011-4-14 09:25:21

<pre class=\"replyask-text\" id=\"content-3063502\">我QQ已经过到500人了，加不了呀，你直接说达到的效果或发我邮箱[email protected]

千问 · 2011-4-14 09:25:21

<pre class=\"replyask-text\" id=\"content-3063765\">好吧我是想把在第一张表内的内容复制到第二张表里面第一张表相当是一个台账把第一表内的最后一行复制到第二个表内并且把第二个表打印
谢谢啊帮我看看

千问 · 2011-4-14 09:25:21

<pre class=\"replyask-text\" id=\"content-3063841\">只是最后一行是吗

千问 · 2011-4-14 09:25:21

<pre class=\"replyask-text\" id=\"content-3064091\">是

千问 · 2011-4-14 09:25:21

<pre class=\"replyask-text\" id=\"content-3064721\">拷贝过去只要一句话就行了的呀
Sub 选取单元格()

Dim x As Long

x = Range(\"m65366\").End(xlUp).Row

Range(\"m\" defds123 x).Copy Sheets(\"暂存票\").Range(\"L5\")
End Sub
已经发文件HI，请查收。

execl vba 代码问题 问什么我写的这个代码不能运行啊 谁能帮我看看呢

execl vba 代码问题问什么我写的这个代码不能运行啊谁能帮我看看呢