Question

我无法将两列（变量范围）连接到同一文档中的另一列。有什么东西真的很明显我不见了吗？

Function ConcCol(ConVal_1 As String, ConVal_2 As String)
    Range("V30:V500").Select
    Application.CutCopyMode = False

    With ActiveCell
        .FormulaR1C1 = "=CONCATENATE(RC[5],"" "",RC[6])"
    End With

    Selection.AutoFill Destination:=Range(Destination), Type:=xlFillDefault

End Function

运行上述功能时，出现以下错误：

错误：运行时错误'1004'：Range类的自动填充方法失败

我认为这只与一个被激活的细胞有关吗？我的VBA知识有限

Answer 1

Sub ConcCol()

Range("V3:V500").Select
For Each Cell In Selection
Cell.Value = "=CONCATENATE(RC[5],"" "",RC[6])"
Next Cell


End Sub

我认为只使用每个细胞会更容易（如果你选择了选择的想法）。我认为你的with语句根本不想循环，因此错误。这是一个简单的解决方案。

Answer 2

我认为这就是你要找的东西：

Sub tgr()

    With Intersect(ActiveSheet.UsedRange.EntireRow, Range("V30:V" & Rows.Count))
        .Formula = "=AA" & .Row & "&"" ""&AB" & .Row
    End With

End Sub

Answer 3

嘿，我觉得你有点困惑。你打算如何运行这段代码？您需要提供更多详细信息。以下是运行vba代码的三种方法：

用户界面作为用户定义函数（UDF）
作为另一个VBA代码调用/使用的函数
作为宏，用户需要从宏列表中运行它

为了您的目的，为什么用户不在表格中使用CONCATENANTE功能并填写？

也许使用Excel数组函数？

我无法发布图片，需要10个声誉：s

VBA连接来自Range中相同工作表的列

3 个答案: