vb 操作 excel 的 问题

Question

我想用 vb对excel的两张 sheet 的 所有 或 指定列 的内容进行比较 ,如果 sheet1和sheet2的相同的 cell内容不一样,用sheet1的内容替换sheet2的,改怎么做??
谢

Answer 1

你不如直接拷贝整个Sheet覆盖算了

Answer 2

sub Compare（nRow,nCol）
   'nRow=0,nCol<>0表示整列比较
   'nRow<>0,nCol=0表示整行比较
   'nRow=0,nCol=0 整个sheet
   'nRow<>0,nCol<>0一个单元格
   Set xlssheet1 = xlsbook1.Worksheets("sheet1")
   Set xlssheet2 = xlsbook1.Worksheets("sheet2")
   if nRow=0 and nCol<>0 then
      for i=1 to  xlssheet1.UsedRange.row
          xlssheet2.Cells(i, nCol)=xlssheet1.Cells(i, nCol)
      next i
   end if
   '后面的各种情况依此类推
   ....
end sub

Answer 3

设为Active是什么意思,好像不设置不行