用VBA得到很多行文本，每行要贴到不同行的单元格。其中有一个问题，就是某些行的文本是用“vbtab"分开的，则这行文本要帖到同一行的不同单元格。
比如，
若第一行没有用“vbtab"分开，则贴到A1。如：中国人
若第二行用一个“vbtab"分开，则贴到A2和B2。如：中国“vbtab"人
若第三行用两个“vbtab"分开，则贴到A3、B3、C3。如：中“vbtab"国“vbtab"人
用“vbtab"是不定行不定个数的。
若用Sheet2.Cells(i, 1) = strOut 的方式，则都只在第一列输出。
请大侠帮助！
谢谢！！！
不知道你的文本是什么样的，在什么地方。根据你的描述，这里提示一下代码方案：
取一行文本到变量a用一句arr = Split(a, "vbtab")将a中的内容以"vbtab"为界赋值到一维数组arr
用UBound(arr)得到arr最大下标b
根据b值选择单行单元格范围直接用arr赋值
用循环方式处理下一行
温馨提示：答案为网友推荐，仅供参考
第1个回答 2018-11-02
strText = “我是中国人”
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText strText
.PutInClipboard
End With
ActiveSheet.Paste
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText strText
.PutInClipboard
End With
ActiveSheet.Paste
