利用VBA提取特定行及清空数组举例
日常工作生活中,我们处理表格时,需要提取一个工作簿中特定行的内容,下面将介绍利用VBA,快速的提取我们想要的内容。
例如下图,我们想要提取第一列内容为"b"的所有行的内容,代码如下:
Sub 提取特定行()
Dim arr, arr1(1 To 1000, 1 To 8) "声明两个数组变量
Dim x, k
arr = Range("a1:h11")
For x = 1 To UBound(arr) ‘表示arr数组中最大一行
If arr(x, 1) = "b" Then
k = k + 1
arr1(k, 1) = arr(x, 1)
arr1(k, 2) = arr(x, 2)
arr1(k, 3) = arr(x, 3)
arr1(k, 4) = arr(x, 4)
arr1(k, 5) = arr(x, 5)
arr1(k, 6) = arr(x, 6)
arr1(k, 7) = arr(x, 7)
arr1(k, 8) = arr(x, 8)
End If
Next x
Range("a15").Resize(k, 8) = arr1 ’此处表示以a15单元格为起点的k行8列的内容
End Sub
结果如下图所示:
下面将介绍一种需要清空数组的例子,如下图,我们需要将第一列中的内容以空行为界,分别提到D列,E列,F列中。
代码如下:
Sub 清空数组()
Dim arr, arr1(1 To 1000, 1 To 1)
Dim x, m, k
arr = Range("a1:a16")
For x = 1 To UBound(arr)
If arr(x, 1) <> "" Then
k = k + 1
arr1(k, 1) = arr(x, 1)
Else
m = m + 1
Range("c1").Offset(0, m).Resize(k) = arr1
Erase arr1 "表示将arr1数组中的内容清除掉
k = 0
End If
Next
End Sub
华为手机隐藏的十大功能,实用又强大,就连花粉也未必都知道分享最实在的玩机技巧,洞察最前沿的科技资讯!大家好,这里是手机科技园!我发现身边越来越多的人,都在用华为手机,功能实在是太强大了,今天就给大家分享华为手机隐藏的十大功能,就连花粉也
肝郁化火,有五种症状最明显!越早知道越好肝疏通气血津液,人体脏腑组织的气血津液流通,有赖于气机的调畅通达,离不开气机升降出入运动。气机运动,升降出入正常取决于肝的疏泄功能正常,肝的疏泄功能正常则气机畅达,气血和调,经络通
长期吸烟的人,怕出现这5种症状,如果出现,或在提醒你该节制了随着生活水平的提高,越来越多的人开始注重养生,但是吸烟的人群却没有减少,这是因为虽然生活变好了,生活压力却越来越大,社会竞争也非常激烈。很多人会通过抽烟来缓解内心的烦躁感,但是抽烟
肾炎综合征有哪些症状,来看一下急进性肾炎综合征危害大,不仅会继发感染,严重的可能还会引发急性肾损伤或血栓栓塞性疾病。要想避免这些疾病危害,就要格外重视急进性肾炎综合征,根据其诱因表现做好科学医治,消除隐患,保障
这样做,预防口腔癌口腔癌的预防措施分析如下1首先要养成良好的生活习惯,避免过度吸烟饮酒以及嚼槟榔。在饮食方面需要注意饮食的均衡,保持维生素的摄入量,不要进食过烫,过于坚硬的食物。不要饮用过热的饮料以
糖尿病人什么时候运动好?注意这3点,运动降糖才能有效些糖尿病是慢性疾病代表之一,在胰岛素分泌量不足,胰岛功能降低后血糖会升高,没有及时控制,发展成糖尿病的可能性大。而在患病期间会带来多方面影响,不少患者皮肤发痒体重下降肢体有麻木感夜尿
糖尿病的源头已揭秘,别再冤枉甜食了,医生请马上从饭桌上撤离说到糖尿病,很多人都认为不吃糖就不会得糖尿病,往往容易忽略了发病信号。其实,糖尿病,可怕的并不是疾病本身,而是其所带来的并发症。糖尿病的可怕之处在于,它可以引发各种并发症如视网膜病
口腔健康,饮食来护口腔健康饮食来护口腔健康包括无口腔颌面部慢性疼痛口咽癌口腔溃疡先天性缺陷如唇腭裂牙周疾病(包括牙龈炎和牙周炎)龋病(俗称虫牙或蛀牙)牙齿丧失以及影响口腔的其他疾病和功能紊乱。口腔疾
心脏术后建议吃黑木耳对于缺血性心脏病的患者,尤其是行冠状动脉搭桥术的患者以及行冠脉支架置入术的患者,临床医师会建议患者可适度进食黑木耳,有利于本身的病情,这是为什么呢?首先我们需要明确,不论是冠状动脉
俄罗斯科学家为了永生,给自己注射350万年前的细菌,效果怎样?生命从诞生之初,就在对抗死亡。只有活着,生命才有机会繁衍后代,延续物种,这对于人类来说也是一样的。过去数千年来,世界各地的很多人都在寻找长生之法,希望能够摆脱死亡的自然规律,实现永
绝情女人宋佳丈夫身患重病,她离婚弃夫远走,泪水里有苦衷我当时太年轻了。每每回忆起自己的婚姻悲剧,宋佳总是眼含泪水。这段相差21岁的婚姻,在80年代结合之初就被议论纷纷,巨大的年龄鸿沟,让人以为宋佳别有所图。刚结婚3年,又因丈夫身患重病