Tag: replace

Excel：查找并replace第一行和Excel表单: 我想要一个代码来查找并replaceExcel表格第一行中的所有单元格。我有以下代码通过search谷歌。 Sub FindReplace() Dim sht As Worksheet Dim fndList As Variant Dim rplcList As Variant Dim x As Long fndList = Array("Fname", "Lname", "Phone") rplcList = Array("First Name", "Last Name", "Mobile") For x = LBound(fndList) To UBound(fndList) For Each sht In ActiveWorkbook.Worksheets Rows(1).Replace What:=fndList(x), Replacement:=rplcList(x), _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Next sht […]

从Excel列表中“查找并replace”Word中的多个单词: 我在MS Word中创build了一个查找并replacemacros，用B代替了A。好的，但现在我有50个需要replace的单词。这意味着我将不得不为每个单词创build一个新的条目，这将需要永远。再加上从现在开始的几个星期，我将不得不添加更多的单词来取代。有没有办法通过Excel链接单词列表，比如说第1列中的单词是我想用第2列中的匹配单词replace的单词？这是我迄今为止。 Sub Macro5() ' ' Macro5 Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "apples" .Replacement.Text = "all the apples" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute […]

Rinput文件包含值#NUM！我想用NA来代替这些。怎么样？: 我正在将大量源自Excel的.csv文件读入到R中。有些单元格包含值“#NUM！”，我猜测这个值是除以零的结果。无论如何，R不喜欢它。而且，由于我有很多文件，我想replace#NUM！在将文件导入到R中时，使用NA作为值。而不是查看每个正在进行查找replace的文件。 build议表示赞赏。谢谢。 JD

在vba中如何在保存文件时更改扩展名，不知道确切的文件名: 我的问题是这个。我使用通配符读取一系列文件名，以便文件名的末尾是未知的，扩展名是.xls或.xlsx。所以，通配符是这样的： beginningOfFilename_ *.xls * 然后，我想在每个文件操作完毕后将其保存为相同的名称，但是以.csv（逗号分隔的值文件）的forms保存。在Excel中的VBA，我可以只指定格式，它会照顾的扩展，或者我必须以某种方式拉（未知）的扩展名，并追加.csv 如果第二种情况是必要的你将如何处理这个问题，我不知道从哪里开始，因为文件名的一部分是未知的，我不知道如何操纵string在VB中。我是一名VBA初学者。任何帮助将不胜感激，谢谢。

Excel在'x'之前和之后replacestring中的字符: 你好，我有一个string（产品名称）在其中的列。现在这些被格式化为Name LenghtxWidth ，例如Green box 20×30。现在我需要改变20在这个例子中的30，所以我得到绿框30×20，任何想法，我怎么能做到这一点？谢谢

Excel VBA – 如果最后一位是0，则用1replace: 我有一个2位和3位数字的电子表格。如果是以0结尾的3位数字，则最终的0应该被replace为1.因此，150变成151，200变成201。这是我正在使用，只是为了testing的function，它是非常缓慢，通常崩溃Excel，因为（我认为）它本质上是做每个单元格上多次查找和replace，即使它已经取代了价值。所以我觉得我需要走一条不同的路线。 Sub FixNumbers() Dim c As Range For Each c In Selection.Cells Selection.NumberFormat = "General" c = Replace(c, "100", "101") c = Replace(c, "150", "151") c = Replace(c, "200", "201") c = Replace(c, "250", "251") c = Replace(c, "300", "301") c = Replace(c, "350", "351") c = Replace(c, "400", "401") Next End […]

公式消除所有，但字母字符: 我需要在Excel中清理一列名称，以消除所有非Alpha字符，包括句点，逗号，空格，连字符和撇号。示例：将O'Malley-Smith, Tom, Jr.更改为OMALLEYSMITHTOMJR 客户端要求这是一个Excel函数，否则我会用类似于replaceAll("[^a-zA-Z]", "").toUpperCase()的快速Java程序来replaceAll("[^a-zA-Z]", "").toUpperCase() 。我似乎无法find任何看起来像是一个现成的function，在整个一堆SUBSTITUTEfunction之外做这件事 – 这似乎是每个单元一个。如果这是我所需要的，我并不是非常stream利地开发自定义的macros。

VB.Net：用一个string中的等价值replace“_x000D_”等特殊字符: 我将一个Excel电子表格中的一些自由文本值上传到我的VB.NET项目中，并将值保存在SQL服务器数据库中。但是一些特殊字符（如_x000D_已保存到数据库中（它们在Excel电子表格中不可见）。在将它们保存到数据库之前，如何将其转换为原始值？我想使用Replace("_x000D_", vbcrlf)函数replace它们，但是我不确定是否会有其他特殊字符（以及它们在VB.Net中的等价值）？

Excel – macros来导入和replace现有的电子表格: 我用25张左右的excel文档工作，5张用于总结其他20张。每个月我得到20个新的更新表，我必须导入到这个Excel文件（我不能复制和粘贴它，因为一些单元格被locking，需要保持这种方式）。目前我只是将单个表单复制到Excel文档中，删除旧表单，并更新5个汇总表中的所有公式以反映这些新表单。有没有更简单的方法来做到这一点？

使用Regex和PowerShellreplaceCSV中的多个行模式？: 我有一个Excel文件，其中包含数千行数据，我使用各种PowerShell脚本从SharePoint服务器中检索数据。行的内容结构非常相似： General/Categoryname /ADMIN_XXXX_YEAR(random stuff here)/more_random_stuff_here.filetype 问题是我需要过滤除了ADMIN_XXXX_YEAR(randomstuffhere)部分的所有内容。就正则expression式而言，我会看到类似于： http://www.regexper.com/#General \％2F％28 \ w％2B％29 \％2F％28 \ w％2B％29_％28 \ d％2B％29_％28 \ d％2B％29 \％28％28％* 29 \ 29％（尽pipe公平(\w+)\/(\w+)_(\d+)_(\d+)\((.*)\)应该足够了）。是的，我知道我的正则expression式并不是一stream的，但expression式通常会达到我需要的目的，因为它会find我所需要的。这里的问题大部分来自于我在StackExchange上所了解和search的内容，如果没有VBA脚本，就无法将其应用于Excel。有内部的search和查找，虽然我不清楚如何执行这样的search将起作用。也许有一种方法在PowerShell中做到这一点，我不知道？如果有人有一些可以帮助我的信息材料，我将不胜感激。