Перемещение определенного текста из одной ячейки в диапазоне в другую ячейку в другом диапазоне

Question

Я хотел бы переместить конкретный текст (в данном случае термин «Низкий риск») из одного столбца в другой на одном листе.

Я пробовал несколько вариантов функции «.Cut» вМакро-разработчик, но, похоже, никто не работает.

Answer 1

Попробуйте:

Option Explicit

Sub test()

    Dim strValueToRemove As String, strString As String

    strValueToRemove = "Low Stock"

    With ThisWorkbook.Worksheets("Sheet1")
         strString = .Range("A1").Value
        .Range("A1").Value = Replace(strString, strValueToRemove, "")
        .Range("B1").Value = strValueToRemove
    End With

End Sub

Примечания:

Replace с учетом регистра

Answer 2

Я не уверен, что правильно понял вопрос, но для переноса значения из ячейки в другую с помощью vba используйте что-то вроде

    Worksheets("Name").Cells(rowNo, column2No).Value = Worksheets("Name").Cells(rowNo, column1No).Value
    Worksheets("Name").Cells(rowNo, column1No).clear

Надеюсь, это поможет вам как-то