在Excel VBA循环中，仅将表列中的可见单元格复制到以逗号分隔的列中

Sub CopyVisibleCellsToCommaSeparatedColumn()
    Dim ws As Worksheet
    Dim sourceRange As Range
    Dim visibleCell As Range
    Dim commaSeparatedColumn As String
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 设置要复制的范围，可以根据实际情况调整列和行的范围
    Set sourceRange = ws.Range("A1:A10") ' 将"A1:A10"替换为实际的范围
    
    ' 循环遍历每个单元格
    For Each visibleCell In sourceRange.SpecialCells(xlCellTypeVisible)
        commaSeparatedColumn = commaSeparatedColumn & visibleCell.Value & ","
    Next visibleCell
    
    ' 在指定列中粘贴逗号分隔的数值
    ws.Range("B1").Value = Left(commaSeparatedColumn, Len(commaSeparatedColumn) - 1) ' 将"B1"替换为实际的列
    
End Sub