Question

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

例如：A1具有“ LT0123xx”，当我按下按钮时，我希望它将“ LT0123xx”复制到A2，然后单击下一步复制到A3，依此类推。然后，我手动将A1字段更改为所需的字段。

Answer 1

@BigBen-谢谢您指出正确的方向：)我已经找到了所需的东西。这真的很困难，因为我一生从未做过任何编码，只做了5个小时的VBA在线学习！谢谢，下面的脚本适用于任何可能需要它的人：

let users = 
[{
    user_id: '1',
    name: 'Jack'
  },
  {
    user_id: '2',
    name: 'Emma'
  },
  {
    user_id: '3',
    name: 'David'
  }
];

users = users.map(_ => new Proxy(_, { get: (target, property) => +target[property] || target[property]}))

users.forEach(({user_id, name}) => (console.log("user id: " + user_id + " is type: " + typeof user_id), console.log("name: " + name + " is type: " + typeof name)));

Answer 2

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

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

2 个答案: