求助。怎么删选出2个sheet中不一样的

ztycarol · 发表于 2012-12-4 17:04

资源表.rar (88.88 KB, 下载次数: 24) 怎么把附件中2个sheet中不同的数据在第三个sheet中体现出来呢。试了几个函数公式都不行

wangzi031 · 发表于 2012-12-4 17:23

把两张表复制到一张新表里面，比如都复制到sheet3的A列，然后在B列写公式=IF(COUNTIF(A:A,A2)>1,"重复","不重复")，筛选不重复的即可

ztycarol · 发表于 2012-12-4 17:29

wangzi031 发表于 2012-12-4 17:23
把两张表复制到一张新表里面，比如都复制到sheet3的A列，然后在B列写公式=IF(COUNTIF(A:A,A2)>1,"重复","不 ...

有没有直接在sheet3中就直接可以体现出来的呢

wangzi031 · 发表于 2012-12-4 17:32

那我只会VBA了……

ztycarol · 发表于 2012-12-4 17:44

wangzi031 发表于 2012-12-4 17:32
那我只会VBA了……

是说函数那种么。可以帮我做一下发给我看下么。我试了几个函数公式都不对。谢谢。

wangzi031 · 发表于 2012-12-5 10:07

打开此表后启用宏，按sheet1里面按钮即可出现你要的结果

wangzi031 · 发表于 2012-12-5 10:08

代码如下：Sub tiaoshi()
Dim m, s As Integer
s = 1
For m = 5 To 318
If IsNumeric(Sheet1.Cells(m, 1)) = False Then
  Set c = Sheet2.Range("c5:c489").Find(Sheet1.Cells(m, 1), LookIn:=xlValues)
If c Is Nothing Then
  Sheet3.Cells(s, 1).Value = Sheet1.Cells(m, 1).Value
  s = s + 1
End If
End If
  Next

  s = Sheet3.[a65536].End(xlUp).Row + 1

For m = 5 To 489
If IsNumeric(Sheet2.Cells(m, 3)) = False Then
  Set c = Sheet1.Range("c5:c318").Find(Sheet2.Cells(m, 3), LookIn:=xlValues)
If c Is Nothing Then
  Sheet3.Cells(s, 1).Value = Sheet2.Cells(m, 3).Value
  s = s + 1
End If
End If
  Next

ztycarol · 发表于 2012-12-5 17:04

wangzi031 发表于 2012-12-5 10:08
代码如下：Sub tiaoshi()
Dim m, s As Integer
s = 1

噢买切糕啊复杂虽然看不懂还是谢谢

ztycarol · 发表于 2012-12-5 17:06

wangzi031 发表于 2012-12-5 10:07
打开此表后启用宏，按sheet1里面按钮即可出现你要的结果

那麻烦问一下，如果我把前面2个资源表换成其他影院了。这个还可以用么？？

		自动登录	找回密码
密码			免费注册