Блог

Вот моя проблема, я фильтрую столбец S по типу «Большой», после этого я перехожу к видимым ячейкам в столбце T и заменяю его данными в столбце V. Проблема в том, что данные колеблются, поэтому я не могу просто заставить свой макрос заменить весь столбец T на столбец V.

У меня есть код для фильтрации и видимых строк, но я не знаю, как завершить код макроса, чтобы он заменял видимые ячейки в столбце T видимыми ячейками в столбце V. Столбец V также меняется, поэтому T4 должен быть заменен на V4, а затем T27 должен быть заменен на V27 и Т.Д. … это произвольные #, видимые ячейки могут переключаться каждую неделю.

     ActiveSheet.UsedRange.AutoFilter Field:=19, Criteria1:= _
    "Large"

    Dim sh As Worksheet, rng As Range, LstRw As Long

    Set sh = Sheets("Sheet1")
    With sh
    LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set rng = .Range("A2:A" amp; LstRw).SpecialCells(xlCellTypeVisible)
  

Как бы выглядел мой лучший код, чтобы удовлетворить потребность?

Попробуйте следующий код, пожалуйста:

 Sub testFilterReplaceVisCells()
  Dim sh As Worksheet, rng As Range, rngT As Range
  Dim LstRw As Long, rngArea As Range, cel As Range
  
  Set sh = Sheets("Sheet1")
  sh.UsedRange.AutoFilter field:=19, Criteria1:="Large"
  LstRw = sh.cells(rows.count, "A").End(xlUp).row
        
  Set rngT = sh.Range("T2:T" amp; LstRw).SpecialCells(xlCellTypeVisible)

    For Each rngArea In rngT.Areas
        For Each cel In rngArea.cells
            cel.value = sh.cells(cel.row, "V").value
        Next
    Next
End Sub