求助：
要求：两XLS表A、B，用A表第一列的值分别去B表第一列查重，并于A表当前行标记
“重”、“不重”。
求方法！！！新人勿笑！

可以:

第一步, 用2个 table导入
第二步, 2个 table 用 select 语句 比较, 做标记
第三步, 做过标记后, 拷回xls

=vlookup()

直接用sql语句连接两个表，然后连接得到的就置重，保存，然后查询原表，如何没有重的标志就置不重，这样可以吗？

直接在excel中使用countif函数。关于该函数的用法请参考帮助

谢谢大家的指导：
附上我自己的方法，
我是直接创建二个EXCEL对象查重的。
loXls = CREATEOBJECT("excel.application")
loXls.Workbooks.OPEN(thisform.text1.Value)
loXls.ActiveSheet.COLUMNS(1).Insert
nrows=loxls.Worksheets('Sheet1')
UsedRange =nrows.UsedRange
H1 = UsedRange.ROWS.COUNT              &&&&表一行数H1
******************************************************************************************
loXlse = CREATEOBJECT("excel.application")
loXlse.Workbooks.OPEN(thisform.text2.Value)
nrows2=loxlse.Worksheets('Sheet1')
UsedRange2 =nrows2.UsedRange
H2 = UsedRange2.ROWS.COUNT              &&&&表二行数H2
PUBLIC j
j=1
PUBLIC i
i=0

BJ1="重"
BJ2="不重"
DO WHILE i<H1
i=i+1
Z1=ALLTRIM(loxls.CELLS(i,2).value)
thisform.text5.Value=i
thisform.text6.Value=H1
Z2=ALLTRIM(loxlsE.CELLS(j,1).value)
DO WHILE Z1$Z2=.F. .AND. j<H2
j=j+1
Z2=ALLTRIM(loxlsE.CELLS(j,1).value)
ENDDO
IF Z1$Z2=.T.
loxls.CELLS(i,1).value=BJ1
ELSE
loxls.CELLS(i,1).value=BJ2
ENDIF
j=1
ENDDO
*loxls.WorkBooks.Close
************************************************退出二个EXCEL对象*****************
LOXLS.ActiveWorkbook.saved=.f.
LOXLS.WorkBooks.Close
LOXLS.quit  
                                          &&&&关表一
     LOXLSe.ActiveWorkbook.saved=.t.
LOXLSe.WorkBooks.Close
LOXLSe.quit               
                                         &&&&&&关表二      
                     
*******************************************

呵呵，楼主真厉害！
把EXCEL中的东西全拿到VFP中来做！
为什么不直接在EXCEL中做呢？

因为用的人很多，并且用的人除了点按钮，什么都不想做。
手动在XLS查重并不难，可人家就是不想动，
我只好做一个傻瓜式的工具了。
选好文件，点查重，OK！
这就是她们的要求。

楼主的方法很好，有难度。

呵呵，楼主为什么不在EXCEL里做一个宏呢？