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 中。