发布网友 发布时间:2024-10-23 21:43
共3个回答
热心网友 时间:2024-10-26 18:56
sheet1的D1输入数组公式
=INDEX(sheet2!D$1:D100,MATCH(A1&B1&C1,sheet2!A$1:A$100&sheet2!B$1:B$100&sheet2!C$1:C$100,))
以同按 CTRL+SHIFT+回车 这三个键作为结束
再下拉填充公式
即可
热心网友 时间:2024-10-26 18:58
Sub 复制()
Dim j As Integer, i As Integer
i = 0
j = 1 '定义循环变量i和j,并赋值
While i < j
If ActiveWorkbook.Worksheets(2).Range("D" & j) = "" Then
i = i + 1 '如果取D值某值为空,只是i加1,表示复制结束,只是i加1就会使循环终止
Else
ActiveWorkbook.Worksheets(1).Range("D" & j) = ActiveWorkbook.Worksheets(2).Range("D" & j) '否则,将工作表2的D列某格数据复制到工作表1的D列,并同时把i、j都加1,保证循环继续
i = i + 1
j = j + 1
End If
Wend
End Sub
热心网友 时间:2024-10-26 18:55
D1
=LOOKUP(1,0/(A1&B1&C1=Sheet2!$A$1:$A$4&Sheet2!$B$1:$B$4&Sheet2!$C$1:$C$4),Sheet2!$D$1:$D$4)