Excel宏将简单地将公式应用于一列

Question

我对VBA语法一无所知，我需要创建一个Excel宏，它只是将公式应用于A列中所有填充的单元格。（公式为=连接（B1，C1，D1）相对于单元格）

我已经搜索了这个问题的答案，虽然有许多类似的问题，但它们都非常具体，我无法操纵给定的代码，以便它可以做到这一点。谢谢你的帮助。

Answer 1

以下是我使用Do While循环编写的一些代码来连接三个单独的列，您可以通过最少的调整来完成相同的操作。

它将从每个指定列中的信息横向连接同一行的单元格，并循环直到每一行都完成。

Dim noSep As String
noSep = ""

Cells(1, 2) = columnOne
Cells(1, 6) = columnTwo
Cells(1, 8) = columnThree
Cells(1, 47) = concatResult

x = 2
Do While Cells(x, columnOne) <> ""
Cells(x, concatResult) = Cells(x, columnOne) & noSep & Cells(x, columnTwo) & noSep & Cells(x, columnThree)
x = x + 1
Loop