Excel vba中的每个可见单元格在行中插入H行的值？

如何根据Excel中的行的可见性状态使用vba在H行中插入值？

Dim rng As Range Set rng = Range("A2", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible) For Each cell In rng rng.value = "Something" Next cell 

上面的代码将填充“东西”行，但我不知道如何映射到H行（我想要它）？ 有人有主意吗…

Answer 1

您可以使用迭代中每个cell的Row属性映射到H列中的正确行

 Sub Macro1() Dim rng As Range Set rng = Range("A2", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible) For Each cell In rng Range("H" & cell.Row).Value = "Something" Next cell End Sub 

Answer 2

如果每行的值相同，则不需要循环：

 Sub NoLoop() Dim r As Range Set r = Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row) Set r = r.Cells.SpecialCells(xlCellTypeVisible) r.Value = "whatever" End Sub