如何使用 VBA 将过滤后的表从一列复制并粘贴到另一列可见列？

Question

我在解决这个特定问题时遇到了麻烦。 我目前正在尝试自动化一个函数，其中宏会自动将值从 C 列更新到 D 列

例如，如果在过滤的单元格 C2 和 C4 中有一个值，我希望它粘贴到单元格 D2 和 D4 并跳过 D3

我希望我的解释是有道理的，因为这是一个我能想到的更大规模解释的样本

Answer 1

为了将“C:C”列的过滤单元格（从第二行开始）复制到“D:D”列的相应行：

Sub copyVisCells()
  Dim sh As Worksheet, lastR As Long, rngVS As Range, Ar As Range
  
  Set sh = ActiveSheet
  lastR = sh.Range("C" & sh.rows.count).End(xlUp).row
  Set rngVS = sh.Range("C2:C" & lastR).SpecialCells(xlCellTypeVisible) 'here it needs error checking in case of no visible cells...
  For Each Ar In rngVS.Areas
      Ar.Copy Ar.Offset(0, 1)
  Next Ar
End Sub

如果您可以根据从 B:B 复制值的内容定义规则，让我们说 D:D 中可见单元格之前的一行，则可以修改代码来执行此操作，但您必须根据要执行的规则进行说明它...