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

Question

这个问题比标题要难一些，只是不知道怎么问。

我有一个包含4列（零件号，数量，位置和描述）的电子表格，有没有一种方法可以使用vba或一些excel函数，可以根据选定的单元格复制和粘贴数据，所以这个想法是：

我有4列，我只需要部件号，数量和说明，并将其粘贴到具有某些需要该数据的公式的另一张纸上，但是由于部件号很多，因此我需要进行某种输入。 我不确定我是否在解释自己。

注意：我从未使用过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

这只是复制并粘贴我只希望用户选择的特定行的所有内容。如果您可以提供任何有用的帮助，因为我正尝试使用excel学习vba。

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

编辑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

您尝试使用选择吗？

例如

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

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