mytext = Sheet1.Shapes("textbox 1").TextFrame.Characters.TextActiveSheet.Range("A1") = Left(mytext, 1)ActiveSheet.Range("B1") = Right(mytext, 1)运行这个宏 就对sheet1表格的 textbox 1的文本框内容操作
=字母b
