[已解决]各位论坛老师，vba能自动选择某列最下端数值的下一行的某个单元格吗？

yslvictor

如图：

我想把G2:K2的内容拷贝到E列的最下端数值的下一个空白单元格所在的行中，从A列开始粘贴，（本图是行7，如果E7有数值就是行8.）录制段宏，请高手填一段代码。谢谢。

Sub Macro1()
    Range("G2:K2").Select
    Selection.Copy
  'Range("A7").Select    在这一行填代码,不一定在A7上粘贴，要看E列的最后一个数值在哪一行。
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Book1.rar (4.81 KB, 下载次数: 13)

2012-12-19 22:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

youfang

2012-12-19 22:52

Sub Macro1()
    Range("G2:K2").Select
    Selection.Copy
  Cells(Range("e65536").End(3).Row + 1, 1).Select     
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

跳转到最佳答案楼层

youfang

Range("e65536").End(3).Row'这是找E列最后一个非空单元格所在行数的代码
在A列下一个单元格填充数据，代码为:
cells(Range("e65536").End(3).Row+1,1)
希望对你有帮助

hwc2ycy

1. Sub 复制()
   
2.     Dim i&
   
3.     Application.ScreenUpdating = False
   
4.     i = Cells(Rows.Count, "e").End(xlUp).Row + 1
   
5.     Range("g2:k2").Copy Cells(i, 1)
   
6.     Application.CutCopyMode = False
   
7.     Application.ScreenUpdating = True
   
8. End Sub

复制代码

hoogle

Sub hoogle()
Range("G2:K2").Copy
Cells(Range("e65536").End(3).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
  

youfang

Sub Macro1()
    Range("G2:K2").Select
    Selection.Copy
  Cells(Range("e65536").End(3).Row + 1, 1).Select     
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

yslvictor

各位论坛老师的代码都好用，现还有问题，我要复制两行，这两行都含公式，粘贴数值后不好使。怎么办？看看附件。
Book2.rar (7.37 KB, 下载次数: 5)

2012-12-20 00:03 上传

点击文件名下载附件

zhoucs00

1. Sub zhoucs00()
   
2.    Dim i As Integer
   
3.    i = Sheet1.Cells(Rows.Count, "E").End(3).Row + 1
   
4.    Range("G2:K3").Copy Cells(i, 1)
   
5. End Sub

复制代码

虽然有答案了，也过来学习一下。

yslvictor

谢谢各位论坛老师，受益匪浅。