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)

提取工作簿的第一个字符，然后使用vba

1 个答案: