Tag: replace

如何在Excel中replace特定的，未知的字符？

我正在使用Excel 2013，我正在尝试做一个相当复杂的文本转换。 它是这样的：比方说，我有以下string： user_id profile_type_new user_refNumber campaign_period2 我想要做的是find一种方法来： 在下划线之后立即获取字符并将其转换为大写（_id变为_Id，_period2变为_Period2）。 之后，删除下划线。 作为参考，string应该像这样结束： userId profileTypeNew userRefNumber campaignPeriod2 我一直在绞尽脑汁，试图find一个这样做的function（或一组function），但没有成功。 任何人都可以指出我在正确的方向或提供一些例子，我怎么能做到这一点？ 提前致谢， 莱斯特

replace文字和更改字体颜色

我卡住了。 我成功地将一列中的3个文本replace为特定的文本。 但我无法将replace的文本的字体更改为红色。 将不胜感激帮助。 感谢以下是目前的代码 Worksheets("HPR").Columns("E").Replace _ What:="IM", Replacement:="Non-IM", _ SearchOrder:=xlByColumns, MatchCase:=True Worksheets("HPR").Columns("E").Replace _ What:="Comp", Replacement:="Non-IM", _ SearchOrder:=xlByColumns, MatchCase:=True Worksheets("HPR").Columns("E").Replace _ What:="", Replacement:="Non-IM", _ SearchOrder:=xlByColumns, MatchCase:=True"

Excel vba查找和replace结束

我只能在最后更换变体。 我们可以这样做，如果有的话，请任何人都可以帮忙吗？ 码： Worksheets("Part_Number").Columns("F").Replace What:="-G", Replacement:=" ", SearchOrder:=xlByColumns, MatchCase:=True input： WA-2001-G WA-GSK024 预期产出： WA-2001 WA-GSK024

在excel中分割string（vba）

我正在使用这个代码（来自这里的一个同伴）来查找列b1中的每个单元格，并find包含“;”的单元格。 像“你好;再见”。 该代码将拆分单元格的“;” 把“再见”直接放在“你好”之下 在一个全新的行 我现在需要的是…如果一个单元格包含多个 “;” （即“你好;再见;哟;嗨;嘿”）它将分裂在每个“;” 不只是第一个，然后每个移动到另一个下方的新行… 我需要做些什么改变？ Dim r1 As Range, r2 As Range Dim saItem() As String For Each r1 In ActiveSheet.Range("B1", Cells(Application.Rows.Count, 2).End(xlUp)) If InStr(1, r1.Value2, ";") > 0 Then saItem = Split(r1.Value2, ";") r1 = Trim$(saItem(0)) & ";" r1.Offset(1).EntireRow.Insert (xlDown) r1.Offset(1) = Trim$(saItem(1)) End If Next r1

如何在Excel / Word / Notepad ++中每五行插入一个换行符？

我有这个列表： 08:17 17:01 08:09 16:56 09:22 17:01 08:08 17:05 07:59 16:54 。 。 。 如何在每行5行中插入一个换行符在Excel / Word /记事本中？ （不是） 例如： 08:17 17:01 08:09 16:56 09:22 （在这里换行） 08:08 17:05 07:59 16:54 08:02 （在这里换行） 等等 等等 我已经尝试了/ n / r / n / r，但无法弄清楚，是否必须使用代码，或者是否有像TextFX / Notepad ++或任何具有此function的工具？

在最后一个反斜杠之后提取剩余string的函数

我需要一个Excel函数，可以从path中提取最后一个string，如果没有find，然后采取整个string。 例如： D:\testing\rbc.xls output will be rbc.xls D:\home\testing\test1\script1.sql output will be script.sql script 3.txt output will be script 3.txt

replacefunction将文本格式转换为数字格式。 它是Excel的错误？

我不是擅长或谷歌search新手，但这种行为是惊人的/不合逻辑的： 格式列“A”到文本 在单元格中写入一些数字，例如74到A1，A2和A3–它们被格式化为文本，它们没有总结，看起来没有问题 去找 – 用75取代74 在取代75的总结之后，即使单元格仍然被格式化为文本，它们的行为仍然像数字一样！ 我不明白为什么？！ 这个“bug”（？）在VBA中引起了一些麻烦，因为下面的代码不会将数据转换为预期的结果（文本格式的“数字”），我根本无法将其转换为文本格式： Selection.Replace What:="74", Replacement:="75" 同样的结果，当我尝试任何这些方法： Selection.Replace What:="74", Replacement:=Format("75", "@") Selection.Replace What:="74", Replacement:=CStr("75") Selection.Replace What:="74", Replacement:="75" Selection.NumberFormat = "@" 唯一的解决scheme是这样的： Selection.Replace What:="74", Replacement:="'75" 但是我不希望这个牢房里的那个亲属 有没有其他方式如何replace文本，看起来像单元格中的数字 – 通过另一个文本，看起来像数字？ 我觉得只是假装花一个小时思考这样的基本知识！ 编辑：甚至这种使用命名范围的方法给了我75个数字（单元格格式是文本）： Selection.Replace What:="74", Replacement:=Range("number_75_in_text_format").Text

删除单个单元格内的多个可变string实例

如果我有一个像这样的单元格： 福特蒙迪欧（编号5588），铃木斯威夫特（ref kjgh），约翰霍姆斯（hulubulu） 并希望删除所有的括号和内部的信息，但不是括号内的所有信息。 所以我最终得出结论： Ford Escort , Ford Mondeo , Suzuki Swift , John Holmes 我发现了一种使用MID（）函数的方法，但是这只是删除了第一个带有内容的括号(ref 1234)而我似乎无法find在同一单元格内循环或重复此function的方法。 由于在不同的括号中有不同的信息，我不能使用SUBSTITUTE，但是在Mac Excel 2008中有另一种方法吗？

Excel VBA – 从单元格中删除单个字符，而不会丢失单元格内容的其余部分的格式

我试图删除单元格中第一次出现的“<”和“>”，而不会丢失单元格其余内容的格式。 我已经在这里看了几个地方，其他，无济于事。 这是我想要做的： 说“A1”包含文字： "This is <a> long string with several <occurrences> of a <special> character." 无论如何，我所要做的就是删除“>”，在完美的世界中，“<”从包含它们的第一个单词中保留粗体格式以及“<”和“>”在包含它们的下一个单词上。 这是唯一的代码执行之前，我有问题的代码。 inTx = Range("A2").Value outTx = Replace(inTx, "Init_Day", Range("A3").Value) Range("A2").Value = outTx 它将<placeholder>文本replace为实际文本，在这种情况下是两位数字。 这里是不适合我的代码： SearchString = Range("A2").Value Char1 = "<" Char2 = ">" For i = 1 To Len(SearchString) If Mid(SearchString, i, 1) = Char1 Then startPos = […]

Excel-VBA：从string查找和replacedate格式

' Try to format the dates Range("N:N").Select Selection.NumberFormat = "dd/MM/yyyy" Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 使用此代码尝试修复一些下载的数据的问题，我不能控制。 表格在以文本forms存储的date前面有一个空格。 例如“04/11/2013” 在Excel中执行“手动查找和replace”可以修复问题，但是我希望事后旋转数据和组，然后在尝试使用VBA时执行两项操作。 它不会将所有logging识别为date。 即使单元格格式被改变，一些仍然是一般的。 这意味着用户不得不用F2 + Enter来遍历每一行，然后在数据透视表中进行大量的操作。 逆转日/月。 即原始数据是01/10/2013（10月1日），并将其转换为10月1日。 是否有修复查找/replace或循环修复单元格格式的方法。