vba formula公式连接字符串，并向下填充

以下是一个示例VBA代码，用于连接两个字符串并向下填充：

Sub ConcatenateAndFillDown()

'定义变量
Dim firstString As String
Dim secondString As String
Dim resultString As String
Dim lastRow As Long
Dim i As Long

'设置初始值
firstString = "Hello"
secondString = "World"
resultString = firstString & " " & secondString
lastRow = Range("A" & Rows.Count).End(xlUp).Row

'将结果填充到下一行
Range("A" & lastRow + 1).Value = resultString

'向下填充
For i = lastRow + 2 To lastRow + 10
Range("A" & i).Value = resultString
Next i

End Sub

这段代码将在当前活动工作表的第一列中连接字符串“Hello”和“World”，并将结果填充到当前最后一行的下一行。然后，它将向下填充该结果，直到下面的10行。您可以根据需要更改字符串和填充行数。

相关问题

vba formula字符连接，自动填充，连续单元格合并

1. 字符连接

要在VBA中连接字符串，可以使用&符号或者使用VBA的Concatenate函数。例如，要将A1和B1单元格中的文本连接起来，可以使用以下代码：

Range("C1").Value = Range("A1").Value & Range("B1").Value

或者

Range("C1").Value = Concatenate(Range("A1"), Range("B1"))

2. 自动填充

要在VBA中自动填充单元格，可以使用AutoFill方法。例如，要将A1单元格中的值自动填充到A2:A10单元格中，可以使用以下代码：

Range("A1").AutoFill Destination:=Range("A2:A10")

3. 连续单元格合并

要在VBA中合并连续的单元格，可以使用Merge方法。例如，要将A1:A5单元格合并成一个单元格，可以使用以下代码：

Range("A1:A5").Merge