Tag: 修剪

从单元格中的string中删除特定的字符

我想要一个公式，将从string中删除某些字符。 例如。 CC200-M1-02-1-1（string）我想这样出来，CC200021。 所以下列字符被删除（ – ，m，1， – ， – ， – ，1）。 我已经尝试了镜头，但这只会删除最后的字符。 有什么build议么？ CC200-M1-02-1-1 CC230-M1-02-1-1 CC250-M1-02-1-1 CS005-MW-14-1-1 LG100-M0-14-1-1 LG150-M0-14-1-1 LG220-M0-14-1-1 LG230-M0-14-1-1 LX150-M0-14-1-1

从vba中的文本string中删除空格

我试图在Excel中debugging一个函数来使用导入的文本文件中的数据分隔表格。 当名称中有一个空格时，macros有一个问题（请参阅示例，第二行），因为表是用空格分隔的。 我目前的代码对于示例的第一行工作正常。 一个表存在多行与此类似的行。 从文本文件导入的表格的示例 所以问题出现在“WT 03”这样的东西出现时，有空间，程序崩溃。 我已经尝试修剪，find并replace，但他们不工作，因为整个行被包含在第一列，并用空格分隔。 我只想消除在“Wt02”或“WT 03”中发现的任何空格。 任何意见或build议在哪里看，将不胜感激。

在MS Excel VBA上。 如何在范围公式中使用当前（非活动）行的值？

让我们来看看。 我有一个整个列的命名范围，让说A：一个名为MyColumn。 如果我把单元格B1的公式“= MyColumn”…它会自动采取与“MyColumn”相交的“MyColumn”，在这种情况下，当然，A1的单元格。 我可以将这个公式从B1填充到B5，其值将从A1到A5。 我们可以这样做。 我需要使用这个逻辑在VBA上编写一个公式。 使用ActiveCell.Row对我来说是没有意义的，因为如果我从B1拖放到B5 …所有单元格被填充为B1，如下所示： Function Test(ByVal a As Range) As String Test = a(ActiveCell.Row) End Function 以上，我的结果是这样的： valor1 | valor1 valor2 | valor1 valor3 | valor1 valor.. | … valorn | valor1 只有当我select一个单元格时，该值是固定的，按F2然后input。 我究竟打算做什么？ 我需要一个只能从单元格右侧修剪空格的函数，因为它的值是缩进的，但可以包含尾随空格。 我的实际function如下所示： Function TrimIndented(ByVal tText As Range) As String TrimIndented = RTrim(tText(ActiveCell.Row)) End Function 经过对networking的深入研究之后，我只find了使用“活动单元”的解决scheme，但是我发现了一些关于“本书”的引用“当前运行代码”的东西，而不是活动的。 我需要这样的东西，但是对于一个细胞。 […]

在Excel中删除前导/尾随空格和逗号

这似乎是这样一个简单的要求，我觉得我失去了一些明显的东西。 我有一个Excel电子表格中的“脏”文本数据，其中包含文本和不必要的前导和尾随，空格，逗号和换行符。 我想TRIM引用所有这些字符的这些单元格。 注意：我不想replace所有这些字符，因为它们合法地出现在单元格文本中 – 就是在单元格文本（即值）的开始或结尾处，我想将它们修剪掉。 文本数据由人员和学校的名称组成，用于清理和导入CRM。 那么，有没有内置的函数，还是我需要写一个？ 我觉得在PHP中的string过滤函数的数量被宠坏了;-)

在Excel中不能删除非空格的空白字符

当通过任何方法（导入，粘贴，…）将数据导入到Excel中时，我有时会遇到以下问题。 在单元格的开头，文本前面有一个额外的空间。 现在我知道通常的程序来处理这个： trim(cell number) 如果它不是空格字符 =TRIM(SUBSTITUTE(cell number,CHAR(160),CHAR(32))) 但是这次这两个都没用。 我也尝试了其他替代CHAR。 而开始时的angular色简直就是怪异的。 当我走到单元格的一开始，尝试删除它时，我必须按两次删除键才能删除一个空格！ 但是，当我到单元格中的第一个字符，而不是回退空间，我只需要按一次。 我还能做些什么来消除这个奇怪的非空白字符？

修剪返回所需的错误424对象

我试图使function，使2超文本字段。 代码如下： Option Explicit Sub AddLink() Dim MyPath Dim MyChar Dim i As Integer Dim myString Dim numbers Dim siteID Dim MyWB Dim siteAddress MyPath = "SomeFilePath\" MyChar = "\" For i = 2 To 4000 Step 1 myString = Range("B" & i).Value numbers = myString.TrimStart(MyChar) siteID = Range("F" & i).Value MyWB = "WO_" & […]

如果它有一个特殊的照顾者，如何从一个单元格中删除一些数字文本（不是单元格的全部input）？ 高强

我有这个Excel表格有一些问题。 他们在单元号。 a1，a2，a3 …….等等。 每个问题都有一个分配给它的号码，如下所示。 你的头发是什么颜色的？ 塔小村在哪里？ 如何公鸡5马铃薯？ 数字10大于数字2？ 等等 您会看到每个问题号码旁边都有（。）。 我想删除任何（。）旁边的数字值。 所以我只有文本问题而不是数字。

检索第三个和第四个逗号之间的文本

我试图得到第三个和第四个逗号之间的文本。 文本是：00025,22，SarfЗэkэюlarэ，CD DISK 25 ADET，150.99.001.01.105,30.06.2015， 我需要“CD DISK 25 ADET”。

在Excel中从文件名修剪扩展

我有这个公式。 这个工作很好，但有5个字符包括点时失败。 例如， abcdefgh.pdf = TRIM（LEFT（A1，LEN（A1）-4））给了我abcdefgh xyz.xlsx = TRIM（LEFT（A2，LEN（A2）-4））给了我xyz。 是否有一个公式，寻找最后一个点，并修整最后一个点后的一切？

函数来修剪vba中的前导和后缀空格

我已经检查了几个build议，重新调整vba中的首尾空白（顺便说一下，excel）。 我已经find了这个解决scheme，但它也修剪åäö（也上限），我在正则expression式太弱，看看为什么： Function MultilineTrim (Byval TextData) Dim textRegExp Set textRegExp = new regexp textRegExp.Pattern = "\s{0,}(\S{1}[\s,\S]*\S{1})\s{0,}" textRegExp.Global = False textRegExp.IgnoreCase = True textRegExp.Multiline = True If textRegExp.Test (TextData) Then MultilineTrim = textRegExp.Replace (TextData, "$1") Else MultilineTrim = "" End If End Function （这是来自SO的一个答案，那里的使用账号似乎不活跃： https://stackoverflow.com/a/1606433/3701019 ） 所以，如果有人能够帮助解决这个问题，或者（b）不会去掉（单个）字符的正则expression式/代码的版本，我会很乐意。 谢谢你的帮助！ 详细信息：问题 vba中的修剪function不考虑所有的空白字符（例如制表符）。 一些自定义修剪是必要的 我find的最好的解决scheme是上面，但它也删除单个字符。 我的上下文是vba中的一个xmlparser，在这里它得到了大量的xmlparsing。 它有时只是从stream中获得一个字符，可能是这个字符，然后这个函数就会完全去掉。 当然，我很乐意澄清或编辑这个问题。 供参考：我已经根据答案分享了我所做的，见下文。