Извлечение первого символа рабочей книги и копирование в другую рабочую книгу с использованием vba

Question

Я искал способ решить мою проблему с помощью MID, Split Я все еще не мог получить результаты.

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

strChar = Range("G2")
Workbooks("InputA.xls").Worksheets("Sheet0").Mid(strChar, 1, 1).Copy _
        ("Output.xls").Worksheets("Sheet1").Range ("F2")

Я не знаком с VBA, но я посмотрел MID, LEFT, RIGHT и Spilled, но мне кажется, что я не могу написать правильный код

Например, в диапазоне ("G2") и его значение (B) EEO324324 Но мне нужно только извлечь символ B и скопировать в другую книгу

Answer 1

        Workbooks("Output.xls").Worksheets("Sheet1").Range ("F2").Value = _
           Left(Workbooks("InputA.xls").Worksheets("Sheet0").Range("G2").value, 1)