时间戳

首页 > 解决方案 > 如何使用 VBA 将单元格 A1 中的值（例如 LT0123）复制到单元格 A2？

excel - 如何使用 VBA 将单元格 A1 中的值（例如 LT0123）复制到单元格 A2？

问题描述

简而言之，我想创建一个宏并将其分配给一个形状，以便在每次单击时将相同的信息填充到每个新/空行中。

例如：A1 有“LT0123xx”，当我按下按钮时，我希望它把“LT0123xx”复制到 A2，然后再点击进入 A3，依此类推。然后我手动将 A1 字段更改为我需要的字段。

标签： excelvba

解决方案

Sub CopyToLastCell()
Dim xValue As Variant
    xValue = Range("A1")
    Cells(Rows.Count, "A").End(xlUp).Offset(1) = xValue
End Sub

推荐阅读