连接文本和标点动态范围

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

连接文本和标点动态范围

Concatenate with text and punctuation dynamic range

excel

vba

text

concatenation

punctuation

使用 VBA