精华内容
下载资源
问答
  • VBA查找重复单元格

    2011-08-18 10:34:53
    我的excel中有两列值,第一列的值有: A B C D .. 等等26个英文字母。 第二列空白。 第三列的值是: A D R G R W Z ..等等不重复的字母。...我希望能够在第二列里,显示第一列当前行的字母,是否在第三列中出现过;...
  • Sub compare() Dim rowt1%, rowt2%, i%, k%, a%, b%, c% Dim arr, arr1, arr2 Dim d1 As Object Dim d2 As Object Set d1 = CreateObject(“scripting.dictionary”) Set d2 = CreateObject(“scripting.dictionary...

    Sub compare()

    Dim rowt1%, rowt2%, i%, k%, a%, b%, c%
    Dim arr, arr1, arr2
    Dim d1 As Object
    Dim d2 As Object

    Set d1 = CreateObject(“scripting.dictionary”)
    Set d2 = CreateObject(“scripting.dictionary”)

    rowt1 = Cells(1048576, 1).End(3).Row
    rowt2 = Cells(1048576, 2).End(3).Row

    Range(Cells(2, 1), Cells(rowt1, 1)).ClearFormats
    Range(Cells(2, 2), Cells(rowt1, 2)).ClearFormats

    a = 1
    b = 1
    c = 1

    If rowt1 >= rowt2 Then

    i = rowt1
    

    Else

    i = rowt2
    

    End If
    On Error Resume Next

    ReDim arr(1 To i, 1 To 5)
    arr = Range(Cells(2, 1), Cells(i, 5))
    arr1 = Range(Cells(2, 1), Cells(rowt1, 1))
    arr2 = Range(Cells(2, 2), Cells(rowt2, 2))

    For k = 1 To UBound(arr1)
    d1.Add Trim(arr1(k, 1)), “”
    Next k

    For k = 1 To UBound(arr2)
    d2.Add Trim(arr2(k, 1)), “”
    Next k

    For k = 1 To UBound(arr1)

    If d2.exists(Trim(arr1(k, 1))) Then

    arr(a, 3) = arr1(k, 1)
    a = a + 1
    

    Else

    arr(c, 5) = arr1(k, 1)
    c = c + 1
    

    End If

    Next k

    For k = 1 To UBound(arr2)

    If d1.exists(Trim(arr2(k, 1))) Then

    Else

    arr(b, 4) = arr2(k, 1)
    b = b + 1
    

    End If

    Next k

    Range(Cells(2, 1), Cells(i, 5)) = arr

    Set arr = Nothing
    Set arr1 = Nothing
    Set arr2 = Nothing
    Set d1 = Nothing
    Set d2 = Nothing

    End Sub

    展开全文
  • 1、启动VBA ...Sub 查找相同字符个() Text = InputBox("请输入您要查找到字符:", "信息提示") With ActiveDocument.Content.Find Do While .Execute(FindText:=Text) = True tim = tim + 1 Loop End With

    1、启动VBA

    使用快捷键“Alt+F11”启动VBA

    2、输入VBA代码

    Sub 查找相同字符个数()
    Text = InputBox("请输入您要查找到字符:", "信息提示")
    With ActiveDocument.Content.Find
    Do While .Execute(FindText:=Text) = True
    tim = tim + 1
    Loop
    End With
    MsgBox ("当前文档共查找到" + Str(tim) + "个" + Text), 48, "搜索结果提示"
    End Sub
    

    3、运行代码

    使用快捷键“F5”运行代码,出现如下所示的对话框,输入你想统计的字符或字符串。

    展开全文
  • Word VBA教程:查找并替换文字或格式

    万次阅读 2018-08-18 10:48:54
    通过Find 和Replacement对象可实现查找和替换功能。...如果从 Selection对象访问 Find对象,当找到搜索条件时,就会更改所选内容。下列示例选定下一个出现的“Hello”。如果到达文档结尾时仍未找到“Hello”,则...

    通过Find 和Replacement对象可实现查找和替换功能。Selection 和Range对象可以使用 Find对象。从 Selection 或 Range对象访问 Find对象时,查找操作会略有不同。

    查找并选定文字

    如果从 Selection对象访问 Find对象,当找到搜索条件时,就会更改所选内容。下列示例选定下一个出现的“Hello”。如果到达文档结尾时仍未找到“Hello”,则停止搜索。

     

    With Selection.Find

        .Forward = True

        .Wrap = wdFindStop

        .Text = "Hello"

        .Execute

    End With

    Find对象包含与“查找和替换”对话框中的选项相关的属性(在“编辑”菜单上选择“查找”可显示该对话框)。可以设置 Find对象单独的属性或使用Execute方法的参数,如下例所示。

     

    Selection.Find.Execute FindText:="Hello", _

        Forward:=True, Wrap:=wdFindStop

    查找文字,但不更改所选内容

    如果从 Range对象访问 Find对象,则找到搜索条件时,不更改所选内容,但是会重新定义 Range对象。下列示例在活动文档中查找第一个出现的“blue”。如果找到该单词,则重新定义该区域,并将加粗格式应用于单词“blue”。

     

    With ActiveDocument.Content.Find

        .Text = "blue"

        .Forward = True

        .Execute

        If .Found = True Then .Parent.Bold = True

    End With

    下列示例使用 Execute方法的参数,执行结果与上例相同。

     

    Set myRange = ActiveDocument.Content

    myRange.Find.Execute FindText:="blue", Forward:=True

    If myRange.Find.Found = True Then myRange.Bold = True

    使用 Replacement对象

    Replacement对象代表查找和替换操作的替换条件。Replacement对象的属性和方法对应于“查找和替换”对话框中的选项(单击“编辑”菜单中的“查找”或“替换”命令可显示该对话框)。

    可通过 Find对象使用 Replacement对象。下列示例将所有单词“hi”替换为“hello”。由于 Find对象是通过 Selection对象访问的,所以当找到搜索条件时,会更改所选内容。

     

    With Selection.Find

        .ClearFormatting

        .Text = "hi"

        .Replacement.ClearFormatting

        .Replacement.Text = "hello"

        .Execute Replace:=wdReplaceAll, Forward:=True, _

            Wrap:=wdFindContinue

    End With

    下列示例取消活动文档中的加粗格式。Find对象的Bold属性为 True,而 Replacement对象的该属性为 False。若要查找并替换格式,可将查找和替换文字设为空字符串 (""),并将 Execute方法的 Format参数设为 True。由于从 Range对象访问 Find对象,所选内容将保持不变(Content属性返回一个 Range对象)。

     

    With ActiveDocument.Content.Find

        .ClearFormatting

        .Font.Bold = True

        With .Replacement

            .ClearFormatting

            .Font.Bold = False

        End With

        .Execute FindText:="", ReplaceWith:="", _

            Format:=True, Replace:=wdReplaceAll

    End With

     

    展开全文
  • Sub find函数练习2() Dim rng As Range, address1, address2 Set rng = ActiveSheet.UsedRange.Find(what:="b") address1 = rng.Address(0, 0) Do Until address1 = address2 Set rng =...

    图片描述

    Sub find函数练习2()
    
    Dim rng As Range, address1, address2
    Set rng = ActiveSheet.UsedRange.Find(what:="b")
    address1 = rng.Address(0, 0)
    Do Until address1 = address2
    Set rng = ActiveSheet.UsedRange.FindNext(rng)
    address2 = rng.Address(0, 0)
    rng.Interior.ColorIndex = 6
    Loop
    End Sub
    展开全文
  • VBA查找并选定文字

    千次阅读 2017-09-14 17:39:00
    如果从 Selection 对象访问 Find 对象,当找到搜索条件时,就会更改所选内容。下列示例选定下一个出现的“Hello”。如果到达文档结尾时仍未找到“Hello”,则停止搜索。With Selection.Find .Forward = True .Wrap =...
  • Sub addRe() '1.此脚本用于根据sheet1中的第一列从第三行开始的数据新建工作簿并重命名 '2.复制第一列和对应的列的值 '3.... ScreenUpdating = False '... Dim sCount As Long '列 Dim sCol As Long '行数 Dim...
  • 一个doc文档中有大量的特殊样式文本,使用相同的样式黑体,三号(16),红色(RGB:255 0 0),现在需要将这些特殊样式的文本都是使用#符号包围起来,如下图所示: VBA代码实现 Sub batchEdit() ' ' 批量根据样式修改文本内容 ...
  • 当然,可以使用VBA来解决问题,但为什么不考虑Python呢,借助xlwings这个三方库,我们可以把Python和Excel完全集成到一起。为什么要集成Python和ExcelExcel VBA能完成很多数据分析工作,包括...
  • VBA有没有哪个函数可以从当前位置向上查找(例如字母a),返回a所在单元格的位置
  • 得到该文件夹,文件夹内容如上图。 代码如下: Private Sub Command_OLIVER() Dim arr arr = Range("A1:C" & [a65536].End(3).Row) Dim i As Long, wName As String, wPath A...
  • 不同表格查找重复数据VBA

    千次阅读 2018-12-25 13:50:54
    分析两个表格中对应列的重复情况。 Sub Match_Dec() '两个表格,表格中的某一列为对应列,查找这两列中的重复记录和差异记录。... 'ar/br为行数,i为外层循环控制,j为内层循环控制 Dim A...
  •  '使用通配符查找  h = 5  Set c = .Find(findx, LookIn:=xlValues)  If Not c Is Nothing Then  FirstAddress = c.Address  '在这里写根据第一个找到的单元格进行的操作  Do    '在这里写对根据...
  • vba 电子表格 宏代码 编程 用VBA代码实现遍历某文件夹下所有*.xls*文件,有两种实现方法
  • Excel表格,想以其中某一列为索引,查找另一个表格中同样索引的行,找到该行的某个内容复制到原来的表格指定的位置中。还可以删除原有表格中重复的内容。应用场景非常多,比如:利用学生学号和考场分配表查找学生...
  • 每天一篇Excel技术图文微信公众号:Excel星球NO.145-I ...虽然没有自古以来,但依然众所周知的是,在Excel中有一个很常用的功能:查找与替换。而在VBA编程中也有与之对应的两个方法:Find和Replace。我们先来聊Fi...
  • Excel VBA 两个表中查询相同的记录、不同的记录 例程
  • vba关于查找方法(Find方法)的应用(一)

    万次阅读 2018-05-04 17:36:00
    [VBA]关于查找方法(Find方法)的应用(一)fanjy 发表于 2006-9-28 20:14:00 excelhome 在Excel中,选择菜单“编辑”——“查找(F)…”命令或者按“Ctrl+F”组合键,将弹出如下图01所示的“查找和替换”对话框。在...
  • 我们手头有很多很多老的excel文件,他们都是关于提供的内容是类似的,但是他们的格式还有不同,因为表格的样式调整过,或是从别的地方复制过来的,导致格式不尽相同。但值得庆幸的是,你所要的数据在表格中的大致...
  • + Str(allEquipment) explainTxt = explainTxt + vbCrLf + " WPS安装:" + Str(allWps) explainTxt = explainTxt + vbCrLf + " 重复记录:" + Str(DuplicateRecord) explainTxt = explainTxt + vbCrLf + " ...
  • 1 Sub 根据查找功能拾取的颜色求平均() 2 On Error GoTo 100 3 Dim erng As Range, rng As Range, i As Long 4 i = Application.FindFormat.Interior.Color 5 Set erng = Cells(Rows.Count, "e")...
  • nT = UBound(Split(cTextStrs, "xx")) cTextStrs 要查找的字符串 xx 要查找的字符 nT 重复的次数
  • 上一篇我们已经试过用Excel自带的索引完成了一次SQL检索的操作,今天小编带你用VBA实现SQL检索,并实现相同项求和的功能 SELECT 字段名1,SUM(字段名2) FROM [原始数据$]) GROUP BY 字段名1 ORDERBY 字段名3 废话...
  • View Code Sub GetSameValue()Dim arr(0)Dim i As Integer, cellval As Integer, tempval As IntegerDim varstr As Stringarr(0) = Array(9, 1, 4, 6, 1, 1, 1, 1)For i = 0 To UBound(arr(0)) cellval ...
  • 关于【VBA 网抓】的那些事,最近,由于我的一个VBA工程项目,需要做到与网页里的特定数据进行比对,由于在此之前,也没有对VBA网抓有过多的了解,因此就凭着一股猛劲,边做边学,并最终达到了预期目的。 对于此过程...
  • 标题定义一个数组,查找数组中相同元素的个数 定义一个数组 int []arr={45,45,88,99,6,6,7,88}; 数组中有两个45,两个88,两个6,一个99,一个7. 代码如下 package Demo; public class Test { public static void...
  • 利用VBA筛选重复数据

    千次阅读 2019-06-17 14:30:02
    For n = 2 To 15 'n 用于控制写出数据的列 C.Cells(j, n) = A.Cells(i, n) Next Debug.Print C.Cells(j, 1) j = j + 1 ' End If End If flag = 0 Next Debug.Print "Done" End Sub
  • 函数作用:查找指定列名的列.......................60 '37.函数作用:文字格式的时间(分:秒)转化为数字格式(秒)..61 '38.函数作用:将"hh:mm:ss"格式的时分秒转换成秒.....62 '39.函数作用:金额中文大写转数字.....
  • 我们利用SelectionChange时间,当我们选择单元格发生改变时,调用VBA自带的Find方法,去单元格区域是,查找相同内容,并着色 '******************************************** '--功能:批量选中所有相...
  • 源字符 含有多少个这样的字符 ...Sub VBA小程序_获取单元格里面出现多少个字符() For i = 2 To 4 'Cells(i, 3).Value = UBound(Split(Cells(i, 1), Cells(i, 2))) 我是注释,也可以这样写~ Range("C" & i).V.

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,175
精华内容 870
关键字:

vba查找相同内容数