vba中怎样把文本送到系统剪贴板，然后再把内容贴到Excel单元格?
用VBA得到很多行文本，每行要贴到不同行的单元格。其中有一个问题，就是某些行的文本是用“vbtab"分开的，则这行文本要帖到同一行的不同单元格。比如，若第一行没有用“vb...
用VBA得到很多行文本，每行要贴到不同行的单元格。其中有一个问题，就是某些行的文本是用“vbtab"分开的，则这行文本要帖到同一行的不同单元格。
比如，
若第一行没有用“vbtab"分开，则贴到A1。如：中国人
若第二行用一个“vbtab"分开，则贴到A2和B2。如：中国“vbtab"人
若第三行用两个“vbtab"分开，则贴到A3、B3、C3。如：中“vbtab"国“vbtab"人
用“vbtab"是不定行不定个数的。
若用Sheet2.Cells(i, 1) = strOut 的方式，则都只在第一列输出。
请大侠帮助！
谢谢！！！ 展开
比如，
若第一行没有用“vbtab"分开，则贴到A1。如：中国人
若第二行用一个“vbtab"分开，则贴到A2和B2。如：中国“vbtab"人
若第三行用两个“vbtab"分开，则贴到A3、B3、C3。如：中“vbtab"国“vbtab"人
用“vbtab"是不定行不定个数的。
若用Sheet2.Cells(i, 1) = strOut 的方式，则都只在第一列输出。
请大侠帮助！
谢谢！！！ 展开
2个回答
展开全部
不知道你的文本是什么样的，在什么地方。根据你的描述，这里提示一下代码方案：
取一行文本到变量a
用一句arr = Split(a, "vbtab")将a中的内容以"vbtab"为界赋值到一维数组arr
用UBound(arr)得到arr最大下标b
根据b值选择单行单元格范围直接用arr赋值
用循环方式处理下一行
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
