Question

excel怎么用宏复制最后一列到指定位置

我想复制每天更新的最后一列的数据，假如数据更新至8/6 用宏复制8/6那一列的数据。复制到指定位置。

Answer 1

假设将最后1列的数据，复制到B列。 

使用下列宏代码：

Sub Copy_last_column_by_zzllrr()
    Dim r,c
    c=Cells(1, Columns.Count).End(xlToLeft).Column
    r=Cells(Rows.Count, c).End(xlUp).Row
    Range(Cells(1, c), Cells(r, c)).Copy Range("B1")
End Sub

具体使用方法：

1. 打开宏编辑器（快捷键Alt+F11）

2. 左侧面板右击，插入”模块“

3. 粘贴上述VBA宏代码

4. 按下快捷键F5运行，即可。
   

Answer 2

亲，这句话就是将最右边有数据的那一列，且有数据的最后一行，那一块区域复制到C13。

粘贴的位置你可以自己更改一下：

 

Sub cb()
Dim r, c As Long
c = Cells(3, Columns.Count).End(xlToLeft).Column
r = Cells(Rows.Count, c).End(xlUp).Row
Range(Cells(3, c), Cells(r, c)).Copy Range("C13")
End Sub

追问

谢谢大神

追答

是的，按 Alt+F11 打开VBA编辑窗口，在左侧对应的Sheet上双击，右边下方粘贴代码。最后点击上方的绿色三角按钮运行宏。

追问

那我只想要a，b行最后的数据怎么改呢？

追答

亲，Range("A" & Rows.Count).End(xlUp).Select 是选定A列最后一个有数据的单元格；同理，Range("B" & Rows.Count).End(xlUp).Select 是选定B列最后一个有数据的单元格

Answer 3

Sub Macro2()
'
' Macro2 Macro
'

'
Range("I3:I10").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Range("C14").Select
ActiveSheet.Paste
End Sub