将两个不同的列与分隔符结合使用

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