Question

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

我几周前开始查看VBA代码，尽管在替换函数上找到了很多页面，但我无法弄清楚如何让它在我的代码中运行，特别是在查询之后和分隔符之前，以便帐户名称保持完整/与数据分开。

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

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

Answer 1

这是一个Text To Columns公式：

表格（“收入”）。范围（“a1”）。CurrentRegion.TextToColumns _目的地：=表格“收入”）。范围（“a1”），数据类型：= xlDelimited，_ TextQualifier：= xlDoubleQuote，ConsecutiveDelimiter：= False，Tab：= True，分号：= False，_ 逗号：=真，空格：=假，其他：=假

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

Answer 2

查找并替换：

＆＃13;

Cells.Replace What:="insert text here", Replacement:"insert replacement text here", _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

＆＃13;

这是查找和替换功能的vBA。对每个需要找到和替换的短语使用它。

简单的替换功能

2 个答案: