求大神帮忙写一段VBA

[鲁班工作室]

我先在B表复制我需要的内容到剪切版
然后我a下宏 内容会自动粘贴到A表内。如果A表内有A1列有内容就继续向下判断。判断到没有内容就粘贴进去

[无·法]

淘宝上找人做吧

[dsd999]

我先在B表复制我需要的内容到剪切版，这个是手工复制的？不用代码吧。。 然后我a下宏 内容会自动粘贴到A表内。如果A表内有A1列有内容就继续向下判断。判断到没有内容就粘贴进去， 是粘贴到A列里第一个空单元格里吧？

[dsd999]

我先在B表复制我需要的内容到剪切版，这个是手工复制的？不用代码吧。。 然后我a下宏 内容会自动粘贴到A表内。如果A表内有A1列有内容就继续向下判断。判断到没有内容就粘贴进去， 是粘贴到A列里第一个空单元格里吧？

[鲁班工作室]

引用 3 楼 dsd999的回复:

我先在B表复制我需要的内容到剪切版，这个是手工复制的？不用代码吧。。 然后我a下宏 内容会自动粘贴到A表内。如果A表内有A1列有内容就继续向下判断。判断到没有内容就粘贴进去， 是粘贴到A列里第一个空单元格里吧？

是的 是的 大神 求教

[鲁班工作室]

引用 4 楼 syun2005的回复:

这个容易 。。。。。

刚刚接触 不太会 帮忙写上一段代码看看

[aaa152314]

我能问你一下你要干嘛么，为什么要线复制到剪切板，为什么不直接复制到想要的地方。

[aaa152314]

或者你直接说你要实现什么目的，我可以帮你写完寄给你

[coychae]

Sub 宏1() last_row = Worksheets("A表").Range("a1048576").End(xlUp).Row Worksheets("A表").Paste Destination:=Range("a" & last_row + 1) End Sub

[pugai888]

为什么 我复制A1的数值 粘贴到 A3 A5 A7 A9 录制完成以后， 写入代码 Dim i As long For i =2 To 1000 结尾加Next 让它执行到1000栏 它为什么老是在 A3A5A7A9这几栏执行呢？

[International_novice]

按你的需求写了段代码，仅供参考： 1.在sheet1页面插入一个ActiveX按钮 2.输入以下代码

Private Sub CommandButton1_Click()
Dim i As Integer

If Selection.Cells.Count >= 1 Then
    Selection.Copy
End If

For i = 1 To Sheet2.Range("a65533").End(xlUp).Row + 1
    If Sheet2.Cells(i, 1) = "" Then
        Sheet2.Cells(i, 1).PasteSpecial xlPasteAll
        GoTo Finish
    End If
Next i
    
Finish:
End Sub

3.在sheet1页面选中区域点按钮，就会复制到sheet2里面

[舉杯邀明月]

引用 10 楼 pugai888 的回复:

为什么 我复制A1的数值 粘贴到 A3 A5 A7 A9 录制完成以后， 写入代码 Dim i As long For i =2 To 1000 结尾加Next 让它执行到1000栏 它为什么老是在 A3A5A7A9这几栏执行呢？

你的代码“逻辑问题”呗……　 那个“录制宏”的代码，你需要“理解”啊，然后按你的需求修改。 你要是直接把那段代码嵌入一个For循环中了事，它肯定是不停的把你之前的“粘贴操作”重复执行N遍啊。