excel vba找出不同内容
答案:4 悬赏:40 手机版
解决时间 2021-02-11 13:23
- 提问者网友:疯子也有疯子的情调
- 2021-02-11 00:53
excel vba找出不同内容
最佳答案
- 五星知识达人网友:独钓一江月
- 2021-02-11 00:59
软件版本:Office2007
举例说明如下:
1.利用VBA从下面区域中找出与其他单元格内容不同的,并填充红色:
2.Alt+F11,输入代码如下:
3.F5执行代码,得到结果如下:
举例说明如下:
1.利用VBA从下面区域中找出与其他单元格内容不同的,并填充红色:
2.Alt+F11,输入代码如下:
3.F5执行代码,得到结果如下:
全部回答
- 1楼网友:爱难随人意
- 2021-02-11 04:04
这个需要知道你具体些代码了。单纯这样没法说。
- 2楼网友:刀戟声无边
- 2021-02-11 02:25
直接搜索一个叫Beyond Compare的软件,里面就有文本、数据对比;
EXCEL如果是两列对比的话,直接插入一个新列,编写函数:如果相同显示0,如果不同显示1
EXCEL如果是两列对比的话,直接插入一个新列,编写函数:如果相同显示0,如果不同显示1
- 3楼网友:鸽屿
- 2021-02-11 01:50
Sub s()
Dim c As Range
Set rg1 = [a39:j49]
Set rg2 = [u39:ad49]
Set rg3 = [k39:t49]
Set d = CreateObject("scripting.dictionary")
For Each c In rg1
d(c.Text) = ""
Next
For Each c In rg2
If d.exists(c.Text) Then
d.Remove (c.Text)
Else
d(c.Text) = ""
End If
Next
For Each k In d.keys
i = i + 1
rg3.Item(i) = k
Next
End Sub追问Set rg1 = [A39:BH1039] '数据范围1
Set rg2 = [BI39:BR1039] '结果范围
Set rg3 = [CC39:CL1039] '数据范围2
修改范围这样后, Set rg2 里没有结果 ,而Set rg3 部分内容被删除了追答rg3是结果来自:求助得到的回答
Dim c As Range
Set rg1 = [a39:j49]
Set rg2 = [u39:ad49]
Set rg3 = [k39:t49]
Set d = CreateObject("scripting.dictionary")
For Each c In rg1
d(c.Text) = ""
Next
For Each c In rg2
If d.exists(c.Text) Then
d.Remove (c.Text)
Else
d(c.Text) = ""
End If
Next
For Each k In d.keys
i = i + 1
rg3.Item(i) = k
Next
End Sub追问Set rg1 = [A39:BH1039] '数据范围1
Set rg2 = [BI39:BR1039] '结果范围
Set rg3 = [CC39:CL1039] '数据范围2
修改范围这样后, Set rg2 里没有结果 ,而Set rg3 部分内容被删除了追答rg3是结果来自:求助得到的回答
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