关于EXCEL函数编程

来源：百度知道 编辑：UC知道 时间：2024/05/02 18:15:10
我经常用EXCEL做一些数据统计 常遇到这样的问题
A列有假设1000个数据 而C列有500个数据 但是
A列数据内包含C列数据 我想在A列里将于C列相同的数据标记出来
或是在B列中与之对应的单元格内标记出来
有什么好办法? 我以前总是一个一个找出来 数据越多 越累
有时候是要对比两个表格里的数据 晕
虽然两位大侠写的我不懂 但是我会努力的
但是分数只好投票决定了 不好意思

Excel没有现成的功能,要使用到宏，用ALT+F8调出宏窗口，在宏名称里输入"Comp"，点创建，在新出现的窗口中输入下面代码。

Sub Comp()
' Comp Macro
' Ghostidea 记录的宏 2006-5-9

Dim rngA As Excel.Range
Dim rngB As Excel.Range
Dim rngAT As Excel.Range
Dim rngBT As Excel.Range

Set rngA = Range("A1:A1000")
'这里“A1:A23"是范围表示A列的1行到A列的1000行，可根据你的需要改变.
Set rngB = Range("C1:C500")
For Each rngAT In rngA.Cells
For Each rngBT In rngB.Cells
If rngAT.Value = rngBT.Value Then
rngAT.Font.Color = RGB(255, 0, 0)
rngBT.Font.Color = RGB(255, 0, 0)
End If
Next rngBT
Next rngAT
End Sub

首先ALT+F8增加一个宏,设宏名为test,创建，
加入以下代码，你可以拷贝进去, 在B列中放1做标记
Sub TEST()
a = 1 '表示A列
c = 3 '表示C列
b = 2 '表示B列
For i = 1 To 1000
For j = 1 To 500