比较同一个XLS文件里的两张表，然后COPY过去

Set xlapp = Createobject("excel.application")
Set wkBook = xlapp.Workbooks.Open("e:\bb.xls")
Set wksheeta = wkBook.Worksheets("sheet1")
Set wksheetb = wkBook.Worksheets("sheet2")
j = 444
for a = 2 to 176 '从第二行开始比较
  for b = 2 to 442
    if wksheeta.cells(a,2) = wksheetb.cells(b,2) then
 if wksheeta.cells(a,2)<>wksheeta.cells(a-1,2) then
   for c = 1 to 7
     wksheetb.cells(b,c) = wksheeta.cells(a,c)
   next
 else
   for c = 1 to 7
     wksheetb.cells(j,c) = wksheeta.cells(a,c)
   next
   j = j + 1
 end if
    end if
  next
next
wkbook.save
wkbook.close
xlapp.quit
set xlapp = nothing