一维数组连接

情冇独钟

请问怎么将单元格区域和一维数组连接，生成一个新的一维数组。
下面这种方法太繁琐，请问有没简便的方法，另有个疑惑表格一行就是一维数组吧，为何能用直接使用，还要转置两次才行
请大虾指点，谢谢！

a = Range("A1:C1")
b = Array(4, 5, 6)
c = Split(Join(Application.Transpose(Application.Transpose(a)), ",") & "," & Join(b, ","), ",")
MsgBox c(0)

大灰狼1976

单元格一行是一个一行多列的二维数组，而不是一维，下面的方法可以直接获取一维数组：
a=[A1:C1&””]
手机打字，引号可能有问题，可自行修改

zopey

使用 for next 给c 逐个赋值

lss001

'虚拟表对象操作数组比较灵活
'可任意赋值取值跟工作表功能一样
'也可以排序，去重复等......
Sub 虚拟表合并数组()
    a =  Range("A1:C1")
    b = Array(3, 4, 5)
    Set sh = CreateObject("excel.sheet")
    With sh.ActiveSheet
        x = UBound(a, 2): y = UBound(b) + 1
       .Cells(1, 1).Resize(1, x) = a '写入
       .Cells(1, x + 1).Resize(1, y) = b
        ar = .[a1].Resize(1, x + y) '读取
   End With
   sh.Close '关闭虚拟表*
End Sub

aman1516

lss001 发表于 2021-12-1 22:16
'虚拟表对象操作数组比较灵活
'可任意赋值取值跟工作表功能一样
'也可以排序，去重复等......

这个“无中生有计”厉害，以前怎么没想到过这样处理呢

情冇独钟

大灰狼1976 发表于 2021-12-1 21:21
单元格一行是一个一行多列的二维数组，而不是一维，下面的方法可以直接获取一维数组：
a=[A1:C1&””]
手 ...

多谢解答，这种方法直观简便，那如果单元格区域不确定的话&""就不好使了吧

情冇独钟

lss001 发表于 2021-12-1 22:16
'虚拟表对象操作数组比较灵活
'可任意赋值取值跟工作表功能一样
'也可以排序，去重复等......

多谢指导，这个方法好，
数组排序有点烦琐，之前处理一些数组排序都是写到工作表临时排序后再赋值，再删除临时写入
请问这个虚拟表处理数据的方式，是要快一点吗，相当于直接在内存里处理数组吗

lss001

情冇独钟 发表于 2021-12-2 16:56
多谢解答，这种方法直观简便，那如果单元格区域不确定的话&""就不好使了吧

区域不确定也可以
例如:获取虚拟表A列最后一个单元格
x = .ActiveSheet.Cells(Row.Count, 1).End(3).Row

虚拟表跟现实表是一样的
可以打开＜即设置为可见＞
处理后也可以保存
速度方面跟现实表也是一样
虚拟表主要是数组操作优势
增删改查都方便

大灰狼1976

情冇独钟 发表于 2021-12-2 16:56
多谢解答，这种方法直观简便，那如果单元格区域不确定的话&""就不好使了吧

单元格区域不确定的话也可以，稍微改变一下，但是仅限一行，不能多行，如下：Sub test_2()
Dim s$, arr
s = [a1].Resize(, 10).Address & "&"""""
arr = Evaluate(s)
End Sub

情冇独钟

lss001 发表于 2021-12-2 18:08
区域不确定也可以
例如:获取虚拟表A列最后一个单元格
x = .ActiveSheet.Cells(Row.Count, 1).End(3).Ro ...

明白了，多谢