簡單替換功能

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

簡單替換功能

回答

相關問題