excel-vba复制单元格并粘贴在不同的电子表格上

问题是比标题更难一些，只是不知道该怎么去问。

我有一个电子表格，包含4列（零件号，数量，位置和说明），有没有办法使用vba o一些Excelfunction，可以复制和粘贴数据取决于选定的单元格的想法是这样的：

我有4列，我只需要零件编号，数量和描述，并粘贴在一个不同的表，有一些公式，需要这些数据，但我需要做一些types的input，因为有很多零件号。 我不确定我是否在解释我的自我。

注意：我从来没有用vba和excel-vba进行编程，我对excel也不熟悉，只是非常基本的东西，这是我通过阅读一些东西

Private Sub CommandButton1_Click() Worksheets("Sheet1").Range("A4:A65").Copy Worksheets("Sheet2").Range("A4:A65").PasteSpecial Worksheets("Sheet1").Range("D4:D65").Copy Worksheets("Sheet2").Range("D4:D65").PasteSpecial Worksheets("Sheet1").Range("F4:F65").Copy Worksheets("Sheet2").Range("G4:G65").PasteSpecial Worksheets("Sheet1").Range("A4:A65").ClearFormats Worksheets("Sheet2").Range("A4:A65").ClearFormats Worksheets("Sheet2").Range("A4:A65").Font.Size = 10 Worksheets("Sheet2").Range("D4:D65").Font.Size = 10 End Sub 

这只是复制和粘贴一切，我只是想特定的单元格行用户select如果你可以提供任何帮助其有用的，因为我想学习使用Excel的VBA。

-Off话题（如何在论坛中格式化我的代码）

编辑1 –

  Dim myValue As Variant Part = InputBox("Whitch Part", "Buscar") With Worksheets("Sheet1").Range("A4:A65") Cells.Find(What:=Part, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate 

Answer 1

你尝试使用select？

例如

 Selection.Copy Destination:=Range("F1") 

这将复制所选区域并将其粘贴到F1中。