VBA开发：如何消除拼接值首逗号、动态设置单元格边框范围

拼接字符串开头冗余逗号修复 #

代码中拼接匹配值时，每命中一个匹配项就会在内容前拼接逗号，最终生成的字符串格式为,匹配值1,匹配值2。原代码使用Mid(v2, 1)截取内容，相当于从字符串首位开始读取，完全没有去掉开头的冗余逗号。
直接将截取起始位置调整为2即可切掉开头第一个逗号：

' 原错误写法
Cells(i, 5) = Mid(v2, 1)
' 正确写法
Cells(i, 5) = Mid(v2, 2)

如果某行无匹配内容，v2为空字符串，截取后会返回空值，不会出现格式残留。

动态范围定义错误修复 #

原代码定义rng2的逻辑存在缺陷：使用"E:E"作为Range的起始参数时，会直接选中E列整列，再延伸到A列最后非空行，既没有覆盖完整的D、E列结果区域，也会因为选中整列导致后续边框设置扩散到整个工作表。
代码运行时已经通过nD = Cells(rc, 4).End(xlUp).Row动态计算出D列有效结果的最后一行位置，直接基于这个值拼接范围地址即可适配源数据长度变动，无需硬编码固定区域：

' 原错误写法
Set rng2 = ActiveSheet.Range("E:E", ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp))
' 正确写法：基于动态计算的nD值，覆盖D1到E列最后一行有效数据的完整区域
Set rng2 = ActiveSheet.Range("D1:E" & nD)

这个范围会跟随A、B列下载的源数据长度自动调整，不管有效结果是6行还是数百行，都能精准覆盖生成的匹配结果区。

格式设置适配 #

当rng2调整为精准的有效数据范围后，原有对齐、边框的设置逻辑即可正常生效，不会出现全表加框的问题。

修复后完整代码 #

Sub Duplicate()
    Dim nA As Long, nD As Long, i As Long, rc As Long
    Dim s As String, j As Long, v, v2 As String
    
    Range("A:A").Copy Range("D1")
    Range("B1").Copy Range("E1")
    Range("D:D").RemoveDuplicates Columns:=1, Header:=xlYes
    
    rc = Rows.Count
    nA = Cells(rc, 2).End(xlUp).Row
    nD = Cells(rc, 4).End(xlUp).Row
    
    For i = 2 To nD
        v = Cells(i, 4)
        v2 = ""
        For j = 2 To nA
            If v = Cells(j, 1) Then
                v2 = v2 & "," & Cells(j, 2)
            End If
        Next j
        Cells(i, 5) = Mid(v2, 2)
    Next i

    Dim rng2 As Range
    Set rng2 = ActiveSheet.Range("D1:E" & nD)
    
    rng2.HorizontalAlignment = xlLeft
    With rng2.Borders()
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

内容的提问来源于stack exchange，提问作者Sven