Как удалить строку в заданном шаблоне с помощью VBA? - PullRequest
0 голосов
/ 25 июня 2019

Новичок в VBA.

У меня есть простой шаблон Excel, который генерирует обобщенные данные из исходного файла.Другими словами, я нажимаю кнопку, и числа обновляются по этому шаблону на одной из вкладок.

Однако в этом шаблоне есть строка, которая мне больше не нужна.Я хочу удалить это полностью, но я не могу просто удалить это.Допустим, это «Стоимость проданных товаров» (см. Код), и мне это больше не нужно.Число, прикрепленное к COGS, теперь равно 0, поскольку в моем исходном файле больше нет информации об этом.

Весь фрагмент кода здесь предназначен для этой строки «Стоимость проданных товаров», которую я не совсем понимаю ...Опять же просто хочу удалить, так как уже не актуально.

Просьба посоветовать, что я могу сделать.Очень ценится.

If Range("B" & t) = "Cost of goods sold" Then
    Range("B" & t, "G" & t).Select
    Selection.Copy
    Sheets("Summary").Select
    Range("A" & (rowXListTotal - z + d)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    d = d + 1
    Worksheets("SP").Select
End If

1 Ответ

0 голосов
/ 25 июня 2019

Простой пример того, как обрабатывается:

Option Explicit

Sub test()

    Dim LastRow As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1")

        'Find the last row of column A
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        'Loop aiming to delete. Start from bottom to top using Step -1
        For i = LastRow To 1 Step -1

            'If condition made, then delete
            If .Range("B" & i).Value = "DeleteMe" Then
                .Rows(i).EntireRow.Delete
            End If

        Next i

    End With

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...