2016-06-24 101 views
0

您好,我有一個包含多個項目的Excel單元格。它們全部用逗號隔開。當生成excel工作簿時,它會自動生成項目並用逗號分隔每個項目。然而,問題是當我想要運行一個Excel宏時,我希望每個項目都在一個單獨的行上。在每個逗號後基本上是換行符。這個問題是我不確定一次會有多少時間在單元格中,所以它需要動態。有任何想法嗎?使用Excel宏以逗號分隔的單個單元格中的多行

更新:

Dim originalApplications As String 
Dim splitApplications As Variant 
Dim i As Integer 

originalApplications = Range("E2").Value 


splitApplications = Split(originalApplications, ",") 

For i = 0 To UBound(splitApplications) 

    MsgBox splitApplications(i) 

Next i 

現在我只需要弄清楚如何排隊打破它。

+0

是,使用'Split'。 – Kyle

+0

是的,我知道它實際上將它合併到一個單元格中的分割函數。 –

+1

like'Range(「E2」)。Value = Replace(Range(「E2」)。Value,「,」,「,」&vbnewline)'??? –

回答

0

在你的循環,你需要將每個值賦給一個細胞

const startRow = 10 
const assignCol = 1 
For i = 0 To UBound(splitApplications) 

    Cells(i+startRow,assignCol).Value = splitApplications(i) 

Next i 
相關問題