Question

求excelvba编程高手帮我做一个小程序

我有excel表a,b，再建立一个excel c，然后将a的f列依次在b的e列进行检索，将重复的结果导入c中。

Answer 1

假设表名分别为SHEET1，SHEET2，SHEET3;如果更改了表名则，SHEET1需改为SHEETS("实际表名")
sub fz()
dim i,j,k
j=1
i=1
do while sheet1.cells(i,6)<>""
k=1
do while sheet2.cells(k,5)<>""
if sheet1.cells(i,6)=sheet2.cells(k,5) then
sheet3.range( j & ":" & j) =sheet1.range(i & ":" & i)
j=j+1
end if
k=k+1
loop
i=i+1
loop

end sub

追问

运行不了

追答

Sub fz()
Dim i, j, k
j = 1
i = 1
Do While Sheet1.Cells(i, 6) ""
k = 1
Do While Sheet2.Cells(k, 5) ""
If Sheet1.Cells(i, 6) = Sheet2.Cells(k, 5) Then
Sheet3.Range(j & ":" & j) = Sheet1.Range(i & ":" & i)
j = j + 1
End If
k = k + 1
Loop
i = i + 1
Loop
End Sub

追问

明天试试，成功就采纳