时间戳

首页 > 解决方案 > 复制下一个最后一行单元格并粘贴到同一单元格中

excel - 复制下一个最后一行单元格并粘贴到同一单元格中

问题描述

我一直在尝试创建一个复制下一个单元格并将数据粘贴到同一个单元格的函数，但我真的不知道如何创建它。

任何帮助都感激不尽。

Dim Lrow As Long
With Sheet1
Lrow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("C2:C" & Lrow).Copy Sheet7.Range("A2")
.Range("I2:I" & Lrow).Copy Sheet7.Range("C2")
.Range("B2:B" & Lrow).Copy Sheet7.Range("D2")
.Range("G2:G" & Lrow).Copy Sheet7.Range("E2")
.Range("S2:S" & Lrow).Copy Sheet7.Range("F2")
.Range("D2:D" & Lrow).Copy Sheet7.Range("H2")
.Range("E2:E" & Lrow).Copy Sheet7.Range("I2")
.Range("L2:L" & Lrow).Copy Sheet7.Range("J2")
.Range("N2:N" & Lrow).Copy Sheet7.Range("K2")
.Range("Q2:Q" & Lrow).Copy Sheet7.Range("L2")
.Range("R2:R" & Lrow).Copy Sheet7.Range("M2")
.Range("M2:M" & Lrow).Copy Sheet7.Range("N2")
End Wit

标签： excelvba

解决方案

试试下面的代码。

Sub MyCopy()
Dim Lrow As Long
    With Sheet1
    Lrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    
    If Lrow <= 2 Then
        Exit Sub
    Else
        .Range("C" & Lrow).Copy Sheet7.Range("A2")
        .Range("I" & Lrow).Copy Sheet7.Range("C2")
        .Range("B" & Lrow).Copy Sheet7.Range("D2")
        .Range("G" & Lrow).Copy Sheet7.Range("E2")
        .Range("S" & Lrow).Copy Sheet7.Range("F2")
        .Range("D" & Lrow).Copy Sheet7.Range("H2")
        .Range("E" & Lrow).Copy Sheet7.Range("I2")
        .Range("L" & Lrow).Copy Sheet7.Range("J2")
        .Range("N" & Lrow).Copy Sheet7.Range("K2")
        .Range("Q" & Lrow).Copy Sheet7.Range("L2")
        .Range("R" & Lrow).Copy Sheet7.Range("M2")
        .Range("M" & Lrow).Copy Sheet7.Range("N2")
    End If
    End With
End Sub

推荐阅读