Tag: string concatenation

循环多个范围并根据条件进行连接

我有四个1列范围具有相同的行数：国家，名称，类别，金额。 “国家”，“名称”和“分类”范围包含string值，“金额”范围有双倍。 我面临的问题是：只要金额高于或低于某个值，我需要在每个类别和每个名称下获得所有国家的string。 样本表： 国家名称类别金额 克罗地亚乔恩蓝14 挪威乔恩·蓝23 波兰Rob Green 10 埃及伊娃绿8 加拿大伊娃粉红色32 巴西罗布粉红色25 瑞士Rob Pink 35 俄罗斯Jon Pink 27 瑞典罗布黑色32 罗布·布莱克13 贝宁埃丝特紫罗兰24 莫罗科Jon黄色36 罗马尼亚伊娃黄色35 美国伊娃黄38 日本罗布黄34 对于Amount> 20，每个类别的正确string结果是： Blue: Jon: norway(23) Pink: Eva: canada(32), Rob: brazil(25), switzerland(35) Yellow: Jon: morroco(36), Eva: romania(35), usa(38), Rob: japan(34) etc. 任何想法如何解决这个问题？ 没有编写代码，因为我不知道哪里可以开始。 正在考虑multidimensional array，但这超出了我的编码能力…任何帮助非常感谢

无法在UDF的单元格中写入string

Sub Makro() Dim a As String Dim b As String Cells(1, 1).Value = myfunction(X, X) If Range("A1") = "XX" Then MsgBox "True" Else MsgBox "False" End If End Sub Function myfunction(a, b) As String myfunction = a + b End Function “A1”单元格值等于0.它必须是XX。

连接来自索引匹配的多个结果

我试图连接多个结果从一个索引匹配到一个单元格。 这里是我正在使用的示例数据集： 我想要的结果： 正如你所看到的，我试图find所有的数据是4/12/2017的客户。 然后我想把它们合并成另一个单元格中的一个string。 如果date相同，我已经想出了如何总结数量，但是却不知道如何连接客户。

vba用一个/生成txt文件replace两个引号

我已经创build了一个macros，该macros使用excel中的每一行生成txt文件。 我有问题“（引号） 这是VBA的一个问题： wsTemp.Cells(6, 1).Value = "The ""Number"" is " & wsSource.Cells(r, 3).Value 我需要这个： The "Number" is MYNUMBER 而不是我得到这个： " The ""Number"" is" MYNUMBER 这也不起作用： wsTemp.Cells(6, 1).Value = "The" & Chr(34) & "Number"" is " & Chr(34) & wsSource.Cells(r, 3).Val （得到相同的输出） 我尝试用Chr(34)replace"" （没有工作） 我也试过在最后换掉function： wsTemp.Cells(6, 1).Value = Replace(wsTemp.Cells(6, 1).Value, """", """) （没有工作）和wsTemp.Cells(6, 1).Value = Replace(wsTemp.Cells(6, […]

Excel VBA – 带分隔符和单引号的string结合

我有一列细胞。 他们需要连接成一个单一的string与多个分隔符之间。 我需要第2列中的值与第1列中的值相似 Column 1 | column 2 a1 | 'a1' a2 | 'a1';'a2' a3 | 'a1';'a2';'a3' a4 | 'a1';'a2';'a3';'a4' a5 | 'a1';'a2';'a3';'a4';'a5' 目前我使用下面的公式 Column 1 | Column 2 a1 | ="'"&a1&"'"&";" a2 | =b1&"'"&a2&"'"&";" a3 | 并将其复制到列B2中。 有没有一个VBA代码可以帮助我做到这一点。 我确实发现了一些会在单元格之间添加单个分隔符，但是我无法修改它来添加多个分隔符。 这将是非常有益的可以共享一个VBA代码相同。