Tag: find

查找和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 = […]

查找其他单元格中至less存在相同文本的单元格（Excel）: 我有两列分成两张单独的表。首先， C1 ，我有1000行包含文本，在第二列C2我有2000行也包含文本。我需要做的是select所有包含任何C1行中的所有文本的C1行。例如，假设数据是这样的： C1 C2 Eval 1 Eval 101 doc Eval 1 Eval 1 project Eval 100 Eval 1 doc Ev 1 Eval 19 Eval1 Ev 2 最后，我想在第二个表中只select下面的单元格： C2 Eval 1 doc Eval 1 project 我对Excel不是很熟悉，但是我产生了以下function： =IF(ISNUMBER(FIND(<C1 cell>, <C2 cell>)),"OK", "Not OK") 然后根据“确定”来过滤数据。问题是，该函数只适用于单个C1值，但不是如果我select整个C1列，我需要.. 我也想使用VLOOKUP，但是我所需要的不是C2值与C1值完全匹配，但正如我之前所说，至less包含C1单元的全部文本。任何build议将不胜感激，斯特凡诺

非常奇怪的查找/replace行为: 我有一个存储在Windows-1251代码页的Firebird数据库，并使用IBExpert进行pipe理。我必须使用SQL获取一些结算信息，编辑它，然后将其发送到客户端。我将查询结果导出为.csv（逗号分隔值）格式，然后使用Microsoft Excel 2010将一堆csvs处理成漂亮的xls（带有边框，字体等）。我不知道为什么，但是IBExpert放置了一个奇怪的在几十年（64731而不是64731）之间的数字值中随处可见。来自VBA的Asc()方法告诉我这是ASCII代码页中的＃160符号。现在，我所做的最奇怪的观察：如果您手动复制这个符号，并使用Excel的查找/replacefunction从任何地方删除它，一切都OK。如果你在任何文本编辑器（如旧的记事本）做同样的事情，一切都还好。但是，当您尝试使用VBA自动更换时，一切都变得非常非常错误。不pipe你是从csv本身手动复制＃160还是使用Chr(160)生成它，如果你试图删除所有这些，VBA也会删除一半的逗号。逗号我的意思是一般已知的符号＃44，你可以谷歌“ascii”图片，并检查出来。我必须再次标记，replace影响一半的逗号，但是他们实际上是相同的符号，我再次检查了两次。你可以在下面find一个csv的链接，所以你可以放心，我不是疯了。这里是你可以用来重现魔法的代码 Sub test() Worksheets(1).UsedRange.Replace What:=Chr(160), Replacement:="" End Sub 我会非常感谢能澄清这种现象的人，因为我不能相信VBA就是那种越野车，我想我错过了某个地方更新：伙计们，我非常抱歉。我很愚蠢，我上传了错误的csv。这是正确的

VBA发现不工作: 我有一个工作簿，其中包含所有分支机构的所有发票清单，我们称之为“全部”，基本上我需要search是否在包含每个分支机构发票的另一个文件中find发票。它实际上是在每个分支的文件中，每个文件按月分割，我需要在每张表格中检查，然后在单元格中插入一个值。我们把这个叫做“0001”等等。 “所有”文件基本上包含一个分行号码的列，一个是发票号码，一个是发行人代码，另一个是在分行文件中是否发现。分支文件除了分支号以外都包含相同的内容，最后一列说明发票是否在“全部”文件中。有些情况下，发票在分支文件上，而不是在“所有文件”上，也可能出现在所有文件上，而不在分支文件上。我试图做的是在VBA中插入一个循环，这样它将在所有文件的发票之后自动开票并打开特定分支文件，然后在每张表中search发票号码。我还需要检查发行者是否是相同的，但是首先我尝试了这个代码，当它search它返回错误的单元格的值！这里是代码： Dim sh As Worksheet Dim iLoop As Integer For iLoop = 7 To 1719 ' this is where the invoices are in an excel sheet iloopoffset = iLoop – 6 ' as you see above, the list of invoices starts at line 7, so I used […]

VBA：search一个值，replace不同列中的值，但同一行: 在列BI中有零件号，在列C1中有序列号，在EI列中有每个零件/序列号组合的最近检验date。我需要将检查date更新为另一个单元格中引用的新date。我试图添加一个图像，但它不会让我。我将尝试重新创build下面的Excel图像：例： BCDE 部件号 ___________ 序列号 ________________ 检查date 75750-0001-0000 ___________ 0002 ______________________ 9/15/2014 更新信息： OPQ 部件号 ___________ 序列号 _______ 检查date 75750-0001-0000 ___________ 0004 _______________ 2015年8月24日在O5有一个零件号码，在P5我有一个序列号，Q5我有该部分/序列的检查date。我需要点击一个button，让检查date更新列表中的正确部分/序列号。（实际的列表要大得多，所以手动操作会非常耗时）。没有重复或类似的东西。任何帮助将不胜感激。

Excel – 在一列中search值，但将值复制到结果的左边: 我已经尝试了（我熟悉的）excel函数，并没有find办法做到这一点。我想在Y列中search“Foo”，无论我在哪里得到结果，我都想将内容复制到包含“Foo”的每个单元格的左边（X列）。这是我必须通过CSV转换？即下面，我想只复制ab＆sa到一个新的价差，同时保持它们作为单独的单元格（顺序并不重要） XY ab Foo bd Bar se Bar sa Foo ge Bar

在Find方法中，VBAtypes不匹配: 我试图创build一个函数，如果在一行中有一个单词“市场”，将在每一行的第11列input“是”。但是我得到的错误不匹配。 Option Explicit Sub findMarketing() Dim r As Range For Each rw In Worksheets("Sheet1").Rows Set r = rw.Range("A:G") If r.Find(What:="market") Then rw.Columns(11).Value = "Yes" Else rw.Columns(11).Value = "No" End If Next rw End Sub

build议使用EXCEL公式来查找连续的第一个和第二个已定义的单元值更改: 我需要一个正则expression式的build议（没有VBA /没有数组公式），请执行以下操作：有以下数据集：我需要一个公式进入列A和B，并将第一个和第二个月的变化从1到2相应地返回给每一行。在可search范围内只有1个和2个被使用。

在Excel工作簿中查找唯一string的位置？: 就像标题所说，我试图在Excel工作簿的任何地方find唯一string的位置。这是保证是唯一的，但可以出现在我的表的任何行或列。举个例子：我想单元格B7返回B3（5的位置）。如果我知道它将出现的列或行，那么这是一个简单的查找，匹配或索引问题。我很难find一个值可以放在表单中的任何位置的例子。