Excel 从特定单元格复制整行

我对vba比较陌生。从特定单元格复制行时出现问题。也就是说，如果我的单元格位置是D5，那么它应该将整行从该单元格位置复制到表2中的单个单元格中。我需要复制的单元格总数

---

提前感谢。

假设activecell是感兴趣的单元格，要复制行上的所有单元格，您可以使用：

StartCol = ActiveCell.End(xlToLeft).Column
EndCol = ActiveCell.End(xlToRight).Column
mRow = ActiveCell.Row
Set mRange = Range(Cells(mRow, StartCol), Cells(mRow, EndCol))
mRange.Copy Destination:=Range("A20") 'Insert your destination instead of "A20"

如果需要插入特定的单元格值，可以使用

范围（“您的地址”）

或

单元格（行数、列数）

而不是ActiveCell

您还可以使用包含地址的字符串变量，例如：

mAddress = "D5"
StartCol = Range(mAddress).End(xlToLeft).Column
EndCol = Range(mAddress).End(xlToRight).Column
mRow = Range(mAddress).Row
Set mRange = Range(Cells(mRow, StartCol), Cells(mRow, EndCol))
mRange.Copy Destination:=Range("A20") 'Insert your destination instead of "A20"

改变mAddress的价值，你会得到你所需要的

编辑： 这是从D4复制到行的末尾

mAddress = "D4"
StartCol = Range(mAddress).Column
EndCol = Range(mAddress).End(xlToRight).Column
mRow = Range(mAddress).Row
Set mRange = Range(Cells(mRow, StartCol), Cells(mRow, EndCol))
mRange.Copy Destination:=Range("A20")

---

另外，在最初的问题中，您会询问有关细胞计数的问题。为了计算这一点，您只需要使用这一行：

cellCount = endCol - startCol + 1

---

需要更多信息：您使用哪个版本的Excel？行中的单元格全部已满或存在空白单元格？excel 2007和单元格将不会为空。我想复制到该行最后使用的单元格。请阅读并编辑您的问题。当询问VBA代码时，希望甚至期望问题将包括您开发和尝试的代码。还可以包含有关代码在何处丢失和收到的消息的详细信息。是否有必要对Activecell部分进行硬编码？你是什么意思？你可以使用一个特定的地址而不是ActiveCell。我可以在那个地方使用特定的单元格地址。如果我复制，我只需要从D4复制到上次使用的单元格。我不需要单元格A4、B4、C4的值。它可以工作。我能把它复制到单个单元格吗？？