Удалите последние два символа в ячейке

Question

Мне нужно удалить последние последние два символа всех ячеек, найденных на листе с именем Target с именем столбца Order (столбец BD).

Этот макрос ниже выглядел бы в строке 1 Рабочий лист Цель слова orders. Затем он удалил бы последние два символа (строки).

Однако, поскольку я новичок и получил эти макросы из двух разных источников, я, вероятно, испортил назначение переменных.

Sub RemoveOrdersTT() 
    Dim ws As Worksheet 
    Dim rng As Range 
    Dim lastCol As Long 
    Dim i As Long 

    Set ws = Worksheets("Target") 
    With ws 
    lastCol = .UsedRange.Columns.Count 
     For i = 1 To lastCol 
     If InStr(1, UCase(.Cells(1, i).Value), "Orders") > 0 Then 
     .Cells(1, i).Value = Left(.Cells(1, i).Value, Len(.Cells(1, i).Value) - 2) 
     End If 
     Next i 
    End With 
End Sub 

код, который будет смотреть на листе Target и столбец BD, начиная со строки 2 или исправления в мой код будет высоко ценится.

Answer 1

Изменение внутренней, если:

If InStr(1, UCase(.Cells(1, i).Value), "ORDER") > 0 Then 
    .cells(1,i).value = left(.cells(1,i).value, Len(.cells(1,i).value) -2) 
End If 

1. InStr требует 3 параметров (плюс некоторые дополнительные из них), вы пропали без вести первый PARM рассказывал ему, где начать смотреть
2. В If заявлении, InStr вернет позицию или 0, поэтому достаточно провести тестирование для > 0, нет необходимости в <>, хотя это будет работать, просто не нужно
3. Удалить 2-й вызов UCase() в if сама заявка, нет необходимости в UCase фиксированной строке, просто укажите ее в верхнем регистре.
4. Не нужно возиться с попыткой создания другого объекта диапазона и его изменения, у вас уже есть необходимая ячейка.

также:

Предполагая, что ваши данные прямоугольной (т.е. не имеют каких-либо столбцов без заголовков, которые вы не хотите, чтобы искали):

LastCol = .UsedRange.Columns.Count 

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

Полный код

Sub RemoveOrdersTT() 
    Dim ws As Worksheet 
    Dim rng As Range 
    Dim lastCol As Long 
    Dim i As Long 
    Dim r as long 

    Set ws = Worksheets("Target") 
    With ws 
    lastCol = .UsedRange.Columns.Count 
     For i = 1 To lastCol 
     If InStr(1, UCase(.Cells(1, i).Value), "Orders") > 0 Then 
     for r = 2 to .usedRange.Rows.Count 
      .Cells(r, i).Value = Left(.Cells(r, i).Value, Len(.Cells(r,i).Value) - 2) 
     next 
     End If 
     Next i 
    End With 
End Sub 

бы добавить внутреннюю петлю For r... на самом деле получить его, чтобы пересечь строки в этом столбце