Tag: 连接

在Excel中连接3d范围: 如何修改这个UDF以适应多张纸的三维范围？ Function ConcatenateRange(ByVal cell_range As range, _ Optional ByVal seperator As String) As String Dim cell As range Dim newString As String Dim cellArray As Variant Dim i As Long, j As Long cellArray = cell_range.Value For i = 1 To UBound(cellArray, 1) For j = 1 To UBound(cellArray, 2) If Len(cellArray(i, j)) <> 0 […]

在一个单元中写入几个string: 我试图创build一个函数，在一个单元格中查找几个类别代码，然后在不同的单元格中为每个类别编写适当的类别pipe理器。最后应该有一个由逗号分隔的string组成的集合，代表pipe理者的名字。例如：： Column Categories: 3AF,5CB,4DF,5GK Manager Names: Dieter, Max 我的方法是： =IF(IFERROR(SEARCH("4DF";A1);0);"Dieter";IF(IFERROR(SEARCH("5GK";A1);0);"Max";"")) 它工作正常（find两个名字），但它只写入find的第一个string（上面的Dieter ），并不显示稍后发现的经理名称（即不是Max ）。所以我正在寻找一个修改，使用两个名称填充新的单元格。谁能帮我吗？

不包括来自同一行的组员的连接: 是否有可能在图像中创build“群集”列？需要连接所有常见“整体”值的“单位”值，但不要将其本身包含为串联的值。我可以请帮助创build“群集”列吗？除了结果行的单位外，每个“簇”都具有相同总体中的所有单位： Overall Unit Cluster Overall1 UnitA1 {UnitA2, UnitA3} Overall1 UnitA2 {UnitA1, UnitA3} Overall1 UnitA3 {UnitA1, UnitA2} Overall2 UnitA4 {UnitA5} Overall2 UnitA5 {UnitA4} Overall3 UnitB62 {UnitB63, UnitB64, UnitB65} Overall3 UnitB63 {UnitB62, UnitB64, UnitB65} Overall3 UnitB64 {UnitB62, UnitB63, UnitB65} Overall3 UnitB65 {UnitB62, UnitB63, UnitB64} 认为这可能是一个两步的过程，然后连接，也许search和replace？

连接显示除第一个值之外的第二个和第三个值: 我有这个macros来连接3个单元格的值，问题是它只连接了第一个和第二个值，之后它只连接了第一个值为3，第二个值为3月，第三个值为2015，所以结果只是给我“3march” 这是我的代码： Private Sub CommandButton1_Click() Sheets("Info").Activate Range("M2:Q2").Select Selection.Copy Range("A2").Cells(1).Select Do While ActiveCell.Value <> "" ActiveCell.Offset(1, 0).Select Loop Selection.Offset(0, 12).Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.Offset(0, -12).Select Selection.Cells(1).Select 'ahora viene la parte de pegar los valores,,, Selection.Cells(1).Value = TextBox1.Value Selection.Cells(1, 2).Value = ComboBox1.Value Selection.Cells(1, 3).Value = ComboBox4.Value Selection.Cells(1, 4).Value = ComboBox5.Value Selection.Cells(1, 5).Value = ComboBox6.Value […]

Excel VBA如何连接: 我需要在vba中连接一个已经存在的代码，以便输出它 “Rank”，“ – ”，然后是这个公式find的数据这里是原始代码，它find数据，并把它的数据表un-concatenated。 For innerLoop = 0 To addRowOffset – 1 Range("F" & maxRows + 1 – innerLoop).Value = _ Sheets("Template").Range("B" & (6 + periodP * 2 + periodQ * 3 + innerLoop)).Value Next innerLoop 这是我试图连接它失败的尝试。 For innerLoop = 0 To addRowOffset – 1 Range("F" & maxRows + 1 – innerLoop).Value = _ […]

如何合并两个单元格，添加一个空格和一个逗号: 我有两个单元格：细胞1 – Toronto 电池2 – ON 我想合并成一个单元格，然后让它说Toronto, ON （在多伦多之后加上一个空格）。

EXCEL VBAclosures所有打开的工作簿连接到外部Excel文件: 我确实有一个与Excel和数据连接的问题，并希望find一个解决scheme。情况：我有一个Excel报告2外部数据连接的数据透视表中。数据连接链接到包含数据透视表的原始数据（基本上只是一个大表）的其他Excel文件，并且已经通过数据/连接使用Excel构buildfunction进行了设置。现在，每当我想要刷新连接Excel正在耗尽内存停止与一个错误消息。如果我只刷新一个数据透视表，保存并closures文件，然后刷新它的其他数据透视表，但不是很方便使用。我注意到，一旦数据已经被读入数据透视表，连接到原始数据文件仍然是开放的，这是大内存消耗的原因…… ..我假设。如果我删除了连接excel是释放一个loooooooot的内存，这使我猜测，如果我closures数据更新后的连接excel将释放内存。所以我的问题是：我怎么能一次closuresVBA中的任何打开的工作簿连接？注意：我认为我在VBA方面非常出色，但我不是专业人士很多谢谢，丹尼斯干杯

根据左列单元组合相邻行单元格: 我想根据左侧的相邻单元格将右侧列中的单元格合并到一个单元格中。我尝试合并，但我只能得到这么多。而在网上search后，我找不到任何可以parsing每一行，并结合左侧单元格跨度的长度。我知道这是一个CONCATENATE函数，但我怎样才能parsing整个电子表格？这是我想为上面的结果的一个例子：

ActiveWorkbook.ConnectionsDisabled正在给编译错误: 我已经写了这个代码来启用连接： Sub EnableConnection() ActiveWorkbook.EnableConnections answer = MsgBox("Connection enabled") End Sub 它的作品非常漂亮。但是，当写反向： Sub disableConnection() ActiveWorkbook.ConnectionsDisabled End Sub 我得到编译错误：无效使用财产。谁能帮我解决这个问题吗？先谢谢你。

vba循环添加到string – 当前代码覆盖，而不是添加到单元格: 我想添加到单元格，但我的代码保持覆盖自己。例如：如果从第5列到第11列有一个值，我想把标题附加到特定的单元格（M列中的最后一个单元格）。如果单元格e2 = 1月f2 = 2月g2 = 3月和e3 = 100 f3 = 40 g3 = 0 我想在M“State – Jan，Feb”的最后一行看到目前代码以“State – Feb”结尾，因为它看起来代替了“Jan”而不是添加到它。 Dim iRow As Integer, iCol As Integer Dim sDesc as string, sDesc2 As String Dim wsEntry As Worksheet Dim wsUp As Worksheet Set wsEntry = Worksheets("Entries") Set wsUp = Worksheets("Sheet1") […]