代码之家 › 专栏 › 技术社区 › ThePatBan

在逗号分隔列表的所有项前加一个常量值

vba excel-2010 excel-2007 excel-formula excel

ThePatBan · 技术社区 · 10 年前

我有两列。我想将第A列和第B列中的单元格连接起来,以提供第D列中所示的输出。我试过了 ColumnA&ColumnB 但是列C中所示的输出不对应于期望的输出。我该如何修复?

Input1 |Input2  |Output   |Desired output
ColumnA|ColumnB |ColumnC  |ColumnD 
-----------------------------------------
A      |1,2,3,4 |A1,2,3,4 |A1, A2, A3, A4
B      |5,3,6,7 |B5,3,6,7 |B5, B3, B6, B7 
C      |8,9     |C8,9     |C8, C9
D      |10,11,45|D10,11,45|D10, D11, D45

2 回复 | 直到 6 年前

Jean-François Corbett 10 年前

你可以试试这样的

=A1 & SUBSTITUTE(B1;",";", " & A1)

Jean-François Corbett 10 年前

此用户定义函数适用于我:

Function prependToAllElements(prefix As String, commaSeparatedList As String) As String
    Dim i As Long
    Dim s() As String
    s = Split(commaSeparatedList, ",")
    For i = LBound(s) To UBound(s)
        s(i) = prefix & s(i)
    Next i
    prependToAllElements = Join(s, ",")
End Function

单元格D1中的用法示例:

=prependToAllElements(A1,B1)

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

4 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

4 月前

Eric · 我有邮政编码替换问题Excel VBA

4 月前

Chasester · VBA使用嵌套的DIV抓取URL

4 月前

jkp · 特殊字符复选标记

4 月前

Iron Man · 代码插入和复制到错误的工作表

4 月前

NoFafo · 将文本框放入数组进行格式化

4 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

4 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

4 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

5 月前