Tag: replace

在特定的Excel列中查找和replace

如何修改这个脚本只在特定的列中查找和replace？ Set xl = CreateObject("Excel.Application") xl.Visible = True Set wb = xl.Workbooks.Open("C:\Users\test.xlsx") Set ws = wb.Sheets("Sheet1") Set objRange = ws.Range("Q1").End(xlDown).Select objRange.Replace "~*", "" 当前脚本在Set objRange行上出现错误。 在整个表中replace*会干扰公式。

迭代在循环中发现的所有单元格

我试图find重复的值，并在Excel中的列中，并将3个值在项目旁边的相应列中。 我正在努力的问题是我的search范围一遍又一遍地find相同的范围，而不是移动到下一个范围，发现包含string或设置replaceValuesRange为Nothing 。 我随后决定将string值更改为MainInputSHeet.Cells(loopCounter, 4).Value = findString & " FOUND"以尝试更改string的值，但我仍然卡在find循环中，我认为是因为string仍然存在于单元格内。 有任何想法吗？ 这个问题存在于Do Until Loop中。 其他一切工作正常 这就是直接窗口看起来像迭代DoLoop的过程： $D$5 $D$5 $D$5 $D$5 $D$5 $D$5 $D$5 $D$5 $D$5 $D$5 主代码块 Option Explicit Public Const DIR_SDR_PRODUCT_DEFINITIONS_FILEPATH As String = "U:\Research_Dev Docs\DevFolder\SDR Sheet\SDRProductDefinitionsICE.xlsx" Public Sub TranslateAndPullProductInformation() Dim lastRow As Integer, loopCounter As Integer Dim sdrICEDefinitions As Workbook Dim DefinitionsSheet As […]

想从Notepad ++或Excel的超链接中删除nth“/”后的所有内容

我需要一些帮助：寻找一种方法来删除超链接中“/”的第n次出现（最可能是第4或第5次）之后的所有内容。 例如，如果我有 https://www.forbes.com/forbes/welcome/?toURL=https://forbes.com/&refURL=&referrer= 我想要的输出是： https://www.forbes.com/forbes/welcome/ 此外，如果一个链接只有<4“/”，我想保持一切。 提前致谢！！

如果来自同一列的另一个单元格包含X，则replace/更新/修改单元格值

Excel背景 我有2个excel列和长行的logging。 （仅作为例子，因为我有超过10列） A栏 – 是“是还是不是”栏B – 是一个注释。 可以input任何我需要的东西 怎么运行的 这是一个订货系统，如果date延迟，列A将显示“是”，如果没有延迟，则显示“否” 我需要 我需要VBA代码来执行以下操作： 如果栏B2包含文字“无延迟”，栏A2将从“是”改变为“否” 我testing了什么 Private Sub UpdateColumnA() Dim x As Long For x = 4 To 65536 Dim InStr As String If InStr(1, Sheet1.Range("$M$" & x), "No Delay") Then Sheet1.Range("$K$" & x) = Sheet1.Range("$K$" & x) & "No" End If Next End Sub 我在上面遇到的问题是，A2栏“是”将成为“ […]

pandas阅读csv取代＃DIV / 0！ 和#VALUE！ 与NaN

我是Python的pandas新手，正忙于阅读一个csv文件。 不幸的是，Excel文件有一些单元格带有#VALUE！ 和＃DIV / 0！ 在他们中。 我无法在Excel中修复此问题，因为数据是从其他工作表中提取的。 pandas把这些列变成objects而不是numpy64 ，所以我不能从他们的阴谋。 我想replace#VALUE！ 和＃DIV / 0！ string与pandasNaN条目，但我找不到如何做到这一点。 我已经尝试了以下（我的代码运行，但它没有改变）： import pandas as pd import numpy as np df = pd.read_csv('2013AllData.csv') df.replace('#DIV/0!', np.nan)

在VBA中查找和replace

我试图通过部门名称（string）的列，任何包含string“ – INACTIVE”需要删除，只有部门名称。 例如，如果我有“jackson维尔 – 非激活”，我想它只是在列单元格中的“jackson维尔”。 我试图使用.Find和.Replace方法，但我似乎没有把握如何使用它们的方式。 我已经尝试了一个朋友的帮助，这是我迄今为止。 我是这个语言的新手。 Sub DeleteRows() Dim c As Range Dim SrchRng Dim InactiveDepartment As String Dim Department As String Range("A1").Select InactiveDepartment = ActiveCell.Value Set SrchRng = ActiveSheet.UsedRange Do Until ActiveCell.Value = "" Set c = SrchRng.Find("INACTIVE", LookIn:=xlValues) If Not c Is Nothing Then Department = Replace(InactiveDepartment, " – INACTIVE", […]

使用文本stream对象来replace带空格的制表符并删除字符

我有超过一千个.s2p文件（由电气testing设备使用的分隔文本文件），这些文件是由VBAmacros编辑的，它在Excel中以制表符分隔的文本文件打开每个原始文件，包含另一个文件的数据列的列，然后以原始格式（.s2p）保存并closures它们。 这是我用来打开每个文件的呼叫： Call Application.Workbooks.OpenText(Filename:=(path & filename & ".s2p"), Origin:="437", DataType:=xlDelimited, ConsecutiveDelimiter:=True, Tab:=True, Space:=True, TextQualifier:=xlTextQualifierNone) 现在，当我在记事本中打开.s2p文件来查看它们时，分隔列的原始单个空格现在是一个完整的选项卡，并且在某些文件标题行中添加了一些双引号（“）字符（尽pipe设置了TextQualifier参数到xlTextQualifierNone …） 因此，我想写另一个macros，可以打开所有这些.s2p文件，循环通过行，并用空格replace任何双引号，任何制表符与单个空格。 我打算在每个文件上使用.OpenAsTextStream ，但似乎TextStream对象不支持覆盖行，但只能写新的行… 有没有更好的方法来实现我所要做的，而不仅仅是读取原始文件中的行，并将它们写入新创build的文件？ 我必须将最终文件保存为“.s2p”而不是“.txt”。

如何在Excel中删除只有第一个逗号（确切的字符，符号或string）

我有数字女巫时，是1000，然后有逗号“，”数百像前1,234,00 如何删除第一个逗号或使第二个出现，所以这将是1234,00或在Excel中，因为它作为数字，如果只有空间，然后用空格或逗号？ 到目前为止，我有公式获得数字 =MID(LEFT($A604;FIND(" on ";$A604)-1);FIND("?";$A604)+1;LEN($A604))*1 而为了消除所有我把它替代删除逗号，但这使得数字错误更高像123400 =SUBSTITUTE(MID(LEFT($A604;FIND(" on ";$A604)-1);FIND("?";$A604)+1;LEN($A604));",";"")*1

在前缀之后添加第二个大写字母

我有一个Excel表格（MS Excel 2010）和一列城市名称（单元格A2：A4），每个名称与主要名称前缀（即De，La，Las，Ja等）连成一个整个单词。 。 我也有一系列关键字（单元格B2：B4），我希望在单元格B2：B4中匹配与前缀匹配的每个整个单词（单元格A2：A4）的开始/开始（不区分大小写）。 如果开头前缀与大写字母匹配，则前缀和大写的第一个字母是前缀后面的第一个字母，而所有其他字母都是小写，全部为一个字。 (Cell: A2) Debarge (Cell: B2) de (Output Cell: C2) DeBarge (Cell: A3) dewitt (Cell: B3) de (Output Cell: C3) DeWitt (Cell: A4) Laplata (Cell: B4) la (Output Cell: C4) LaPlata 谢谢

如何删除或replacestring中的括号？

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}; 上面的代码从电子表格获取数据，然后打印我知道文本的单元格的内容。它具有以下格式的文本：text（text） 我需要用空的空间replace开放的支架，我需要删除紧密的支架。 我已经尝试了下面的代码来替代一个空的空间的开放括号，但它似乎并没有工作。 $send =~ s/(/ /g; print $send;