191问答库 > vba 先判断剪贴板不为空，然后将其中的数据赋值给一个数组。然后检测行数和维数。

vba 先判断剪贴板不为空，然后将其中的数据赋值给一个数组。然后检测行数和维数。

2025-05-15 01:26:46

推荐回答（1个）

回答1：

剪贴板操作有许多函数据,可以对剪贴板进行各种操作.包括写入\读出\清空等.
下面给出对剪贴板是否有数据,有数据的情况下读取首行和末行的内容并赋值给变量a和b.
具体例子如下:
Public Sub 调试1()
Dim a As New DataObject
a.GetFromClipboard
gx = a.GetText
if gx<>"" then
aa = Split(gx, Chr(9))
bb = UBound(aa)
a1 = aa(0)
a2 = aa(bb)
endif
End Sub