提取工作簿的第一個字符，然后使用vba復制到另一個工作簿

Question

我一直在尋找一種使用MID解決問題的方法，Split我仍然無法獲得結果。

我正在嘗試從一個Excel工作表中提取第一個字符，然后使用VBA復制到另一個Excel工作簿中。

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

我不熟悉VBA，但我查了MID，LEFT，RIGHT和Spilled，但似乎無法寫出正確的代碼

例如在range（“ G2”）中，其值為（B）EEO324324但我只需要提取字符B並復制到另一個工作簿中

Answer 1

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