Excel найти строку на основе текущего дня

Question

Здравствуйте, я новичок в макросах Excel

Я пытаюсь создать простой макрос, который основан на текущем дне (поскольку я задаю этот вопрос сегодня пятница), нахожу «Пятница» в любой строке и затем скопируйте все эти строки на новый лист, я дошел до этого момента, любая помощь приветствуется.

With ActiveSheet
With Range(“A1”, Range(“A” & Rows.Count).End(xlUp))
.AutoFilter 1, “Friday”
On Error Resume Next
End With
End With

Answer 1

Вы можете использовать ниже logi c, чтобы решить эту проблему. Вам нужно написать соответствующий лог c, чтобы скопировать данные в соответствии с вашими потребностями в закомментированной строке.

Dim lngLastRow As Long, lngLastCol As Long, i As Long, j As Long
With ActiveSheet
    lngLastRow = .Cells.Find("*", .Range("A1"), , , xlByRows, xlPrevious).Row
    lngLastCol = .Cells.Find("*", .Range("A1"), , , xlByColumns, xlPrevious).Column
    For i = 1 To lngLastRow
        For j = 1 To lngLastCol
            If .Cells(i, j).Value = Format(Now, "dddd") Then
                '\\ Write Cell / Row Copying Code Here
                Exit For
            End If
        Next j
    Next i
End With