excel - 与文本和标点符号动态范围连接

Question

我正在尝试通过使用连接到 excel 中的一系列动态单元格来添加标点符号和文本，并且我正在尝试找出它的 VBA 代码。
所以，我正在做以下事情:

最后结果:

使用宏记录器我得到了这个

Range("B3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=""<>""&RC[-1]"
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:B5")
Range("B3:B5").Select 

有没有办法让自动填充成为动态的，它目前专注于单元格 B3 到 B5(因为我会有更多的单元格，而不是固定数量的单元格)？
有没有我可以使用的替代连接公式？
非常感谢

Answer 1

使用 VBA 填写一个简单的公式

Option Explicit

Sub Test1()
    
    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    
    With ws.Range("A3:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        .EntireRow.Columns("B").Formula = "=""<>""&" & .Cells(1).Address(0, 0)
        ' or
        '.Offset(, 1).Formula = "=""<>""&" & .Cells(1).Address(0, 0)
    End With
    
End Sub


Sub Test2()
    
    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    
    With ws.Range("B3:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        .Formula = "=""<>""&" & .Cells(1).EntireRow.Columns("A").Address(0, 0)
        ' Or
        '.Formula = "=""<>""&" & .Cells(1).Offset(, -1).Address(0, 0)
    End With
    
End Sub