Question

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

我有一个包含4列（部件号，数量，位置和描述）的电子表格，有没有办法使用vba o某些excel函数可以复制和粘贴数据，具体取决于所选单元格的想法：< / p>

我有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

您尝试使用选择吗？

E.g。

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

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

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

1 个答案: