Question

实际的电子表格比这更多涉及，但基本上我有三个工作表：

在工作表1上，在单元格A1中选择了日期。

在工作表2上，我在单元格A1中有一个数字。

在工作表3上，我在第一行中有日期，第二行中有数字的空格。

我需要一些VBA来复制工作表2中的数字并将其粘贴到工作表3中的第二行，在工作表1中选择的日期下面。任何帮助将不胜感激。

Answer 1

尝试使用hLookup功能。它专门针对这种情况而制作。

Answer 2

Sub CopyDateValue()
    Dim dt As Date
    dt = Sheets("Sheet1").Range("A1").Value2
    Dim value As Integer
    value = Sheets("Sheet2").Range("A1").Value2

    Dim dtRange As Range
    Set dtRange = Sheets("Sheet3").Rows(1).Find(dt, LookIn:=xlFormulas)

    dtRange.Offset(1, 0).Value2 = value
End Sub

确保将dt调暗为Date类型，并将xlFormulas添加到Find功能中。

VBA将数据复制到列标题是在另一个工作表上选择的日期的列

2 个答案: