修改代码，2句可否合并为1句

APPLE123

修改代码，2句可否合并为1句
以下2句代码可分别在E、F列输出数组
Range("E1").Resize(UBound(ar), 1) = Application.Index(ar, , 5)
Range("F1").Resize(UBound(ar), 1) = Application.Index(ar, , 6)
请教老师，可否将上述2句合并为1句代码，该如何修改？谢谢！

ykcbf1100

改不了。。。

lsc900707

不知道你为什么要合并？

剑指E

本来可以循环遍历，但以你的方法硬凑一个
Range("E1").Resize(UBound(ar), 2) = Application.Transpose(Array(Application.Transpose(Application.Index(ar, , 5)), Application.Transpose(Application.Index(ar, , 6))))
再试试

Range("E1").Resize(UBound(ar), 2) = Application.Index(ar, [ROW(1:9999)], [{5,6}])

ykcbf1100

剑指E 发表于 2024-8-21 21:42
本来可以循环遍历，但以你的方法硬凑一个
Range("E1").Resize(UBound(ar), 2) = Application.Transpose(Ar ...

估计你这个也不是楼主的本意，楼主应该是想简化代码，合二为一，你这个，还是二行代码，而且，代码更长了。

沈默00

代码这样写会更好调试，，无需合并

lss001

Range("E1").Resize(UBound(ar), 2) = Application.Index(ar, Evaluate("Row(1:" & UBound(ar) & ")"), [{5,6}])

APPLE123

剑指E 发表于 2024-8-21 21:42
本来可以循环遍历，但以你的方法硬凑一个
Range("E1").Resize(UBound(ar), 2) = Application.Transpose(Ar ...

高手，谢谢！

APPLE123

lss001 发表于 2024-8-22 15:11
Range("E1").Resize(UBound(ar), 2) = Application.Index(ar, Evaluate("Row(1:" & UBound(ar) & ")"), [{5 ...

厉害！谢谢！

剑指E

ykcbf1100 发表于 2024-8-22 07:48
估计你这个也不是楼主的本意，楼主应该是想简化代码，合二为一，你这个，还是二行代码，而且，代码更长了 ...

搂主的意图在于将两次赋值过程合并为一次(即两数据合二为一后一次性赋值)，虽说第一种方法代码长了点但总归还是一句代码，第二种方法相对简单多了吧，而且对于简单的代码应用不应该以代码长短论高低，即便代码运行慢，但人生不差几毫秒。