Excel 2010 VBA:在Activecell之前添加字符。复制将数据粘贴到目标工作表

这是我两天内的第二个线程，我试图自己学习excel vba

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

有什么想法吗

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

---

现在还不清楚你真正想复制什么，值，格式，公式。。。不知道这一点，但仅基于给出的信息：

您的代码：

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

下面是这样的内容（with块中的一行可能就是您要查找的内容…）：

---

整件事都很难看，但应该可以解决…

哦，等等，我想出来了，而不是在“Sheets”（“test”）.Range（“A”）和Rows.Count.End（xlUp）。Value=Sheets（“test”）.Range（“A”）和Rows.Count.End（xlUp）。Value+“-C”之后加上后缀“我做了”

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