Question

我正在寻找一个VBA代码，该代码可用于我想要的按钮，该按钮将Concatenate公式运行到整个向下的列。所以我对第一个单元格的公式是'= CONCATENATE（$ F $ 4，$ H $ 4，$ J $ 4）'。我希望按钮将“连接”添加到第一行（第4行），然后将其后的所有行添加到“ AS”列中...

我尝试记录一个宏，将单元格的公式更改为CONCATENATE并输入值，但是将其应用于按钮时似乎不起作用。

我对使用公式进行VBA编码相当陌生，因此我确信有一种非常简单的方法可以执行此操作。抱歉，如果我不了解您的解释的某些基本知识，请：

当前代码：

Private Sub ParetoButton_Click()


Range("AS3").Formula = "=CONCATENATE(F3,"" "", H3,"" "",J3)"


Range("AS").FillDown

End Sub

Answer 1

经过更多研究并尝试了其他代码，找到了解决方案...

Private Sub ParetoButton_Click()


Range("AS3").Formula = "=CONCATENATE(F3,"" "", H3,"" "",J3)"


Dim LastRow As Long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row

Range("AS3:AS" & LastRow).FillDown

End Sub

用于将串联公式设置为整个列的宏？

1 个答案: