vb6.0：想编个vb程序用来识别并标记出一份Excel表格里面的重复项，怎么实现呢？

可以用建立辅助列、多条件谨稿统计公式、向下填充的方法解决。特别指出：“向下填充”方法速度很快。代码如下：

Sub 查找重复行()

Dim a As Integer

Dim i As Integer

Dim str As String

a = Range("a65536").End(xlUp).Row '计算数据行数

Cells(1, 255).FormulaArray = "=SUM(IF($A$1:$A$" &a &"=A1,IF($B$1:$B$" &a &"=B1 ,1,0)))" '在辅助列上写入多条件统计公伏扮式缺晌灶

Cells(1, 255).Resize(a, 1).Select '选择辅助列

Selection.FillDown '向下填充

Cells(1, 1).Select

For i = 1 To a

If Cells(i, 255).Value >1 Then

Cells(i, 1).Resize(1, 2).Interior.Color = 255

str = str &i &"，"

End If

Next i

Cells(1, 255).Resize(a, 1).Clear '清除辅助列

str = Mid(str, 1, Len(str) - 1) '去掉str最后一个“，”号

MsgBox "第" &str &"行重复。"

End Sub

可以使用微信小程序进行扫描，步骤如下：

所需材料：微信、荣耀6X为例。世闹

一、首先打开微信小程序，点击右上角“搜索”。

二、搜索“口袋扫描”，搜索的结果内点击下图所标小程序。

三、进入小程序后点击“上传表格”。

四、d出的列表内选择“从相册中选择”并选择要转换的图片。

五、打开图片后点击下方的“开始转换”搜尺罩困派。

六、转换完成后点击右下角“导出表格”。

七、最后点击下图所标的“点击下载Excel”即可把转换的表格下载入手机。

---