提取工作簿的第一个字符，并使用 vba 复制到另一个工作簿

Question

我一直在寻找一种通过使用 MID 解决问题的方法，斯普利特我仍然无法得到结果。

我正在尝试从一个 excel 工作表中提取第一个字符并使用 VBA 复制到另一个 excel 工作簿。

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

我不熟悉 VBA，但我查找了中、左、右和 Spilt，但似乎我无法写出正确的代码

例如在范围("G2"(中，其值为 (B( EEO324324 但我只需要提取字符 B 并复制到另一个工作簿

Answer 1

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