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

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

cell

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

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

2 个答案: