將兩個不同的列與分隔符結合使用

Question

如何使用vba excel將兩列不同的數據列組合到一列中，如ColumnA和ColumnC中的數據，並將其分隔爲逗號。如果我有一個輸入框來選擇要組合的列以及組合結果將出現在哪一列，那將會很棒。

例如：

ColA ColC ColF 
Apple Orang Apple,Orang 
Pear Grape Pear,Grape 

Answer 1

如果你真的想要一個宏提示您輸入不同列試試這個：

Sub Macro1() 
    Dim firstCol As String 
    firstCol = InputBox(Prompt:="Enter first column: ", Title:="Enter data", Default:="A") 

    Dim secondCol As String 
    secondCol = InputBox(Prompt:="Enter second column: ", Title:="Enter data", Default:="B") 

    Dim resultCol As String 
    resultCol = InputBox(Prompt:="Enter results column: ", Title:="Enter data", Default:="C") 

    LastRow = Cells(Rows.Count, firstCol).End(xlUp).Row 

    Dim comma As String 
    comma = ","",""," 

    For Each rng In Range(firstCol & "1:" & firstCol & LastRow) 
    Range(resultCol & rng.Row).Formula = "=CONCATENATE(" & firstCol & rng.Row & comma & secondCol & rng.Row & ")" 
    Next 
End Sub