请EXCEL高手帮忙了.(刚才忘了放附件
我给你做了一个,你可以在Sheet2的D2,E2,F2分别输入公式:
=VLOOKUP(A2,Sheet1!A$2:F$31,6,0)
=VLOOKUP(A2,Sheet1!A$2:F$31,3,0)
=VLOOKUP(A2,Sheet1!A$2:F$31,2,0)
然后选中他们,把鼠标放在右下脚后,会变成十字型,点住右键往下填充到最后面一行,就可以了。
具体的见我上传的附件。
那就采用宏的办法,代码如下:
Sub ddsc()
Dim i%, ii%, en1%, en2%
Application。ScreenUpdating = False
Sheet1。 Select
en1 ...全部
我给你做了一个,你可以在Sheet2的D2,E2,F2分别输入公式:
=VLOOKUP(A2,Sheet1!A$2:F$31,6,0)
=VLOOKUP(A2,Sheet1!A$2:F$31,3,0)
=VLOOKUP(A2,Sheet1!A$2:F$31,2,0)
然后选中他们,把鼠标放在右下脚后,会变成十字型,点住右键往下填充到最后面一行,就可以了。
具体的见我上传的附件。
那就采用宏的办法,代码如下:
Sub ddsc()
Dim i%, ii%, en1%, en2%
Application。ScreenUpdating = False
Sheet1。
Select
en1 = [a65536]。End(xlUp)。Row
Columns(2)。Insert
Columns(1)。Copy Range("b1")
Sheet2。
Select
en2 = [a65536]。End(xlUp)。Row
Range("d2:f" & en2)。ClearContents
For i = 2 To en2
For ii = 2 To en1
If Cells(i, 1) = Sheet1。
Cells(ii, 2) Then
Cells(i, 4) = Sheet1。Cells(ii, 7)
Cells(i, 5) = Sheet1。
Cells(ii, 4)
Cells(i, 6) = Sheet1。Cells(ii, 3)
Sheet1。Cells(ii, 2)。
ClearContents
Exit For
End If
Next ii
Next i
Sheet1。
Columns(2)。Delete Shift:=xlToLeft
Application。ScreenUpdating = True
End Sub
。收起