Parsing 简单替换功能

下面显示的是我正在处理的查询的下半部分。该查询返回我想要的所有值，但CSV将包含逗号的帐户名（例如Sales、General和admin）拆分为多个列

几周前，我开始研究VBA代码，尽管在replace函数中找到了许多页面，但我不知道如何让它在我的代码中运行，特别是在查询之后和分隔符之前，以便帐户名保持完整/与数据分开

帐户名的更改相当频繁，因此最终我需要一个允许我输入包含逗号的特定帐户名的代码，以便代码知道忽略这些逗号，或者一个解析类型函数。提前谢谢

QueryQuote:
         With Sheets("Income").QueryTables.Add(Connection:="URL;" & qurl, Destination:=Sheets("Income").Range("a1"))
            .BackgroundQuery = True
            .TablesOnlyFromHTML = False
            .Refresh BackgroundQuery:=False
            .SaveData = True
        End With


        Sheets("Income").Range("a1").CurrentRegion.TextToColumns Destination:=Sheets("Income").Range("a1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=True, Space:=False, other:=False

     Sheets("Income").Columns("A").ColumnWidth = 20
     Sheets("Income").Columns("B:L").ColumnWidth = 8


End Sub

---

这是一个文本到列的公式：

SheetsIncome.Rangea1.CurrentRegion.TextToColumns u目的地：=SheetsIncome.Rangea1，数据类型：=xl分隔_ TextQualifier:=xlDoubleQuote，continuedDelimiter:=False，Tab:=True，分号：=False_ 逗号：=真，空格：=假，其他：=假

逗号：=True是用来分隔数据的。尝试将其更改为false。

查找并替换：

单元格.替换内容：=在此处插入文本，替换：在此处插入替换文本_ 查看：=xlPart，搜索顺序：=xlByRows_

---

MatchCase:=False，SearchFormat:=False，ReplaceFormat:=False所以我尝试了您提供的查找和替换函数，但是看起来只要csv仍然与逗号串在一起，替换函数就无法工作。因此，为了替换，我必须列出销售，一般和行政，50,20,80,55,60,20，数字根据公司的不同而变化。你想得到什么样的最终结果？您想用名称替换数字，还是用名称替换数字？