VBA如何将一个数组的值直接赋值给另外一个数组

luketools · 发表于 2024-3-12 17:57

我将"A1:E10"区域赋值给了一个数组arr,因为A列有些单元格为空，我希望把没有内容的整行去掉，比如A2单元格为空，那么A2:E2整行的数据都不要了。然后把不为空的赋给另外一个数组brr,再把brr赋给另外工作表的某个单元格，这个代码怎么写？一个数组直接赋值给另外一个数组有没有简单的写法。

Sub gh()
arr = [a1:e10]
For j = 1 To UBound(arr)
If arr(j, 1) <> "" Then
brr = arr
End If
Next
End Sub

ykcbf1100 · 发表于 2024-3-12 18:02

供参考。。。

perfect131 · 发表于 2024-3-12 18:10

如果你没有定义 brr 而且 arr不是 byte数组的情况下
brr=arr 即可

luketools · 发表于 2024-3-12 18:47

ykcbf1100 发表于 2024-3-12 18:02
供参考。。。

非常感谢，两个变量不会用

cai2532 · 发表于 2024-3-12 19:18

如果多个数组合成一个数组要怎么做

micch · 发表于 2024-3-12 19:41

循环，一个一个赋值过去，写代码不需要追求简单的写法，追求写完了处理简单就行了

		自动登录	找回密码
密码			免费注册

[求助] VBA如何将一个数组的值直接赋值给另外一个数组