VBA拆分前與逗號後

我有生產場地爲市，州...的報告，即美國馬里蘭州巴爾的摩VBA拆分前與逗號後

我目前使用下面拉滿弦的位置在：

n = ActiveWorkbook.Sheets.Count 
For i = 2 To n 
Z = Sheets(i).Range("C6").Value 
Cells(39, i) = Z 
Next i

我知道我可以寫一個字段的公式來完成這項工作，但是VBA代碼會更快。

Excel公式爲前逗號將是： = LEFT（B39，FIND（「」，B39）-1）

爲逗號（它是一個狀態縮寫）後： = RIGHT（B39 2）

這不起作用：

n = ActiveWorkbook.Sheets.Count 
For i = 2 To n 
Z = Sheets(i).Range(left(("C6"), find(",","C6"))-1).Value 
Cells(39, i) = Z 
Next i

關於如何將左側功能到這個代碼的任何建議？

來源

2017-05-31 AdMac

你是什麼意思嘀「*這不起作用*」是什麼呢？ – RBarryYoung

這工作完美......它在逗號前放棄了城市。我是否操縱最後一個整數來得到逗號後面的字符？ – AdMac

是的，是的，我願意。謝謝！ – AdMac

採用分體式：

n = ActiveWorkbook.Sheets.Count 
For i = 2 To n 
    Z = Split(Sheets(i).Range("C6").Value,",")(0) '(0) returns the first and (1) the second. 
    Cells(39, i) = Z 
Next i

來源

2017-05-31 20:33:38

VBA拆分前與逗號後

回答

相關問題