Tag: 查找

find2个字符之间的任何内容，并在vba格式

我想find一个2个字符之间的文本，并格式化文本只是例子：cell a1 = hello！ 这是testing！ 我只想改变感叹号之间的部分。 Sub Macro2() Dim varFound As Variant, varSearch As Variant Dim strAddress As String, intPos As Integer varSearch = "!*!" Set varFound = Cells.Find(varSearch, LookIn:=xlValues, LookAt:=xlPart) If Not varFound Is Nothing Then strAddress = varFound.Address Do With varFound Do intPos = InStr(intPos + 1, .Value, varSearch, vbTextCompare) If intPos Then […]

Excel – 使用组合（值和格式）条件查找和replace

我想清空并将单元格格式设置为General，以便表单中的所有单元格： 包含“MyText”和 被格式化为百分比 我正在使用查找和replace对话框（CTRL + H），但是： 如果我将“replace为”框留空，则只更换格式; “MyText”还在; 如果我在“replace为”框中写入“SomeText”，则还会执行文本replace以及格式replace 它看起来像我一次不能得到两个replace（空文本和更改格式）。 有没有通配符可用于“replace为：”字段？ 或者任何其他简单的解决scheme呢？ 更新：我试图录制一个macros。 这是文本和格式replace： Application.FindFormat.NumberFormat = "0.00%" Application.ReplaceFormat.NumberFormat = "General" Cells.Replace What:="MyText", Replacement:="nothing", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _ ReplaceFormat:=True 但如果我删除replace文本，它只会做格式replace（这是有道理的一点，但这不是我想要实现的） Application.FindFormat.NumberFormat = "0.00%" Application.ReplaceFormat.NumberFormat = "General" Cells.Replace What:="MyText", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _ ReplaceFormat:=True

在一行中具有多个输出的Excel查找

我很想得到这个结果： 我不知道单元格B7需要什么公式。 它应该是这样的：对于A1:A5每个Ai A1:A5 ，如果Ai = A7则B7 = B7+Bi Excel公式可能吗？ 我不想使用macros，因为它是客户的文件。

原始JSON数据中的查找值+'x'之后的字符数

我得到了一个excel文件，其中一列包含JSON格式的所有原始数据。 每一行都安静了一些数据，我需要的数据是'姓名'+电话号码。 然而，文本到列不起作用，因为有时候在x列“d”和有时在列“j”中这种情况下的语音数字。 电话号码始终以： ,\:'\phone 有没有办法，我可以find这个数字呢？

在Excel中使用vlookup查找子string中的string

我有一个名字为花的excel表，例如： 蓼属两栖类 Hippuris寻常型 寻常的Lysimachia Juncus bulbosus ssp。 bulbosus Lycopus europaeus ssp。 europaeus Nymphaea alba 现在我需要在另一个表格中find这些名字，这不是特别的。 例如： Juncus bulbosus ssp。 bulbosus需要在一个叫做“ Juncus bulbosus * ”的Excel工作表中find。 我知道有可能使用*作为通配符。 所以我可以使用vlookup在Juncus bulbosus ssp中查找Juncus bulbosus * 。 bulbosus 。 但有可能做到反过来，findJuncus bulbosus ssp。 球茎 灯泡球茎* ？

select案例，根据查找文本

我想每15分钟更新一次新的数据表。 我正在寻找的代码是这样的： 案件数据不存在表单“做某事”的情况下，其他“别的东西” 我写的代码是： Dim LastRow1 As Long With Sheets("Stocks") LastRow1 = .Cells(.rows.count, "A").End(xlUp).row End With Dim e As String Dim Cell As Range Dim rRng As Range Dim find As Range Dim stock as string Set rRng = Sheets("results").Range("D2:F" & LastRow1) For Each Cell In rRng If Cell.Value >= (-0.01) And Cell.Value <= 0.01 […]

Excel中查找函数返回第一个结果而不是最接近的匹配

