简单替换功能

下面显示的是我正在处理的查询的下半部分。查询返回所有我想要的值，但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

来源

2015-04-06 Joshua Lowry

这是一个文本到列公式：

表（ “收入”）范围（ “A1”）CurrentRegion.TextToColumns _目的地：... =床单 “收入”）范围（“A1 “），数据类型：= xlDelimited，_ TEXTQUALIFIER：= xlDoubleQuote，ConsecutiveDelimiter：=假标签：=真，分号：=假_ 逗号：=真，空间：=假，其他：=假

逗号：=真是分隔你的数据。尝试将其更改为false。

来源

2015-04-06 20:05:50 Adiamond

查找和替换：

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

这是VBA的查找和替换功能。对每个需要找到并替换的短语使用此选项。

来源

2015-04-06 20:11:18 Adiamond

所以我尝试了你提供的查找和替换功能，但它看起来像替换函数不会工作，只要csv仍然与逗号串起来。所以为了取代我必须列出（销售，一般和管理，50,20,80,55,60,20）和数字根据公司而变化。 –

你试图得到什么样的最终结果？你想用名称替换数字，反之亦然？ – Adiamond

简单替换功能

回答

相关问题