Tag: replace

VBA Excel查找范围中的单词并进行replace: 我想用另一个单词replace一个字段中的单词，但是我的代码似乎没有工作，我仍然试图掌握编码语言，但是这对我来说并不直观。情况： Global Macro – Equities Global Macro – Bonds Global Macro – FX . . . And so on… 期望的结果： GM – Equities GM – Bonds GM – FX . . . 我的代码 Sub ReplaceFundNames() Dim FundName As String Dim CorrectedName As String Dim ws As Worksheet Dim LastRow As Long Set ws = […]

Excel VBA Cells.Find失败，除非我使用Application.Wait。为什么？: 我正在研究一个VBAmacros，我遇到了一些非常奇怪的行为。它适用于Application.ScreenUpdating = True ，甚至在屏幕更新closures时也可以正常工作，并使用VBAdebugging器逐步执行macros。只是在屏幕更新closures的情况下运行macros，不幸的是，导致Find函数在下面的代码中失败： Application.StatusBar = "Extracting data and updating tables…" Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.Open FileName:=Save_folder & "new_data.xls" Workbooks("new_data.xls").Sheets("data").Range("B9:B39").Copy Dim tempdate As Date, startCell As Range tempdate = DateAdd("d", -1, Now) tempdate = DateSerial(Year(tempdate), Month(tempdate), 1) 'Start of the month Dim strdate As String strdate = Format(tempdate, "Short Date") Set […]

在C＃windows应用程序中replaceExcel单元格值时出现警告消息: 我用下面的代码replaceC＃中的Excel单元格值，但如果找不到特定字段，则显示以下警告对话框。代码是这样的： xlWorkSheet.Cells.Replace( "CustomerName", "John", missingValue, missingValue, missingValue, missingValue, missingValue, missingValue); 因此，如果“客户名称”不在任何Excel单元格中，则显示以下消息： Microsoft Office Excel Microsoft Office Excel找不到任何要replace的数据。检查您的search格式和标准是否正确定义。如果您确定此工作簿中存在匹配的数据，则可能位于受保护的工作表上。 Excel不能replace受保护的工作表上的数据。我需要停止popup此对话框，因为我有很多单元格可以有字段或不。任何答案？

用excel.interopreplaceexcel中的单元格值: 我想扫描一个Excel工作表，并用零代替社会安全号码的任何事件…我想这样做使用Excel.Interop，如果可能的话，但我打开任何东西在这一点上…这里是我的一些代码…在过去的几个月里，我在桌子上敲着头… //获取范围并将其转换为stringvariables Excel.Range _range =（Excel.Range）_excelApp.get_Range（“A1：K1”，Type.Missing）; / /转换我们的细胞在我们的范围内的价值 //到stringvariables string myString = _range.Cells.Value2.ToString（）; //匹配任何SSN，例如1236780909，123-33-2445 if（Regex.IsMatch（myString，@“\ b \ d {3} \ b \ d {2} \ b \ d {4}”））; { _range.Cells.Value2 = replaceSSN; } //以新名称保存我们的工作簿并创build备份 _ExcelWorkbook.SaveAs（“Results.xls”，Type.Missing，Type.Missing，Type.Missing，Type.Missing，true，Excel.XlSaveAsAccessMode.xlNoChange，Type.Missing，Type.Missing，Type.Missing，Type.Missing， Type.Missing）; //closures工作簿 _excelWorkbook.Close（false，Type.Missing，Type.Missing）; //发送退出信号到应用程序 _excelApp.Quit（）; //报告成功 MessageBox.Show（“File masked successfully。”，“Mask Data”，MessageBoxButtons.OK）; //释放内存 //System.Runtime.InteropServices.Marshal.ReleaseComObject(_excelApp）; //将标签更改为空白 lblActivity.Text =“”; }

VBAreplace错误 – string视为公式: 我试图通过用一个空格（“”）replace所有实例“ ”来清除非常大的Excel电子表格中包含的一些文本。我已经尝试了两种方法：在Excel中使用普通的查找/replace全部选项，并使用这个非常简单的VBAmacros： Sub CleanUp() Application.Cells.Replace What:=" ", Replacement:=Chr(32), LookAt:=xlPart End Sub 在这两种情况下，我收到一条错误消息，指出： “您input的公式包含错误。有关修复常见公式问题的信息，单击帮助。要获得帮助input函数，请单击function向导（公式选项卡，函数库组）如果您不想input公式，请避免使用等号（=）或减号（ – ），或在其前面加上单引号（'）“。当然，我不想input一个公式。但是，前面的“ ”用Excel单引号表示并不能解决问题。即使我的searchstring不包含任何通配符（据我所知），我试图在我的macros中玩弄文字字符，看看是否会有所帮助。它不能解决问题，但是无论如何这里是代码： Sub CleanUp() Dim SearchFor As String SearchFor = Chr$(60) & "br" & Chr$(32) & Chr$(47) & Chr$(62) Application.Cells.Replace What:=SearchFor, Replacement:=Chr$(32), LookAt:=xlPart End Sub 有用的事实：我可以使用普通的查找/replace方法和VBAmacros轻松地在这个电子表格中find并replace其他string。我有其他类似的电子表格，其中发现和replace“ ”是可能的。在我的朋友的计算机上，可以使用这两种方法查找并replace“ ”的所有实例。有没有人有任何想法，为什么发生这种情况？这与我的Excel设置有关吗？

VBA Excelreplace不总是工作: 好的，现在真的很烦人了。最终我想添加一些ifs和其他的代码，但现在我只是有下面的代码。 ' resize string if nessuary sname = Replace(arr(x), "ASR Port Provisioning General Questions", "General Questions") sname = Replace(arr(x), "ASR Port Provisioning", "ASR PP") sname = Replace(arr(x), "ASR Standard Network Device Config Changes", "Std Config Change") If Len(sname) > 30 Then sname = Right(sname, 15) arr（）有元素 "ASR Port Provisioning General Questions", "ASR Port Provisioning", […]

VBA – replacestring中的字符: 我有1列，它应该包含一个金额，但它有不正确的格式，它被视为文本。因此，有必要用点replace点，然后用逗号replace点。我有代码： Private Sub Correction_of_dot() Dim i As String Dim k As String i = "." k = "" Columns("P:P").Replace what:=i, replacement:=k, lookat:=xlPart, MatchCase:=False End Sub Private Sub Correction_of_comma() Dim i As String Dim k As String i = "," k = "." Columns("P:P").Replace what:=i, replacement:=k, lookat:=xlPart, MatchCase:=False End Sub 但它没有任何…没有错误，只是加载，然后什么也没有发生。你能告诉我，我做错了什么，或者我可以做得更好吗？非常感谢！

根据列值更改行中的值并replace指定的列范围: 我发现我的答案大部分是：根据列值r更改行中的值。有两个区别：我想基于分类variables的testing来replace值，我想指定我想要replace的值的范围。我正在处理一个8600奇数行和170列的dataframe。这是一个例子： x = data.frame(c("Jan", "Feb", "March", "April"), c(9,3,4,6), c(8, 12,9,11), c(10, 9, 7, 0.6)) names(x) = c("Month","VAR1","VAR2", "VAR3") 我想用NA来replace月份为“March”或“April”的VAR2和VAR3（而不是VAR1）的所有值。我试过： x[x$Month==c("March", "April"), ] <- data.frame('x', NA, 3:4)但是我得到错误 Warning message: In `[<-.factor`(`*tmp*`, iseq, value = c(1L, 1L)) : invalid factor level, NA generated 和print(x)给出： Month VAR1 VAR2 VAR3 1 Jan 9 […]

Excelmacrosreplace部分string: 我无法replace包含注释的一系列数据中的部分string。在身份证号码出现的地方，我需要用X代替身份证号码的中间（例如423456789变成423xxx789 ）。 ID只能以4或5开头，其他任何数字都应该忽略，因为这可能是其他用途所必需的。不幸的是，因为这些评论数据是不一致的格式，增加了复杂性。代表性数据如下所示： 523 123 123 523123123 ID 545 345 345 is Mr. Jones Primary ID 456456456 for Mrs. Brown Mr. Smith's Id is 567567567 我需要的代码只能取代身份证号码的中间3位数字，并保持其他细胞完好无损 ID 545 345 345 is Mr. Jones Primary ID 456456456 for Mrs. Brown 成为（有或没有X周围的空间） ID 545 xxx 345 is Mr. Jones Primary ID 456xxx456 for Mrs. […]

Excel – 查找和replace多个单词: 我只是想做一个简单的查找和replace多个string。例如，我需要用“system”replace所有的“A1”，“A2”，“A3”，用“ACC”replace所有的“B1”，“B2”等等… 有谁知道一个好的路线？我只是不知道如何开始。谢谢您的帮助！