string - VBA在单元格中查找数字、字母和字符并仅用数字/字母替换单元格内容

Question

还有一个问题。

我正在我的工厂创建另一个 Excel 工具，目前我所拥有的工具从采购订单跟踪网站提取数据并过滤掉多余的数据，只留下采购订单标签本身、单引号和结束括号。我需要删除引号和结束括号，这样我就只有 PO 本身，因为我需要将其注入(inject)到另一个站点的 URL 中。我尝试在我编写的一些代码中使用通配符，但是 PO 将被几个星号(又名“通配符”)替换。我可能忽略了一些显而易见的事情，但我无法弄清楚。

数据示例:

代码示例:

Sub Filter_DockMaster_Data2()

Dim Main As Worksheet
    Set Main = Worksheets("Main")
Dim ISA_List As Worksheet
    Set ISA_List = Worksheets("ISA_List")
Dim ISA_Results As Worksheet
    Set ISA_Results = Worksheets("ISA_Results")
Dim ISA_Raw As Worksheet
    Set ISA_Raw = Worksheets("ISA_Raw")

Worksheets("ISA_Results").Select
Range("A1").Select
    Do Until IsEmpty(ActiveCell)
        ActiveCell.replace What:="********"" ]", Replacement:="********", LookAt:= _
            xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        ActiveCell.Offset(1, 0).Select
    Loop

End Sub

希望这是有道理的。

简单说明一下，采购订单的长度会随着时间的推移而变化，因此如果可能的话，我希望使其具有动态性。感谢任何帮助，谢谢。

Answer 1

URL 编码

用于使文本 URL 友好的函数打算怎么样？ :)

=ENCODEURL(A1)

例如:

1234ABCD']

...编码为:

1234ABCD%27%5D

...准备插入查询参数 (URL) 字符串。请参阅下面的链接中的文档，包括更多示例。

<小时/>

文本函数，例如LEFT

也就是说，还有其他几种方法可以做到这一点。

你说的是“替换”，但看起来你只需要剪掉最后 2 个字符？

这会剪切 A1 中文本的最后 2 个字符:

=LEFT(A1,LEN(A1)-2)

<小时/>

SUBSTITUTE 函数

如果您确实想要“替换”单元格中的文本，可以使用SUBSTITUTE:

示例:

如果单元格A1包含:

1234ABCD']

...您可以在另一个单元格中输入:

=SUBSTITUTE(A1,"]","")

...这只会删除 ]。您还可以嵌套函数。要删除 ] 和 '，请改用以下公式:

=SUBSTITUTE(SUBSTITUTE(A1,"]",""),"'","")

<小时/>

SUBSTITUTE 函数语法:

SUBSTITUTE( text, old_text, new_text, [instance_num] )

SUBSTITUTE 函数语法具有以下参数:

• 文本 - (必需) 文本或对包含要替换字符的文本的单元格的引用。
• Old_text - (必需) 您要替换的文本。
• New_text - (必需) 要替换 old_text 的文本。
• Instance_num - (可选) 指定要用 new_text 替换哪个 old_text。如果您指定 instance_num，则仅替换 old_text 的该实例。否则，文本中每次出现的 old_text 都会更改为 new_text。

_{( Source & More Info )}

<小时/>

更多信息:

• 微软支持:ENCODEURL function (Excel)
• 堆栈溢出:Use MID, LEN, and FIND functions to extract certain cell portions?
• 微软支持:SUBSTITUTE Function
• JayTray:The LEFT, RIGHT and MID formulas in Excel
• 微软支持:Text functions (reference)