Question

这是我2天内的第二个帖子，试图自己学习excel vba。

现在我有一个工作代码，它从活动单元格中提取数据并将其粘贴到另一个工作表上。有用。但我想要做的是在它将值放在目标表上之前我想添加一些字符。所以基本上代替一组数字（例如12345）我想要显示的最终值与此类似（12345-A，55455-B，）基本上我想在最终数据中添加字符串后缀。

有什么想法吗？

ActiveCell.Cells(1, 1).Copy Destination:=Sheets("test").Range("A" & Rows.Count).End(xlUp).Offset(1)

Answer 1

目前尚不清楚你真正想要复制的内容，价值，格式，公式......不知道这一点，只是基于给出的内容：

您的代码：

ActiveCell.Cells(1, 1).Copy Destination:=Sheets("test").Range("A" & Rows.Count).End(xlUp).Offset(1)

跟随这样的事情（With块中的一行可能是您正在寻找的......）：

With Sheets("test").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .Value = "12345-A" & .Value ' this line
    .Value = .Value & "-A" ' or this line, or  whatever
End with

整件事情很难看但应该有用......

Excel 2010 VBA：在Activecell.Copy将数据粘贴到目标工作表之前添加字符

1 个答案: