Question

EXCEL VBA 怎样实现用Sheet2里的数据根据日期在sheet1里查找，并写入对应列

现在需要sheet2 里的日期在sheet1里查找，然后sheet2 对应B列值写入sheet1 对应的日期。

哪位高手可以帮我写一下代码

万分感激
最后想要得到这样的结果





Answer 1

楼主，您好!

 

按照您的要求，我提供两种方法给您选择：

 

公式法的代码：我以Sheet2中B2单元格为例

=SUMPRODUCT((B$1=Sheet1!B$1:G$1)*($A2=Sheet1!A$2:A$5)*Sheet1!$B$2:$G$5)

 

VBA法 代码如下：

Sub TEST()

    Dim i&, j&

    With Sheet3

         For i = 2 To .[A60000].End(xlUp).Row

             For j = 2 To .[B1].End(xlToRight).Column

                 On Error Resume Next

                 .Cells(i, j) = Sheet1.Cells(Sheet1.Range("A:A").Find(.Cells(i, 1)).Row, Sheet1.Range("1:1").Find(.Cells(1, j)).Column)

             Next j

         Next i

    End With

End Sub

 

需要示例文件请戳下面这里：

 

 

Answer 2

看的不是很懂，能发个文件看下嘛

追问

文件怎么传啊！？

追答

qq邮箱2742561328

需要的话发来看看，水平一般，但很热心