Excel VBA宏,复制行中的第一个值

时间:2017-07-20 13:39:01

标签: excel vba excel-vba

我正在尝试编写一个宏,该宏将复制我选择的单元格的同一行的A列中的值。

例如,如果我的电子表格看起来像:

| John | Doe | 123 | 456 | Apples |

并且所选单元格是包含123的单元格,它会复制John。如果我选择456单元格,它仍然会复制约翰。有意义吗?

我理解Selection.Offset( ,-3).Copy函数(将单元格的三列复制回来,与当前选择相同的行)但我不是每次都在同一列中开始,所以我认为我需要更清晰引用。

感谢您的帮助!

1 个答案:

答案 0 :(得分:3)

在相关表单的Worksheet_SelectionChange事件中添加以下代码:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' copy the cell in Column "A" of the same row clicked
Range("A" & Target.Row).Copy

End Sub