精华内容
下载资源
问答
  • Filter/replace - VBA

    2015-10-20 16:05:00
    Selection.Replace What:=" STAGE", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False   转载于:...

     Auto filter:

    ActiveSheet.Range("A:F").AutoFilter Field:=3, Criteria1:="*Agent*"
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft

      

     Replace:

     Selection.Replace What:=" STAGE", Replacement:="", LookAt:=xlPart, _
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
     ReplaceFormat:=False
    

      

    转载于:https://www.cnblogs.com/kiddy/p/4895121.html

    展开全文
  • vba -replace工具

    2010-11-23 13:34:55
    vba -replace工具,可以把一个文件夹下面的excel文件里所有指定的文字(多个不同的字段)换成其他的对应的文字
  • Cells(Rows.Count, "B").End(xlUp)) strTxt = objRegEx.Replace(Trim(c.Value), "") c.Offset(0, 1).Value = Application.Evaluate(strTxt) Next Set objRegEx = NothingEnd SubtSet objRegEx = NothingEnd Sub ...

    实例需求:

    数据保存在B列,其格式为规格1*数量1+规格2*数量2+ ...

    现在需要统计数量总和,如C列所示。

    例如B3中明细为100*3+115*1对应的包装个数就是3+1。

    0159eba3884e3db1bc975b61e7dd9681.png

    示例代码如下。

    Sub RegExpDemo()    Dim strTxt As String    Dim objRegEx As Object    Dim j As Integer    Set objRegEx = CreateObject("vbscript.regexp")    objRegEx.Pattern = "\d+\*"    objRegEx.Global = True    For Each c In Range([B2], Cells(Rows.Count, "B").End(xlUp))        strTxt = objRegEx.Replace(Trim(c.Value), "")        c.Offset(0, 1).Value = Application.Evaluate(strTxt)    Next    Set objRegEx = NothingEnd SubtSet objRegEx = NothingEnd Sub

    【代码解析】

    第5行代码使用后期绑定创建正则对象。

    第6行代码指定正则匹配字符串。

    f0529fd55f9fd841f5c78d1123c26aa1.png

    第7行代码设置为全局搜索模式。

    第9行代码使用正则替换,将匹配成功的字符串替换为空。

    第10行代码利用工作表的函数Evaluate计算替换后的字符串表达式的值,并写入工作表中。

    例如B7单元格内容如下,红色部分字符为正则匹配字符(包含星号),替换之后就成为简单的算式2+1+2,即使没有等号,也可以被函数Evaluate正确处理。

    1662673576a3c096b8fb6c0a5d1f57a1.png

    如果使用VBA的字符串函数实现这个需求,就需要多次使用Split和Instr进行处理,示例代码使用正则替换,代码就很简洁了。

    展开全文
  • 分享一个VBA常用函数示例。目 录:​函数 (Visual Basic for Applications)1. Abs 函数(绝对值函数)2. Array 数组函数3. Asc 字符码函数4. Atn 余切函数5. CallByName 函数(执行对象的方法,或者设置或返回对象的...
    4bb5989e2df6e1a674f462e6c216c8b1.png

    分享一个VBA常用函数示例。

    目 录:

    函数 (Visual Basic for Applications)

    1. Abs 函数(绝对值函数)

    2. Array 数组函数

    3. Asc 字符码函数

    4. Atn 余切函数

    5. CallByName 函数(执行对象的方法,或者设置或返回对象的属性

    6. Choose选择函数

    7. Chr 函数

    8. 命令函数

    9. 数据类型转换函数

    10. Cos 函数

    11. CreateObject 函数

    12. CurDir 函数

    13. CVErr 函数

    14. Date 函数

    15. DateAdd 函数

    16. DateDiff 函数

    17. DatePart 函数

    18. DateSerial 函数

    19. DateValue 函数

    20. Day 函数

    21. DDB 函数 双倍余额递减法折旧函数

    22. 派生三角算术函数

    23. Dir 函数

    24. DoEvents 函数

    25. Environ 函数

    26. EOF 函数

    27. Error错误函数

    28. Exp 自然对数幂函数

    29. FileAttr 函数

    30. FileDateTime 函数

    31. FileLen 函数 文件字节大小

    32. Filter数组筛选器函数

    33. Format 格式函数

    34. FormatCurrency 函数

    35. FormatDateTime 函数

    36. FormatNumber 函数

    37. FormatPercent 函数

    38. FreeFile 函数

    39. FV 函数 年金终值函数

    40. GetAllSettings 注册表属性函数

    41. GetAttr 函数 返回文件属性

    42. GetObject 函数

    43. GetSetting 函数 注册表函数

    44. Hex 函数 10进制转16进制

    45. Hour 函数

    46. IIf 函数

    47. IMEStatus 函数 输入法函数

    48. 输入函数

    49. InputBox 函数

    50. InStr 函数 左边开始查找

    51. InStrRev 函数 尾部开始查找

    52. INT FIX输入、修复函数

    53. IPmt 财务函数

    54. IRR 函数 内涵报酬率函数

    55. IsArray 函数

    56. IsDate 函数

    57. IsEmpty 函数

    58. IsError 函数

    59. IsMissing 函数

    60. IsNull 函数

    61. IsNumeric 函数

    62. IsObject 函数

    63. Join连接函数

    64. LBound 函数

    65. LCase 函数

    66. Left函数

    67. Len 函数

    68. Loc 函数

    69. LOF 函数 打开文件的字节大小

    70. Log对数函数

    71. LTrim、RTrim 和 Trim 函数

    72. MacID 函数

    73. MacScript 函数

    74. 算术函数

    75. Mid函数

    76. Minute函数

    77. MIRR 函数 财务函数

    78. Month 函数

    79. MonthName 函数

    80. MsgBox 函数

    81. Now 函数

    82. NPer 财务函数

    83. NPV 财务函数

    84. Oct 函数 10进制转8进制

    85. 分区函数

    86. Pmt 财务函数

    87. PPmt 函数

    88. PV 财务函数

    89. QBColor 颜色值函数

    90. Rate 财务函数

    91. Replace 函数

    92. RGB 函数

    93. Rigjt函数

    94. Rnd 函数

    95. Round 函数

    96. Second函数

    97. Seek 函数

    98. Sgn 函数

    99. Shell 函数

    100. Sin 函数

    101. SLN 直线折旧法函数

    102. Space函数

    103. Spc 函数

    104. Split函数

    105. Sqr 函数

    106. Str 函数数值转字符串

    107. StrComp 字符串比较函数

    108. StrConv 大小写转换函数

    109. String函数

    110. StrReverse 函数

    111. 切换函数

    112. SYD 年数总和法折旧函数

    113. 选项卡函数

    114. Tan 函数

    115. Timer 函数

    116. TimeSerial 函数

    117. TimeValue 函数

    118. 类型转换函数

    119. TypeName 函数

    120. UBound 函数

    121. UCase 函数

    122. Val 函数

    123. VarType 函数

    124. Weekday日函数

    125. WeekdayName 函数

    126. Year 函数

    示例下载:

    在“了解更多”里下载。

    展开全文
  • VBA of string replace in word VBA

    千次阅读 2010-06-07 00:06:00
     'replace the text in the document with text in cells  Call Change_Bookmark("@target", "NewValue")  WD.Activate  Inv_doc.SaveAs "C:/Users/a/Desktop/test1"  Inv_doc.Close  WD.Quit  Set Inv_doc =...


    'hangeFileOpenDirectory "C:/Users/a/Desktop/test"
    'Dim name As String
    'name = 1
    'DoWhile DirY(name + ".doc") <> ""
    '
    'DocumentsOpen FileName = name + ".doc"
    'End Sub


    Option Explicit
     'the document
    Dim Inv_doc As Object
     'the application
    Dim WD As Object
    Private Sub CommandButton1_Click()
         'where is the template located
        Const which_document As String = "C:/Users/a/Desktop/test/1.doc"
         'need an instance of word
        Set WD = CreateObject("Word.Application")
        WD.Visible = True
        Set Inv_doc = WD.Documents.Open(which_document)
         '*** code to manipulate your document
         'replace the text in the document with text in cells
        Call Change_Bookmark("@target", "NewValue")
        WD.Activate
        Inv_doc.SaveAs "C:/Users/a/Desktop/test1"
        Inv_doc.Close
        WD.Quit
        Set Inv_doc = Nothing
        Set WD = Nothing
    End Sub
    Sub Change_Bookmark(Template_Value As String, New_Value As String)
        Dim oword As Object
        For Each oword In Inv_doc.Words
            If oword.Text = Template_Value Then
                oword.Text = New_Value
            End If
        Next oword
        Set oword = Nothing
    End Sub

    展开全文
  • excel vba replace函数的使用方法

    万次阅读 2020-03-01 14:09:32
    Repalace函数是vba中常用的字符替换函数,本文介绍了replace的基本使用方法,6个参数的意思。 Sub replacetest() Dim str As String Dim str2 As String str = "ababab" 'vba.Replace("在哪儿找","找什么(需要被...
  • 大家好,今日推出常用“积木”过程案例分享第307期,今日内容是利用字典,利用VBA计算除以7余数是5的数。提供给大家的这些内容是我多年经验的记录,来源于我多年的实践。大家在学习VBA的时候,可以把这些代码块作为...
  • Cells(Rows.Count, "B").End(xlUp)) strTxt = objRegEx.Replace(Trim(c.Value), "") c.Offset(0, 1).Value = Application.Evaluate(strTxt) Next Set objRegEx = NothingEnd SubtSet objRegEx = NothingEnd Sub ...
  • 替换Excel表格中的字符或者字符串在职场数据处理中经常遇到,本篇神奇的VBA将介绍如何将不定长的字符筒体替换成一个字符。...------ 方法1------综合使用VBAReplace函数和Excel自带的Trim函数。Su...
  • VBA正则表达式的语法与其他语言(如Python)中使用的语法有较大的区别,主要是因为VBA的RegEx对象带有可选参数,因此有时必须指定这些参数以获得与在其他语言中使用标准的正则表达式语法相同的结果。VBA正则表达式语法...
  • 我们之前的一篇文章在VBA里用到了一次Replace,它在Excel的函数里面是常用的文本替换类的函数。下面我们一起来了解一下。函数语法Replace函数能够将部分文本字符串转换为不同的文本字符串,语法是:=Replace(old_...
  • 在某些时候我们需要对单元格区域进行操作时,在这个时候也许你会选择使用Find、Replace、SpecialCells等方法可以比使用VBA代码获得更快的速度,如下面的代码所示: 在这个过程分别使用VBA代码和使用Replace、...
  • 本篇神奇的VBA将介绍几种通过Excel VBA编程来快速高效拆解单元格中数据的思路。案 例 将下图中B列中的生产编号按照"-"号进行拆分,并将拆分后的非空数据逐一放入右边的列中。注:表中B列,有约3万1千行数据。思路1:...
  • 本篇神奇的VBA将介绍几种通过Excel VBA编程来拆解分列单元格中的数据的思路。案 例将下图中B列中的生产编号按照"-"号进行拆分,并将拆分后的非空数据逐一放入右边的列中。注:表中B列,有约3万1千行数据。思路1:也...
  • 第一步,在原始数据旁边的单元格,输入replace函数得到替换后的内容 第一步 Sub 函数()' 函数 宏 ActiveCell.FormulaR1C1 = "=REPLACE(替换手机号!R[4]C[11],4,4,""****"")"'解释:这句话是说当前单元格内输入...
  • 之前的一篇我们讲到如何用VBA制作出一个乘法口诀表,然后有小伙伴提建议,如何把它读出来呢?先把代码发出来。第1、2、6行代码给定格式最开始的Sub和最后的End Sub就没什么好说的咯,第二行的Dim rg As Range,声明...
  • Hi,大家好,本章节开始将会从零开始和大家用图文的方式,让你从零基础学会正则表达式!有兴趣的小伙伴可以持续关注我,或者在专栏中进行查看自我学习...也可以自己编制VBA代码进行测试,这样做的好处是可以提高在今...
  • 今天见到EH一位会员问一个REPLACE函数的问题,代码如下: 1 Sub Macro2() 2 s = "---" 3 s = Replace(s, "-", "=", 2, 1) 4 Debug.Print s 5 End Sub 按照EXCEL函数中的REPLACE来理解的话,是把给出的...
  • 将文本中的一个文本字符串替换为另一个文本字符串。此代码片示例将页面上所有出现的“#”替换为当前日期。 参考代码 ... s.Text.Replace "#", CStr(Date), False, ReplaceAll:=True Next s End
  • 大家好,我们今日讲解“VBA信息获取与处理”教程中第十四个专题“Split函数提取数据信息的深入讲解”的第四节“对于字符串拆分的增强操作”,这个专题是非常实用的知识点,希望大家能掌握利用。教程会提供配套的程序...
  • VBA

    2021-03-18 17:06:35
    vba 之匹配 正则对象有四个属性和三个方法。 属性 说明 方法 说明 | Global Boolean值,指明单次匹配或者全部匹配 | Execute 将正则模式应用于字符串,并返回Matchs集合 | |IgnoreCase Boolean值,指明匹配模式...
  • Range.Replace(…) 方法 返回 Boolean,它表示替换指定区域内单元格中的字符。使用此方法并不会更改选定区域或活动单元格。 语法 表达式格式: Replace(What, Replacement, LookAt, SearchOrder, MatchCase, ...
  • 本篇的方法和《神奇的VBA》编程:批量替换表格文字(1)中的方法本质上一样,在应用循环遍历的同时,综合运用一维数组和Replace函数实现本篇的需求。------ 需求案例------将A1:A9单元格区域中的1,2,3数...
  • 下载AccessDatabaseEngine.exe和AccessDatabaseEngine_X64.exe 数据引擎。 转载于:https://www.cnblogs.com/bignine/p/10090340.html
  • 对于用Excel做数据分析的朋友来说,提升Excel水平可以是这样的学习路径: 基本操作 → 数据透视表 → 函数 + 图表 → (SQL) → ① VBA/② (PQ+PP→PBI)基本操作、数据透视表属于Excel基础知识,一般大家都能正常...
  • "+sz" '取数字 .Pattern = "[^0-9\.]"End Select RegFun = .Replace(str, "")End IfEnd WithEnd Function额,对了,不会看到这里你跟我讲,你不会正则吧!如果是,还不赶紧去学超有意思的额!找不到教程的就等小...
  • 替换Excel表格中的字符或者字符串在职场数据处理中经常遇到,本篇神奇的VBA将介绍如何一一对应的将某些字符替换为其它字符。------ 需求案例------将A1:A9单元格区域中的1,2,3数字分别替换为A,B,C。神奇的VBA提供...

空空如也

空空如也

1 2 3 4 5 ... 9
收藏数 172
精华内容 68
关键字:

replacevba