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

剪贴板 *** 作有许多函数据,可以对剪贴板进行各种 *** 作包括写入\读出\清空等

下面给出对剪贴板是否有数据,有数据的情况下读取首行和末行的内容并赋值给变量a和b

具体例子如下:

Public Sub 调试1()

Dim a As New DataObject

aGetFromClipboard

gx = aGetText

if gx<>"" then

aa = Split(gx, Chr(9))

bb = UBound(aa)

a1 = aa(0)

a2 = aa(bb)

endif

End Sub

在立即窗口调用join函数把数组合成字符串输出

如：

 join(a,",")

如这个段码放到普通模块中，然后在立即窗口输入  GetString(",",vbcrlf) ，可以显示当前工作表选中的区域。可以把里面的数组a换成参数传递方式，调用它把二维数组转换为字符串输出。

Public Function GetString(sep1 As String, sep2 As String) As String

        Dim r As Range

        Set r = Selection

        Dim a()

        a = r

        Dim i As Integer

        Dim j As Integer

        Dim text As String

        For i = 1 To UBound(a, 1)

            text = text & a(i, 1)

            For j = 2 To UBound(a, 2)

                text = text & sep1 & a(i, j)

            Next

            text = text & sep2

        Next

        GetString = text

End Function

先把第二行用函数赋值后，把鼠标拖到该单元格右下角边缘处，会显示实心的十字标识，然后鼠标左键双击即可出来下面所以行数的数值。（如果不行，估计是你的excel设置的问题）。

需要可以帮到你。

通过VBA代码循环。有数据的单元格区域，通过VBA代码循环找到每行每列对应的单元格的值，通过对话框显示出来，这样子就可以vba怎么看数组所对应的单元格。在Excel中想实现什么功能，就可以用VBA语言编写一段程序去完成。

如果是C的话 那你就先一个字符变量char input 把它接收值的那个scanf语句放在一个死循环里面 而那个死循环终止的条件就是遇到回车 然后他每输入一个你就可以统计一下 最后打印出来就可以了

EXCEL 判断某一单元格值是否包含在某一列中，可以使用COUNTIF函数，函数形式：=IF(COUNTIF(目标列,判断列首个单元格)>0,"是","否")，示例步骤如下：

1鼠标左键点击需要输入判断结果的单元格，如下图红框所示；

2然后在fx后面输入“=IF(COUNTIF(A:A,B2)>0,"有","无")”，如下图红框所示；

3然后按回车键，即可判断出第一个值是否在判断列里面，如下图红框所示；

4然后利用填充柄下拉选择所有需要判断的数值的输出单元格，如下图红框所示；

5就会自动套用公式，对其他的数值做出判断，输出判断结果

可能跟想象的不太一样，一本字典能称为秘密武器吗？其实，在这里更准确的说法应该是hashmap，它有一个非常好的优势，就是它的算法复杂度为O(1),注意这个1是个常数，也就是一，二，三的一。按算法来说，一般随着计算量的增加，我们要解决问题的难度也会加大。比如我们要在15个人里面看看有那几个人手里拿着旗子？可能一眼就能得到答案：3。但是如果现在有100万人呢？问题解决的难度就变得非常大了(O(n))。

a6ea16bf688852f9b691018b41ba5e3dpng

O(1)的算法有一个非常的好的特性，不管数据多寡，它总是以固定的时间将问题的答案抛给提问者。就像面对一面魔镜，只要问一个问题，不管问题多难，魔镜都能瞬间给出答案。而hashmap，或字典就有这样的能力。

03 VBA字典

VBA的自带数据类型里并没有字典。需要我们自己引入。VBA有个古老的Scripting库，从Scripting中我们可以引入Dictionary，也就是常说的字典。引入语法如下

Set dict = CreateObject("ScriptingDictionary")

字典的主要属性如下

CompareMode Count Item key

方法如下

Add Exists Items Keys Remove RemoveAll

Dictionary 跟我们日常使用的字典相似点如下：

Dictionary的键相当于我们字典要查的”词“

Dictionary的值相当于我们字典中查到”词的解释“

并且一个dictionary实例的键是不能重复的。

今天主要用到的属性跟方法是

Item=>对某个键赋值

Add=>增加一对键、值

Exists=>判断某个键是否存在

关于如何使用VBA的Dictionary，先告一段落，接下来要解决我们开头的那个应用场景

04 解决问题 第一个版本

在Excel表中模拟了差不多50万行的记录，有三个字段，分别是索引字段 索引值1 索引值2

这些数据都是随机生成的，并没有什么意义。其中索引字段是从26个英文子母中随机挑选了7个，索引值1跟2随机从1到200中取了个整数。

接下来，我从索引字段中随机抽取了差不多1万个待检索值，目标是在结果中显示内容。

4c7bd7b4985d2417f298bec31e54f2c6png

首先，我们选中f4:f10000,在其中填入自定义函数NEWVLOOKUP，这个函数有三个参数，第一个是要查询的一列数组，也就是E4:E10000，第二个参数是目标索引的列，也就是A3:A500000,第三个参数就是要索引的内容，在这里我们选择索引自身，也就是1

以上就是关于vba 先判断剪贴板不为空，然后将其中的数据赋值给一个数组。然后检测行数和维数。全部的内容，包括:vba 先判断剪贴板不为空，然后将其中的数据赋值给一个数组。然后检测行数和维数。、如何在vba调试里面查看一个数组的值、VBA求解:A列行数未知，超10000行，想用VBA数组方式给对应的B列赋值，B列等等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！