首页 > 解决方案 > 提取工作簿的第一个字符并使用 vba 复制到另一个工作簿

问题描述

我一直在寻找一种通过使用 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 并复制到另一个工作簿

标签: excelvba

解决方案


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

推荐阅读