Выпуск VBA range.formula (LEN, RIGHT & LEFT) - PullRequest
Новая
       5

Выпуск VBA range.formula (LEN, RIGHT & LEFT)

0 голосов
/ 27 мая 2018

Я пытаюсь сделать код VBA для выполнения 2 вещей следующим образом:

Подсчитать, сколько символов в ячейке A1, используя формулу LEN(A1) и одну последнюю строку:я пытаюсь получить формулу RIGHT(LEFT(A1;Q1-2);6) в ячейке J1

Пожалуйста, следуйте моему VBA-коду: 

LR = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To LR
    cel = "A" & i
    cel2 = "P" & i
    cel3 = "Q" & i

    Range("P" & i).Formula = "=LEN(" & cel & ")"
    Range("J" & i).Formula = "=RIGHT(LEFT(" & cel & "," & cel3 & "-" & 2 & ")," & 6 & ")"
Next i

Кажется, что-то глупое, чего не хватает, однако ядо сих пор не удалось ее решить

Заранее спасибо

1 Ответ

0 голосов
/ 27 мая 2018

Вы упускаете право и некоторые другие вещи 

Range("J" & i).Formula = "=RIGHT(LEFT(" & cel & "," & cel3 & "-2), 6)"
...