连接筛选结果，逗号分隔

703188390

如图，将筛选结果用逗号连接，请大佬棒棒忙

jeff_ps2009

供参考：

Sub joinCells()
    Dim myRange As Range
    Dim myCell As Range
    Dim myString As String
    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row '获取最后一个非空单元格行号
    Set myRange = Range("A1:A" & lastRow).SpecialCells(xlCellTypeVisible)  '设置目标范围，可见单元格
   
    For Each myCell In myRange '遍历范围中的每个单元格
        If Len(myCell.Value) > 0 Then '如果单元格不为空
            myString = myString & myCell.Value & "," '将单元格的值添加到字符串中
        End If
    Next myCell
   
    myString = Left(myString, Len(myString) - 1) '去掉最后一个逗号
   
    Range("G1").Value = myString '将结果放入G1单元格
End Sub

gwjkkkkk

请参考。。。