使用 VBA 将数据添加到列的末尾答案

【问题标题】：Add data to the end of a column using VBA使用 VBA 将数据添加到列的末尾
【发布时间】：2021-08-19 14:26:54
【问题描述】：

我一直试图解决这个问题，但无济于事。基本上在 A 列中会有一个可变的 ID 列表。我需要一种方法来复制此 ID 列表并将其粘贴到 B 列，但在最后添加 3 行，其中一个说“POS”，然后是“NEG”，最后是“IND”，所以看起来像。

请注意，A 列的长度总是会发生变化，因此有时会有 5 个 ID，有时可能有 12 个（永远不会超过 17 个）。我需要一个宏代码，我可以制作一个按钮来复制 A 中的所有列表，然后将 3 个额外的数字添加到 B 列中。

非常感谢！一个

A	B
X123	X123
Y123	Y123
Z123	Z123
	POS
	NEG
	IND

【问题讨论】：

标签： excel vba button

【解决方案1】：

您可以计算 A 列中的行数，将其复制到 B 列，然后添加 POS/NEG/IND。就像这样：


Row = Cells(Rows.Count, 1).End(xlUp).Row 
Range(Cells(1, 1), Cells(Row, 1)).Copy
Cells(1, 2).Select 
Selection.PasteSpecial Paste:=xlPasteValues
Cells(Row + 1, 2) = "POS"
Cells(Row + 2, 2) = "NEG"
Cells(Row + 3, 2) = "IN"

【讨论】：