Excel 自动填充找到的列中的值

我试着在一张纸上找到两列的名字，即。列“水果”和列“蔬菜”，然后尝试将这些列的合并值粘贴到新列中

工作表“水果蔬菜”

A. B C 1. 新专栏 水果 蔬菜 2. 空白 苹果 菠菜 3. 空白 橙色 卷心菜

---

下面是一个概要方法，希望您能够适应

Sub x()
  
Dim r1 As Range, r2 As Range

Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

With Rows(1)
    Set r1 = .Find(What:="Fruits", Lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)
    Set r2 = .Find(What:="Vegetables", Lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)
    If Not r1 Is Nothing And Not r2 Is Nothing Then
        Range("A2:A" & Cells(Rows.Count, r1.Column).End(xlUp).Row).Formula = "=" & r1.Offset(1).Address(0, 0) & " & " & r2.Offset(1).Address(0, 0)
       'hyphen below
       'Range("A2:A" & Cells(Rows.Count, r1.Column).End(xlUp).Row).Formula = "=" & r1.Offset(1).Address(0, 0) & " & ""-"" & " & r2.Offset(1).Address(0, 0)
    End If
End With
     
End Sub

---

你们有多个水果和蔬菜栏吗？执行此操作时“=RC[xRgUni.Offset（1，0）]&RC[xRgUni1.Offset（1，0）]”引号内的所有内容都将按字面意思显示在单元格中。@SJR否，我没有多个列。在“水果蔬菜”表中，我只有这两列。我需要将A列的值设为B&C。例如A2=B2&C2并自动填充。我想在B2和C2之间添加一个连字符，那么我应该这样做吗？范围（“A2:A”和单元格（Rows.Count，r1.Column）.结束（xlUp）.Row.公式=“=”&r1.Offset（1）.地址（0，0）&“&”&“-&”&r2.Offset（1）.地址（0，0）.此外，我如何添加其他公式，如“=YEAR（RC[-61]）*100+WEEKNUM（RC[-61]，21）”？谢谢，我在代码上面加了一行，从你的评论看不太清楚。我现在明白了！所以对于所有其他公式，我只是在引号中添加公式元素。例如“年”&“年”！非常感谢你！是的，如果公式中有引号，请记住在VBA中使用双引号。