excel - 复制和粘贴单元格以偏移查找的宏

Question

我似乎找不到我想做的正确代码。我在excel中为我们的商店设计了一个非常基本的POS类型系统：

在 A 列中输入股票编号时，使用索引和匹配公式填充 B、C、D 和 E 列。

当我按下现金/卡/支票按钮时，Excel 会复制信息并将其粘贴到另一张表中，然后重置表单。

这一切都完美无缺。但是，当按下按钮时，我还希望 Excel 复制顶部的日期和时间，在“股票”表的 A 列中搜索股票编号，并将其粘贴到 I 列（出售日期) 的所有相关单元格。

我什至不知道如何开始。下面是按钮的当前代码。它不漂亮，但它可以完成工作：

Sub CASH()
Range("F19").Select
ActiveCell.FormulaR1C1 = "CASH"

Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Sale")
Set pasteSheet = Worksheets("Sales")

copySheet.Range("A1:F20").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(3, 0).PasteSpecial 
Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(-19, 0).PasteSpecial 
Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Application.CutCopyMode = False
Application.ScreenUpdating = True

Application.Goto Reference:="Default"
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
End Sub

任何帮助将不胜感激！

标签： excelvbacopy-pastelookup