我一直在使用下面的代码在Excel中执行粗略的查找。 该代码可以让你find一个查找值和一个string表之间的大致匹配。 例如，可以将“JS史密斯”与“约翰·JS·史密斯”，“第五街西”，“第五街西”等相匹配。代码如下： Function FuzzyFind(lookup_value As String, tbl_array As Range) As String Dim i As Integer, str As String, Value As String Dim a As Integer, b As Integer, cell As Variant For Each cell In tbl_array str = cell For i = 1 To Len(lookup_value) If InStr(cell, Mid(lookup_value, i, 1)) > 0 Then a […]

Excel中PowerPivot模型FactTables中的“查找”数据

我有一个事实表，在PowerPivot中有两个独特的列。 我想知道是否有可能以某种方式从Excel中“查找”表中的数据。 作为一个例子，请参阅下面的表格（PowerPivot中）。 我的问题是有可能在UniqueID_1列中search并返回UniqueID_2中的值，反之亦然？ 我很熟悉如何使用多维数据集function的措施，但我不知道如何返回string。 作为背景，这个表通过PowerQuery进入PowerPivot，我想检索由PowerQuery传递的表，而不将表写入电子表格（这是我现在正在做的解决方法）。 任何聪明的想法？ 最好， 本 编辑： 感谢您的build议和发布。 我不确定这是否完全解决了我的问题。 （a）通过从PowerPivot表中查询PowerPivot表（通过PowerPivot中的“​​Related”或“LookupValue”函数完成），可以在PowerPivot表中查找 – （b）通过从另一个Excel单元格中查询来存储在Excel表格中（可以使用Excel中的“查找”或“索引”/“匹配”function） 我正在寻找的是一种查找数据的方法：（c）通过从Excel单元格中查询来驻留在PowerPivot表中。 下面，我加了一个例子来说明这一点。 我尝试（c）通过匹配date值与PowerPivot表中的date列的Excel匹配function。 我正在寻找的解决scheme可以返回任何数据types，不只是数字（这可以通过Excel公式“CubeValue”来完成） 我添加了屏幕截图：i）从PowerPivot表中显示表结构和内容ii）从Excel公式中尝试使用连接到PowerPivot表（不起作用！） 期待任何build议！ 最好的，本

查找function并复制数据

我正在尝试使用find函数来查找数据的行，我想复制从列A到H行到另一个工作表的所有数据块。 但是，查找function不起作用。 我可否知道我是否正确地做了这些工作，而且我很不确定如何将数据复制下来。 感谢您的帮助提前。 Dim r, ran, ranOff As Range Set ran = Cells.Find(What:="# pin/pkgpin Schem Label Pkg Pad Bank Pkg Label Pad/Bump Coord Probe Coord Pkg Coord") Set ranOff = ran.Offset(1, 0) ranOff.CurrentRegion.Select

使用vbscript在Excel中replace小数部分

作为一个更大的脚本的一部分，我试图用Excel中的十进制值replace小数值使用VBScript。 我总是可以指望具有特定列和特定格式的值。 Excel示例预期input列B： 51-7/16 1-1/2 2 15-7/8 Excel示例所需的输出列B： 51.4375 1.5 2 15.875 我知道这将永远是一个1/16。 所以我的想法是通过列表寻找每个可能的分数，find一个包含该分数的单元格，并将其replace为相应的小数。 问题：如何告诉脚本查找包含值的单元格，以及如何用小数点replace该分数？ 最接近的例子search和使用VBscript在Excel中replace一些字符 尝试： Dim FMember (14) FMember(0) = "-1/16" FMember(1) = "-1/8" FMember(2) = "-3/16" FMember(3) = "-1/4" FMember(4) = "-5/16" FMember(5) = "-3/8" FMember(6) = "-7/16" FMember(7) = "-1/2" FMember(8) = "-9/16" FMember(9) = "-5/8" FMember(10) = "-11/16" FMember(11) = […]