通过 VBA 更新过滤表中的单元格值

Question

我正在尝试通过VBA更新Excel中过滤数据的列值

我写了一个小宏，它对下表进行过滤。

运行宏来过滤工作表后，我看到下面

现在我想做的是，我想更新过滤数据的位置值。我正在尝试使用以下方法：

Range("E100000").SpecialCells(xlCellTypeVisible).Offset(1,0).value ="Abc"

此设置值始终位于 A2 单元格，该单元格不属于过滤数据的一部分。 需要有关如何在 E 列中一一设置/更新过滤数据的值的帮助。

提前致谢！ 维卡斯

Answer 1

here is my code:


Sub Macro3()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("TempSheet")
weeklyCommCount = InputBox"Enter Weekly
Communication Count (in number)")
repeateDate = CDate(InputBox"Enter Planning Start
Date ('DD-MMM-YY')", "CHR Planning", "01-Apr-24"))
For i = 1 To 40
For j = 1 To weeklyCommCount
'this is working when sheet is not filtered
Range("E 100000").End(xUp). Offset(1, 0). Value = repeate Date
"not working setting alads a Ariying below whic is
Range("E 100000").SpecialCells(x|Cel|TypeVisible). Offs
et(1, 0). Value = repeateDate
Next
repeateDate = repeateDate + 7
Next
End Sub