Excel vba在A行中為每個可見單元格，在H行中插入值？

Question

如何使用vba根據excel中A行的可見性狀態在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 

上面的代碼將“內容”填充到A行，但是我不知道如何將其映射到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