2011-05-04 51 views
-1

我正在处理一个正在更改的文件,我想复制某个列的最后10行,然后将其粘贴到另一个工作表中,原始工作表会在一天中更新。Excel复制一个单元格下面的x列数量

+0

您已经有任何代码? – ariel 2011-05-04 19:32:14

+0

问题是....? – sehe 2011-05-04 19:32:23

+0

子newst() 表( “旧”),选择 columna = “G2” 范围(columna).Activate ActiveCell.End(xlDown).Activate 对于i = 1至10 Selection.Offset (-10 + I,0)。复制 表(“新”)。范围(“A2”)。偏移(I,0).PasteSpecial xlPasteValues – 2011-05-04 19:37:38

回答

0
Const COLUMN_INDEX = 1 ' Desired column 

Sub CopyValues() 
    Dim LastRow = [A65536].End(xlUp).Row ' Find the last row index 
    Dim I 
    For I = LastRow - 10 To LastRow 
     'Do something with Cells(I, COLUMN_INDEX).Value 
    Next I 
End Sub 
相关问题