仅针对可见单元格的特殊循环问题求助

你的代码问题在于，循环里直接把B列所有可见单元格的区域赋值给A列的每个单元格，VBA会默认取这个区域的第一个单元格值，所以所有A列单元格都只得到B2的值。而且rng已经是筛选后的可见区域，循环里不需要再重复调用SpecialCells(xlCellTypeVisible)。

下面给你两种可行的解决方法：

方法一：逐个循环赋值（直观易理解） #

Sub SpecialLoop()
    Dim cl As Range, rng As Range
    
    ' 定义A列筛选后的可见区域（从A2开始到最后一行可见单元格）
    Set rng = Range("A2", Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible)
    
    ' 遍历每个可见单元格，赋值对应行的B列单元格值
    For Each cl In rng
        cl.Value = cl.Offset(0, 1).Value ' Offset(0,1)表示同一行右侧第1列，也就是B列
    Next cl
End Sub

方法二：批量赋值（更高效，适合大数据量） #

如果数据量比较大，循环会慢，直接批量赋值更高效：

Sub BatchAssign()
    Dim rngA As Range, rngB As Range
    
    ' 获取A列可见区域
    Set rngA = Range("A2", Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible)
    ' 获取对应行的B列可见区域
    Set rngB = rngA.Offset(0, 1)
    
    ' 批量赋值
    rngA.Value = rngB.Value
End Sub

关键说明 #

• Offset(0,1)：用来定位同一行的B列单元格，避免手动拼接单元格地址，更灵活。
• 批量赋值不需要循环，直接将B列可见区域的值一次性传给A列，速度快很多。

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